Question

求位大大帮忙用vb的一维数组且简单的编程语言编个杨辉三角的计算程序

Answer 1

Private Sub Command1_Click()
Dim a
n = InputBox("输入一个正整数")
ReDim a(n, n)
For i = 1 To n
For j = i To n
If i = j Then a(i, j) = 1
a(i, 1) = 1
Next j, i
For i = 2 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n
For j = 1 To n
Print a(i, j); " ";
Next j
Print
Next i
End Sub

追问

谢谢 虽然你是二维的 还是谢谢回答了

Answer 2

dim N as integer
N=inputbox("输入行数")
dim sz(20)
a(1)=1
for i=1 to N
print tab(40-2*i);a(1);
for j=I to 2 step -1
a(j)=a(j-1)+a(j)
print a(j);
next
a(I+1)=1
print a(I+1)
next

追问

下标越界诶诶 咋办？

Answer 3

不懂爱

追问

好吧 谢谢

追答

我用易语言编程也遇到过差不多的问题，数组成员引用下标超出范围，
应该先判断一下a里面是否有内容

追问

老师给解了 虽然搞不懂 但还是看得懂的~~~哈哈

追答

哦