用vb写杨辉三角形 11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 1 1 7 21 35 35 21 7 1 1 8 28 56 70 56 28 8 11 9 36 84 126 126 84 38 9 1如此 10行的 vb代码,输出时如上的图形排列.
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 14:25:55
用vb写杨辉三角形 11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 1 1 7 21 35 35 21 7 1 1 8 28 56 70 56 28 8 11 9 36 84 126 126 84 38 9 1如此 10行的 vb代码,输出时如上的图形排列.
用vb写杨辉三角形
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 38 9 1
如此 10行的 vb代码,输出时如上的图形排列.
用vb写杨辉三角形 11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 1 1 7 21 35 35 21 7 1 1 8 28 56 70 56 28 8 11 9 36 84 126 126 84 38 9 1如此 10行的 vb代码,输出时如上的图形排列.
Dim a(10, 10) As Long
Dim b(10) As String
Dim i As Byte
Dim j As Byte
a(0, 0) = 1
For i = 1 To 10
For j = 1 To 10
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)
Debug.Write(" " & a(i, j))
End If
Next
TextBox1.Text = TextBox1.Text & vbCrLf & b(i)
Debug.WriteLine("")
Next