- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB课程设-26测绘C111张烁
10以内加法测试设计报告
学院 土木工程 班级 测绘C111 学号 117564 姓名 张烁 成绩
一、设计思路
1.要达到的目的
①综合利用语言进行程序设计的能力
输入完后测试开始,随机出现10以内加法试题,测试完后,自动统计测试时间,正确率,答题数。
三、部分程序关键源代码及注释
Private Sub Command1_Click()
If Command1.Caption = 开始 Then 点击开始,进入界面
n = InputBox(请输入您的大名, 提示) 输入游戏者的名字
time = InputBox(请输入测试时间(分), 的数学测验) 输入测试时间
Text4.Text = n
Label9.Caption = time
Timer1.Enabled = True
Call initn
Command1.Caption = 暂停
m = time
Label9.Caption = Format(m, 00) :00
ElseIf Command1.Caption = 暂停 Then 点击暂停后变为继续
Command1.Caption = 继续
Timer1.Enabled = False
ElseIf Command1.Caption = 继续 Then 点击继续后变为暂停
Timer1.Enabled = True
Command1.Caption = 暂停
End If
End Sub
Do
a = Int(Rnd() * 10) a取0到10之间的数
b = Int(Rnd() * 10) b取0到10之间的数
Loop While a = 0 Or b = 0 条件是a=0或者b=0
c = a + b
Label1.Caption = a + b = 显示a+b=
Private Sub Command2_Click()
Timer1.Enabled = False 未输入时间
Label5.Caption = 测试被终止! 则测试不被允许
四、设计方案的完善及目前存在的问题
1.设计方案要完善的地方
①控件的调用以及联系图示应更加详细。
②源代码部分不太详细。
2. 目前存在的问题
创新要求没有解决。
五、本次设计的收获及心得体会
这次的visual basic 课程设计,通过自己的努力完成了一个简单的编程算法测试,在设计的过程中遇到了不少问题,发现了很多自己的不足。通过不断的改进和完善程序终于有了一个简单的模型。这是学vb以来第一次编程序,虽然我的程序还有很多缺陷和不足,但是在编程中学到了不少东西,也懂得了作为一个编程人员应具备的素质。现在我们的知识还很少,以后还会更加努力的学习知识,掌握更多的技术知识。
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
这道题目不仅是10以内加法设计,还附加了倒计时时钟,进度条以及模拟键盘的使用,对我们的思维扩散有很大的帮助,可以加强对多个控件的掌握能力。另外这道题可以适当的进行改进,比如增加加减法,乘法等一系列运算。
2.对本次设计的意见和建议
这次设计其中我感觉在解决几个控件之间联系时遇到了点麻烦,不过经过与同学讨论,去图书馆查资料等方法,最终解决了。我感触最深的还是在遇到问题时不能急躁,应该静下心来,一步一步的走下去。
10以内加法测试课程设计报告(VB) 编号:26
输入测试时间
输入测试者名字
文档评论(0)