推 soonsoondog:請問您的宣告如果換成 Dim i,j,u as integer 218.165.94.2 05/13
→ soonsoondog:不是比較簡單嗎? 218.165.94.2 05/13
推 fumizuki:如果要省略型態 u又何必保留呢 210.58.156.43 05/13
推 fumizuki:明確的型態比較好... 210.58.156.43 05/13
我看得懂這些數字間的關係... 卻看不懂你的說明...orz
※ 引述《BearWu (B.r)》之銘言：
: 巴斯卡三角形!!
: 1
: 1 1
: 1 2 1
: 1 3 3 1
: 1 4 6 4 1
: 簡單的說，就是(X + Y)^2 = X^2 + 2XY + Y^2
: 像上面的第三排，他們的係數就是
: 1 2 1
: 就是這樣子了!!!
這是我的寫法...好像寫的很複雜喔..orz
Private Sub Form_Load()
Dim i As Integer, j As Integer, u As Integer, x(), y()
AutoRedraw = True '自動重繪
FontName = "細明體" '點陣字型
u = 4 '排數 - 1
'陣列初始化: 宣告一個巴斯卡三角形陣列
For i = 0 To u
ReDim Preserve x(i), y(i): x(i) = y
Next
'巴斯卡三角形: (x,y) = (x-1,y-1)+(x-1)(y)
For i = 0 To u
For j = 0 To u
If i = 0 Then
x(j)(i) = 1
Else
If i <= j Then x(j)(i) = x(j - 1)(i - 1)
If j > i Then x(j)(i) = x(j)(i) + x(j - 1)(i)
End If
Next
Next
'將陣列內容列印至表單，三角形排列。
For i = 0 To u
Print Space(2 * (u - i));
For j = 0 To u
If j <= i Then Print Format(x(i)(j), "@@") & " ";
Next
Print
Next
End Sub
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.222.155.162
※ 編輯: fumizuki 來自: 61.222.155.162 (05/13 13:10)