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

Question

共15層

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

若數字n大於9

則只取其個位數顯示

並呈正金字塔狀

謝啦

Answer 1

最佳解答

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在表單上面金字塔會歪掉= =

參考資料： 自己