vb中一维数组输出杨辉三角,vb编程输出中空三角形图案

私有子命令1 _ click (

Cls

Dimx () )

n=val(inputbox ) '')

福瑞=1吨

x(I，1 )=1:x(i ) I，I )=1

Nexti

福里=2吨

Forj=1Toi-1

x(I，j )=x(I-1，j-1 )=x(I-1，j ) ) ) ) )

Nextj

Nexti

福瑞=1吨

printstring(5*(n-I )、'')；

Forj=1Toi

s=' ' '

fork=5-len(ltrim(str(x ) I，j ) ) ) To1Step-1

s=s ' '

Nextk

s=sltrim(str(x ) I，j ) ) ) String(5) 5，'')

打印；

Nextj

Nexti

最终辅