匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 2 0 年前

請幫我註解(vb 問題)

Private Sub Command1_Click()

Open "c:\890302.t01" For Input As #1

Input #1, N, D1, D2

Close #1

For I = 0 To 100

R = N Mod 10

N = N \ 10

S = S + R * D1 ^ I

If N = 0 Then Exit For

Next I

For I = 0 To 100

R = S Mod D2

S = S \ D2

Ans = R & Ans

If S = 0 Then Exit For

Next I

Print "第二題結果:"; Ans

End Sub

3 個解答

評分
  • 匿名使用者
    2 0 年前
    最佳解答

    Private Sub Command1_Click() 'Command1按鈕被按下時引發的事件

    Open "c:\890302.t01" For Input As #1 '以Input的方式開啟 c:\890302.t01 檔案

    Input #1, N, D1, D2 '讀入3筆資料放進 N,D1,D2三個變數裡

    Close #1 '關檔

    For I = 0 To 100 '迴圈0 To 100

    R = N Mod 10 '把 N 除以10的餘數 放進 R 中

    N = N \ 10 '把N除以10後的整數部份放回N

    S = S + R * D1 ^ I '把 S 加上 (R乘以(D1的I次方)) 然後放回S裡

    If N = 0 Then Exit For '如果N=0 , 跳離迴圈

    Next I

    For I = 0 To 100 '迴圈0 To 100

    R = S Mod D2 '把 S 除以D2的值放進R

    S = S \ D2 '把S除以D2後答案的整數部份放回S

    Ans = R & Ans '把R 和 Ans相連後放進Ans

    If S = 0 Then Exit For '如果S=0,離開迴圈

    Next I

    Print "第二題結果:"; Ans '顯示字串 "第二題結果:" 及 Ans 內容

    End Sub '事件結束

  • 2 0 年前

    寫好的註解比寫程式難

  • Lv 6
    2 0 年前

    自己的作業要自己做。

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