運作效果:
![](https://img.laitimes.com/img/__Qf2AjLwojIjJCLyojI0JCLicmbw5CO2cDNyYzNxUzM2U2NiRWO3cDN0YTZ0kTZkhzYhF2Nl9CX5d2bs92Yl1iclB3bsVmdlR2LcNWaw9CXt92Yu4GZjlGbh5yYjV3Lc9CX6MHc0RHaiojIsJye.png)
程式代碼:
Private Sub Command1_Click()
Dim a()
n = 10 'Val(Text1.Text)
Me.Cls
ReDim a(n + 1, n + 1)
For i = 1 To n
For j = 0 To i
a(1, i) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
Print a(i, j);
Next j
Next i
End Sub
學習總結:
算法的五大特性:
1、有窮性
2、确定性
3、可行性
4、輸入
5、輸出