VB问题：打印如下所示的杨辉三角形
答案:1 悬赏:0 手机版
解决时间 2021-01-28 13:54
- 提问者网友：呐年旧曙光
- 2021-01-28 06:12
VB问题：打印如下所示的杨辉三角形
最佳答案
- 五星知识达人网友：雪起风沙痕
- 2021-01-28 07:47
下面有杨辉三角20行的代码,你可修改后用:
Option Explicit
Dim a(21, 21) As Long
Dim b(21) As String
Dim I As Byte
Dim j As Byte
Private Sub Form_Load()
a(0, 0) = 1
For I = 1 To 20
For j = 1 To 20
a(I, j) = a(I - 1, j - 1) + a(I - 1, j)
If a(I, j) <> 0 Then
b(j) = b(j - 1) & " " & a(I, j)
End If
Next
Print b(I)
Next
End Sub
Option Explicit
Dim a(21, 21) As Long
Dim b(21) As String
Dim I As Byte
Dim j As Byte
Private Sub Form_Load()
a(0, 0) = 1
For I = 1 To 20
For j = 1 To 20
a(I, j) = a(I - 1, j - 1) + a(I - 1, j)
If a(I, j) <> 0 Then
b(j) = b(j - 1) & " " & a(I, j)
End If
Next
Print b(I)
Next
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯