首先请LZ在窗口界面设置一个按钮把，名字就叫做Command1，然后在代码编辑窗口输入代码如下：
Private Sub Command1_Click()
For i = 1 To 5
For d = 1 To i
Print "*"
Next
d = 0
Print Chr(10) & Chr(13)
Next
End Sub
不知道写的好不好啊，如果有需要请直接替换print函数即可，谢谢~~~
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024