求解 急``````.....

Dim score(5) As Integer, i As Integer, j As Integeraver = 0For i = 1 To 5 score(i) = Val(InputBox("请输入成绩")) aver = aver + score(i)Next iaver = aver / 5Text1.Text = averFor i = 1 To 5 If score(i) > 60 Then i = i + 1 Text2.Text = i j = 5 - i Text3.Text = j End IfNext i我的问题是,此题是用输入框来完成数据的输入,我想通过text的keypree事件来控制 该怎么样写出代码,希望能注解一下..... 谢谢.............

热心网友

你的变量aver未定义.数据的输入由text的keypree事件来控制,代码如下:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1"" Then Text2.SetFocus End IfEnd Sub供参考,注意TEXT1的TabIndex设为0.