vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/15 00:03:18
vb编写杨辉三角格式1111211331……193684126126843691vb编写杨辉三角格式1111211331……193684126126843691vb编写杨辉三角格式1111211331

vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1
vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1

vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1
这是我从前抄的,理解不深,但效果很好:
n = Val(Text1.Text) ' 输入行数.如果只要求输出10行,可去掉这一句,把后面的n换成10
ReDim a(n + 1,n + 1),b(n + 1,n + 1)
Cls
k = 8
For i = 1 To n
Print String((n - i) * k / 2 + 1," ");
For j = 1 To i
a(i,1) = 1
a(i,i) = 1
a(i + 1,j + 1) = a(i,j) + a(i,j + 1)
b(i,j) = Trim(Str(a(i,j)))
Print b(i,j); String(k - Len(b(i,j))," ");
Next j
Print
Next i

问杨辉去。。