如果可以命名（１．５）？（ｖｂ２０點）

Question

Dim data(5, 5)Private Sub Form_Activate()Open "c:\baseball.txt" For Input As #1Do While Not EOF(1)    rec = rec + 1    Input #1, data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4)    If rec <> 1 Then data(rec, 5) = data(rec, 2) + data(rec, 3) + data(rec, 4)    Print data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4), data(rec, 5)LoopEnd Sub

已更新項目:

就是讓第(1,5)印出我想要出現的字

Answer 1

最佳解答

看不懂您的需求是什麼

2004-12-27 09:23:43 補充：

 Print data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4), "總和=" + CStr(data(rec, 5))您是要這個嗎？因為您的加總是rec<>1的狀況下所以建議把這一行包在if裡，不然，rec=1時也會印出"總和="