[VB] 輸入數值 印出n(2-25)層的巴斯卡三角形

Question

輸入2-30的數字
會印出n(2-25)層的巴斯卡三角形

如圖: 若輸入的數值為 5




圖片參考：http://img272.imageshack.us/img272/1276/1dh2.jpg

印出結果
有 "n 層的巴斯卡三角型為:"這字串 及 巴斯卡三角型

有什麼辦法 可以讓數字對齊些嗎 ?

Answer 1

" _ " 是為了對齊 你可以改用他種方法
Private Sub Command1_Click()
Dim s(30) As Integer, i As Integer, j As Integer, n As Integer
Dim prev As Integer, curr As Integer
Dim blank As String
Dim buf As String

blank = "___________________________________________________________________"
Do
n = InputBox("請輸入 2~25 的數字")
Loop Until IsNumeric(n)
s(1) = 1
Print Left(blank, n - 1) & "1"
For i = 2 To n
buf = Left(blank, n - i) & "1_"
prev = 1
For j = 2 To i - 1
curr = prev + s(j)
prev = s(j)
s(j) = curr
buf = buf & s(j) & "_"
Next j
s(i) = 1
buf = buf & "1"
Print buf
Next i

End Sub

2006-12-22 05:43:09 補充：
對齊 就看你要把資料輸出到那裡了
print 是到表格上
text 和 label 也可以當輸出用
祇要把字體改一改就可以了 (我用Courier)

Answer 2

硬碟要找硬碟醫院，能救回來才重要，我司就是找他們做出來的
必須要推，當初心急亂找錯店告訴我沒辦法，後來找又找到硬碟醫院，我告訴他真心要來救援，可以等，在他們努力下有找回來
太棒了，原來微軟張經理都找過他們
http://www.datamaster.com.tw