VB课程设-26.docVIP

10以内加法测试设计报告 学院 班级 学号 姓名 成绩 一、设计思路 1.要达到的目的 ①综合利用语言进行程序设计的能力Private Sub Command1_Click() Dim str, Hs, Ms As String, valuetime As Integer If Command1.Caption = 开始 Then n = m = 0 str = InputBox(请输入姓名：, 设置姓名) Text2.Text = str temp = InputBox(请输入倒计时数（以分钟为单位）：, 设置倒计时) valuetime = Val(temp) hh = Int(valuetime / 60) 获得小时部分 mm = valuetime - hh * 60 ss = 0 Label3.Caption = hmsValueToString(hh, mm, ss) Command2.Enabled = True Randomize tem1 = Int(Rnd() * 10) tem2 = Int(Rnd() * 10) Label9.Caption = tem1 + tem2 End If Command5.Enabled = True If Command1.Caption = 暂停 Then Command1.Caption = 继续 Timer1.Enabled = False Else Timer1.Enabled = True Command1.Caption = 暂停 End If End Sub Private Sub Command2_Click() Label10.Caption = 您终止了程序^_^ Command1.Caption = 开始 Command2.Enabled = False Timer1.Enabled = False Command5.Enabled = False End Sub Private Sub Command3_Click(Index As Integer) Select Case Index Case 0 单击Command3(0)事件 Text1.Text = Text1.Text 0 Case 1 单击Command3(1)事件 Text1.Text = Text1.Text 1 Case 2 单击Command3(2)事件 Text1.Text = Text1.Text 2 Case 3 单击Command3(3)事件 Text1.Text = Text1.Text 3 Case 4 单击Command3(4)事件 Text1.Text = Text1.Text 4 Case 5 单击Command3(5)事件 Text1.Text = Text1.Text 5 Case 6 单击Command3(6)事件 Text1.Text = Text1.Text 6 Case 7 单击Command3(7)事件 Text1.Text = Text1.Text 7 Case 8 单击Command3(8)事件 Text1.Text = Text1.Text 8 Case 9 单击Command3(9)事件 Text1.Text = Text1.Text 9 End S