Question

谁知道VB输出杨辉三角形的代码怎么写?/

VB输出图形
1．输出杨辉三角形的1至9行，图形如下图所示。

Answer 1

先把form的autoredraw属性改成true，代码如下：
==========================
Option Explicit

Dim a(10, 10) As Long
Dim b(10) As String
Dim i As Byte
Dim j As Byte

Private Sub Form_Load()
a(0, 0) = 1
For i = 1 To 9
For j = 1 To 9
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

Answer 2

Private Sub Form_Load()
Dim m(15)
Dim im(90)
Debug.Print "Yang-Hui San Jiao Xing"
n = 9

jj = 0
For i = 1 To n
For l = 1 To n
m(l) = 0
Next l
k = 1:
m(1) = 1
l = i + 1
For j = 1 To l
k = k * (i - j + 1) / j
m(j + 1) = k
Next j
For ij = 1 To l
ji = jj + ij
im(ji) = m(ij)
Next ij
jj = jj + l
Next i
j = 1
For i = 1 To n
For k = 1 To i + 1
Debug.Print Tab(30 - i * 3 + k * 6); im(j);
j = j + 1
Next k
Debug.Print
Next i

End Sub

Answer 3

二楼的代码对，完成的很简洁，漂亮！

Answer 4

不错！！！！

Answer 5

没错，收藏一下，投二楼一票