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

幫我加個註解(VB)

Dim data(5, 4)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)    Print data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4)LoopEnd Sub

2 個解答

評分
  • ?
    Lv 6
    2 0 年前
    最佳解答

    Dim data(5, 4) '宣告二維陣列Private Sub Form_Activate() 'form在執行時,執行以下動作Open "c:\baseball.txt" For Input As #1 '開檔當資料來源Do While Not EOF(1)'執行直到檔尾    rec = rec + 1 '計數值每次加1,以決定資料存在陣列的位置'將資料的第rec行讀出,放到陣列的第rec列    Input #1, data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4)'將剛剛放入陣列的資料印出    Print data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4)LoopEnd Sub

  • 2 0 年前

    Dim data(5, 4)'宣告6*5的二維陣列

    Private Sub Form_Activate()'當Form_Activate時執行下列程式

    Open "c:\baseball.txt" For Input As #1'利用通道1讀取該文字檔

    Do While Not EOF(1)'執行迴圈至讀回檔尾

    rec = rec + 1'記錄讀取次數以指定陣列位置

    Input #1, data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4)'讀入

    Print data(rec, 1), data(rec, 2), data(rec, 3), data(rec, 4)'印出

    Loop

    End Sub

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