杭州交通信息网蔡英文上台后两岸局势:vb难题怎么就是不会呢？？请指教
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 09:22:45
功能是：当按下“显示杨辉三角形”按钮时，提示从键盘输入一个数值n，并在Picture1中显示n行杨辉三角形，该程序不完整，请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。
代码如下：
Private Sub Command1_Click()
'当n=5时的三角形为
'1
'1 1
'1 2 1
'1 3 3 1
'1 4 6 4 1
Dim n%, a() As Long
Dim i%, j%
n = InputBox("请输入需要显示的行数N:")
ReDim a(n)
Picture1.Cls
For i = 1 To n
a(1) = 1
a(i) = 1
For j = i - 1 To 2 Step -1
a(j) = (1)
Next j
For j = 1 To i
Picture1.Print Tab(6 * (j - 1)); a(j);
Next j
(2)
Next i
End Sub
怎么改了一下就不会了。
代码如下：
Private Sub Command1_Click()
'当n=5时的三角形为
'1
'1 1
'1 2 1
'1 3 3 1
'1 4 6 4 1
Dim n%, a() As Long
Dim i%, j%
n = InputBox("请输入需要显示的行数N:")
ReDim a(n)
Picture1.Cls
For i = 1 To n
a(1) = 1
a(i) = 1
For j = i - 1 To 2 Step -1
a(j) = (1)
Next j
For j = 1 To i
Picture1.Print Tab(6 * (j - 1)); a(j);
Next j
(2)
Next i
End Sub
怎么改了一下就不会了。