請教vb(visual basic)的程式設計

共15層

第n層顯示123....n....321的數字

若數字n大於9

則只取其個位數顯示

並呈正金字塔狀

謝啦

1 個解答

評分
  • 9 年前
    最佳解答

    Private Sub Form_Load()

    Open App.Path & "\out.txt" For Output As #1

    For i = 1 To 15

    Print #1, Space(15 - i);

    For j = 1 To i

    Print #1, CStr(j Mod 10);

    Next

    For j = i To 1 Step -1

    If j <> i Then

    Print #1, CStr(j Mod 10);

    End If

    Next

    Print #1,

    Next

    Close #1

    End

    End Sub

    2011-11-23 21:20:22 補充:

    我直接把文字Print在檔案喔

    Print在表單上面金字塔會歪掉= =

    參考資料: 自己
還有問題?馬上發問,尋求解答。