Stone
Lv 6
Stone 發問時間: 電腦與網際網路程式設計 · 2 0 年前

如果可以命名(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 6
    2 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時也會印出"總和="

還有問題?馬上發問,尋求解答。