VB设计一个小学算术题出题程序

来源：百度知道 编辑：UC知道 时间：2024/09/24 03:43:12
程序设计：设计一个小学生两位整数加法考试程序，每次考试共5题，每题20分，考试结束后，给出优、良、及格、不及格等成绩。

Private Sub Command1_Click()
Dim 分数 As Integer
分数 = 0
If Val(Text1.Text) = 56 Then 分数 = 分数 + 20
If Val(Text2.Text) = 56 Then 分数 = 分数 + 20
If Val(Text3.Text) = 57 Then 分数 = 分数 + 20
If Val(Text4.Text) = 122 Then 分数 = 分数 + 20
If Val(Text5.Text) = 43 Then 分数 = 分数 + 20
Debug.Print 分数
Select Case 分数
Case Is < 60
MsgBox "不及格"
Case Is <= 70
MsgBox "及格"
Case Is <= 80
MsgBox "良"
Case Is <= 100
MsgBox "优秀"
End Select
End Sub

Private Sub Form_Load()
Label1.Caption = "21+35=?"
Label2.Caption = "31+25=?"
Label3.Caption = "42+15=?"
Label4.Caption = "45+77=?"
Label5.Caption = "12+31=?"
End Sub

Command1用来生成新题目，Command2用来提交答案并计算成绩，Label1~5用来显示题目，Text1~5用来写答案

Public x0, x1, x2, x3, x4, x5, x6, x7, x8, x9 As Single

Private Sub Command1_Clic