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

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大家好! 我的问题是,此题是用输入框和数组来存储数据 我想通过文本框的keypress 事件来控制数据 该怎么样写代码希望大家不吝赐教.....最好能写一点注释 再此谢过.....

热心网友

先设置成单行文本框，然后数据之间用逗号隔开，在keypress事件中进行字符串处理就行了，相关函数instr()或mid()因为我看不懂你的原程序，所以没给你完整代码

热心网友

用keypress不好，你不知道什么时候数据输入结束。