武夷山市中心在哪:用VB编杨辉三角，高手进来帮偶指下错误。。。

来源：百度文库编辑：中科新闻网时间：2024/05/15 02:29:17

Private Sub Form_Activate()
M = Val(InputBox("请输入行数", "", ""))
'ReDim A(m, m)
ReDim A(1 To M, 1 To M)
A(1,1)=1:A(2,1)=1:A=(2,2)=1
CurrentX = 50
CurrentY = 100
Print Str(A(1, 1))
CurrentX = 50
Print Str(A(1, 1)) & Space(3) & Str(A(2, 2))
For I = 3 To M
A(1, 1) = 1
s1 = Str(A(I, 1))
For J = 2 To M
A(I, J) = A(I - 1, J - 1) + A(I - 1, J)
If J = I + 1 Then Exit For
s1 = s1 & Space(4) & Format(A(I, J), "!@@@")
Next J
CurrentX = 50
Print s1
Next I
End Sub

运行的时候总是A(1,1)=1:A(2,1)=1:A=(2,2)=1这里出现问题。

Option Base 1
Dim a() As Integer
Private Sub Form_Click()
n = Val(InputBox("请输入打印行数"))
ReDim a(n, n)
For i = 1 To n
a(i, 1) = 1: a(i, i) = 1
Next i
For i = 3 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
Next i
For i = 1 To n
Print Tab(14 - i);
For j = 1 To i
Print a(i, j);
Next j
Print
Next i
End Sub

A=(2,2)=1
老大你没搞错吧....
1(2,2)=1 就完了啊
怎么多了个=号....
汗

用VB编杨辉三角，高手进来帮偶指下错误。。。关于VB，VB高手进来~！请VB高手进来。 VB高手进来帮帮忙 VB高手进来 VB高手进来！！！玩三角周的高手进来~!~ VB加密文件夹，VB高手进来！ VB编程高手进来帮帮忙 VB 问题高手进来