m0
1Do
j1Fori1To
j
jiNextisumsum1
j
1LoopWhile1
j0000001Pri
tsum
E
dSub
编写程序，输出下列三角形：总行数通过键盘输入。
I
putbox输入5运行结果如上图所示
代码Optio
ExplicitPrivateSubComma
d1_Click
DimiAsI
tegerjAsI
teger
AsI
tegerbegi
AsI
teger
I
tValI
putBox