Question

VB中求杨辉三角 下面这个哪里有问题呀

Dim a() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
ReDim a(n, n)
For i = 0 To n
For j = 0 To i
If i = 1 Or j = i Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Picture1.Print a(i, j);
Next
Picture1.Print
Next
End Sub

Answer 1

代码已经调试：
Dim a() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
ReDim a(n, n)
For i = 0 To n
For j = 0 To i
If i = 1 Or j = i Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, IIf(j > 0, j - 1, j)) + a(i - 1, j) '这里增加而来IIF
End If
Picture1.Print a(i, j);
Next
Picture1.Print
Next
End Sub

追问

看不懂。。 a(i, j) = a(i - 1, IIf(j > 0, j - 1, j)) + a(i - 1, j) '这里增加而来IIF
a(i - 1, IIf(j > 0, j - 1, j))是 个什么呀

追答

var = IIf(j > 0, j - 1, j)相当于if分支语句

If j>0 then
var=j-1
Else
var=j
End if

追问

谢谢 要想把这个杨辉三角打印出来后 是一个等腰三角形 那应该是哪个位置加Tab 呢

追答

Dim a() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
ReDim a(n, n)
For i = 0 To n
For j = 0 To i
If i = 1 Or j = i Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, IIf(j > 0, j - 1, j)) + a(i - 1, j)
End If
Picture1.Print a(i, j);
'Picture1.Print Tab;
Next
Picture1.Print Tab(n)
Next
End Sub

Answer 2

测试了一下，一点点小错
Dim a() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
ReDim a(n, n)
For i = 0 To n
For j = 0 To i
If j = 0 Or j = i Then '错在这里不是i=1
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Picture1.Print a(i, j);
Next
Picture1.Print
Next
End Sub

追问

恩 谢谢
那接着这个程序 把杨辉三角变成等腰三角形怎么变呀