VB题。编写程序使能输出如下图形 ***** **** *** ** *

首先请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函数即可，谢谢~~~