UC知道关于VB的一个小程序
来源：百度知道 编辑：UC知道 时间：2024/05/17 05:28:03
一个算法的问题,在界面上输出金字塔形,例如:
1
2 2
3 3 3
4 4 4 4
.................
有知道的帮忙写一下!谢谢啦!
1
2 2
3 3 3
4 4 4 4
.................
有知道的帮忙写一下!谢谢啦!
dim m
m＝inputbox(输入一个数字)
m＝fix(m)
'm是行数
for i=1 to m
for a=1 to i
print i;
next a
print
next i
Text1.MultiLine = True
For i = 1 To 4
For j = 1 To i
Text1.Text = Text1.Text & i
Next
Text1.Text = Text1.Text & vbCrLf
Next
用个循环就可以了啊
同意