VB课程设-26测绘C111张烁_第1页
VB课程设-26测绘C111张烁_第2页
VB课程设-26测绘C111张烁_第3页
VB课程设-26测绘C111张烁_第4页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、.10以内加法测试设计报告学院 土木工程 班级 测绘C111 学号 117564 姓名 张烁 成绩 一、设计思路1.要达到的目的综合利用VB语言进行程序设计的能力。通过使用VB的标准控件,加深对控件的多个属性的认识。了解如何使用属性进行程序设计。2.关键问题的解决运用控件属性进行程序设计。控件之间的联系二、模块之间的调用关系,或程序流程图 点击开始后进入测试界面输入测试者名字输入测试时间输入完后测试开始,随机出现10以内加法试题,测试完后,自动统计测试时间,正确率,答题数。三、部分程序关键源代码及注释Private Sub Command1_Click()If Command1.Caption

2、 = "开始" Then 点击开始,进入界面n = InputBox("请输入您的大名", "提示") 输入游戏者的名字time = InputBox("请输入测试时间(分)", "的数学测验") 输入测试时间Text4.Text = n Label9.Caption = timeTimer1.Enabled = TrueCall initnCommand1.Caption = "暂停"m = timeLabel9.Caption = Format(m, "00&q

3、uot;) & ":00"ElseIf Command1.Caption = "暂停" Then 点击暂停后变为继续Command1.Caption = "继续"Timer1.Enabled = FalseElseIf Command1.Caption = "继续" Then 点击继续后变为暂停Timer1.Enabled = TrueCommand1.Caption = "暂停"End IfEnd SubDo a = Int(Rnd() * 10) a取0到10之间的数 b = Int

4、(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

5、. 目前存在的问题创新要求没有解决。五、本次设计的收获及心得体会这次的visual basic 课程设计,通过自己的努力完成了一个简单的编程算法测试,在设计的过程中遇到了不少问题,发现了很多自己的不足。通过不断的改进和完善程序终于有了一个简单的模型。这是学vb以来第一次编程序,虽然我的程序还有很多缺陷和不足,但是在编程中学到了不少东西,也懂得了作为一个编程人员应具备的素质。现在我们的知识还很少,以后还会更加努力的学习知识,掌握更多的技术知识。六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议这道题目不仅是10以内加法设计,还附加了倒计时时钟,进度条以及模拟键盘的使用,对我们的思维扩散有很大的帮助,可以加强对多个控件的掌握能力。另外这道题可以适当的进行改进,比如增加加减法,乘法等一系列运算。2对本次设计的意见和建议这次设计其中我感觉在

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论