程序填空【二】 运行界面如图 4-4 所示,程序运行后,在标签 Label1 和标签 Label2 中自动随机产生两个 100 以内的数,在文本框 Text1 中输入两数 之和( 注:输按回车键 ),若输入的答案错误,则弹出消息框,显示“再想想,加油!”,若答案正确,则弹出消息 框,显示“恭喜你,答对了!”,单击“下一题”按钮,随机产生两个 100 以内新的加数,同时文本框 Text1 清空;单击“退 出”按钮,则结束程序运行。 事件代码: Dim a%, b%, c%, result Private Sub Form_Load() Randomize a = Int(Rnd * 100) b = Int(Rnd * 100) Label1.Caption = a Label2.Caption = b End Sub Private Sub Command1_Click() '**********SPACE********** a = 【1】 '**********SPACE********** b = 【2】 Label1.Caption = a Label2.Caption = b Text1.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then c = Val(Text1.Text) '**********SPACE********** 【3】 If c = result Then MsgBox "恭喜你,答对了!", vbInformation, "提示" Else MsgBox "再想想,加油!", 48, "提示" End If End If