label做成数组，Alignment=2
,30个，宽度要很长哟
Private Sub Command2_Click()
Dim a(29, 29) As Long
Dim i As Integer, j As Integer, n As Integer
For i = 0 To 29
a(i, 0) = 1
For j = 1 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
a(i, i) = 1
Next i
For i = 0 To 29
Label1(i).Caption = ""
For j = 0 To i
Label1(i).Caption = Label1(i).Caption & " " & a(i, j)
Next j
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024