第二组vb报告.docVIP

Vb 课 程 设 计 ——两位数内计算系统 成员：夏骁霄 来德宝 黄源 宗涛 王腾 张绪凯 班级: 工 业 工 程 09 01 题目要求： 数字以两位数内的计算为主，由程序程序随机生成数字，进行加减乘除运算（特殊情况的处理：若数字均为两位数，则只考虑加减运算） 考虑并记录计算时间。 统计正确率，错误率。 任务分配：夏骁霄 整合秒表与数学运算器的整个过程，程序的编译 来德宝 完成数学运算器部分的编程问题 张绪凯 完成计时器部分的编程 王腾 检查错误，调整代码 黄源 完成实验的检查与监督问题 宗涛 完成vb实验报告 界面设计如下 Command1.caption=开始 Command2.caption=退出 Frame1.caption= 答案情况汇总 Label3.caption=共答 Label4.caption=正确 Label5.caption=错误 Label6.caption=成绩 Label10.caption=人因疲劳测试 Form1.caption=个位数四则运算器 点击开始，计时器从1分钟倒数， 在一分钟内完成题的个数显示在屏幕中 分为 共答 正确 错误 成绩 点击退出，完成测试 主要程序如下 Dim num1 As Integer, num2 As Integer, second As Integer Dim sexp As String Dim result As Single Dim nok As Integer, nerror As Integer Private Sub Command1_Click() Dim t As Integer Dim nop As Integer, op As String * 1 Randomize num1 = Int(100 * Rnd + 1) num2 = Int(100 * Rnd + 1) nop = Int(2 * Rnd + 1) Select Case nop Case 1 op = + result = num1 + num2 Case 2 op = - If num1 num2 Then t = num1: num1 = num2: num2 = t result = num1 - num2 End Select sexp = Str(num1) op Str(num2) = Label2 = sexp Timer1.Interval = 1000 Timer1.Enabled = True second = 60 End Sub Private Sub Form_Load() Dim t As Integer Dim nop As Integer, op As String * 1 Randomize num1 = Int(100 * Rnd + 1) num2 = Int(100 * Rnd + 1) nop = Int(2 * Rnd + 1) Select Case nop Case 1 op = + result = num1 + num2 Case 2 op = - If num1 num2 Then t = num1: num1 = num2: num2 = t result = num1 - num2 End Select sexp = Str(num1) op Str(num2) = Label2 = sexp End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text1.Text) Then MsgBox 输入必须为数字, vbExclamation, 输入错误 Text1.Text = Text1.SetFocus Else If Val(Text1.Text) = result Then Text6.