vb评分 程序

来源：百度知道 编辑：UC知道 时间：2024/05/22 08:43:18
建立一个Command1为评分，就是做一个小学数学的评分程序，先让学生做十个加法题目，随机数给出（这一步我会做了），让学生在Text1填写答案，做完10题后，按下评分按钮，程序自动在窗口上显示分数，每题10分，答错则不得分，
希望具体点

判断然后统计

给出题目的同时，程序将正确答案保存在一个数组当中。然后当按下评分按钮时，与Text1中的结果进行比较。遍历数组比较，声明一个累加器，每相同一次增加1，最后的结果便是此次答题的得分。

Private marrAnswer(9) As Integer

Private Sub cmdResult_Click()
Dim iMark As Integer
Dim i As Integer
Dim arrAns() As String

If CheckInput Then
' 将用户输入的答案保存到数组当中
arrAns = Split(txtAnswer.Text, ",")

' 将用户输入的答案与正确答案进行比较,并计算得分
For i = 0 To UBound(marrAnswer)
If marrAnswer(i) = CInt(arrAns(i)) Then
iMark = iMark + 1
End If
'***
' 这里可以添加一个将错误答题和正确答案进行统计的功能,以增加程序的功能性
' 最终可将错误题目与正确答案进行展示
'***
Next i

' 显示最后的得分
lblMark.Caption = iMark & "分"

End If
End Sub

Private Sub Form_Load()
Dim i As Integer<