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大家好! 我的問題是,此題是用輸入框和數(shù)組來存儲數(shù)據(jù) 我想通過文本框的keypress 事件來控制數(shù)據(jù) 該怎么樣寫代碼希望大家不吝賜教.....最好能寫一點注釋 再此謝過.....

熱心網(wǎng)友

先設(shè)置成單行文本框，然后數(shù)據(jù)之間用逗號隔開，在keypress事件中進(jìn)行字符串處理就行了，相關(guān)函數(shù)instr()或mid()因為我看不懂你的原程序，所以沒給你完整代碼

熱心網(wǎng)友

用keypress不好，你不知道什么時候數(shù)據(jù)輸入結(jié)束。