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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 11:06:20
vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1
xRMO1+.nu+h\h<cx.D|AŨ# rmYOg*x7̛Vy71OWŝY?q"1aipaj+n0Eb;u3ߡZ 90͋NlGfhSS5^Ң缛՗ΙTUDt =Uz_x-eɊfm[4SVmcU/E!VxqqtW-:Fr'j} yڔq`(Kj)$XSp(0'Lȁp_uG$WJB! i"dwyl]A3IȀGik.uŦɀE+$Ӝ1~='?La t}n,

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

问杨辉去。。