Private Sub Form_Load()
For i = 0 To 4
txtscore(i).Text = "0"
Next i
End Sub
Private Sub oprstatistic_click(index As Integer)
Select Case index
Case 0 '计算最高成绩
num = Val(txtscore(0).Text)
For i = 1 To 4
If Val(txtscore(i).Text) > num Then
num = Val(txtscore(i).Text)
End If
Next i
case1 '计算平均成绩
num = 0
For i = 0 To 4
num = num + Val(txtscore(i).Text)
Next i
num = num / 5
case2 '计算总成绩
num = 0
For i = 0 To 4
num = num + Val(txtscore(i).Text)
Next i
End Select
lab12.Caption = optstatistic(index).Caption & ":"
Text1.Text = num
End Sub
參考答案:其实vb的调试是相当简单的,因为它提供了变量跟踪和断点功能
你可以逐条语句运行,看看是那里的问题,再做处理
总体上来说,如果函数未定义之类的,都是变量打错了,或者格式错误导致的.