杨辉三角如何用VB语言表示简单点

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/03 00:24:29
杨辉三角如何用VB语言表示简单点
x){6wŋ}OvtX>鲦'{>"/V4X]51Puِe';V=ɎY-:`̲ĒT$l MsN1vUHTp,VKI)*%hx8Wh(XžO[Xl%%dw*jB J`&!@(d5TWȃ e2B: 187 66 l,P$ ˀ^+ZER+JAŮy)/.HGEں

杨辉三角如何用VB语言表示简单点
杨辉三角如何用VB语言表示
简单点

杨辉三角如何用VB语言表示简单点
来个短一点的,
Private Sub Form_click()
Cls
Dim a() As Single
n = Val(InputBox("请输入行数","杨辉三角",5))
ReDim a(n + 1,n + 1)
For i = 1 To n
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)
Print a(i,j);
Next j
Print
Next i
End Sub