如果可以命名(1.5)?(vb20點)
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)印出我想要出現的字
1 個解答
評分
- ?Lv 62 0 年前最佳解答
看不懂您的需求是什麼
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時也會印出"總和="
還有問題?馬上發問,尋求解答。