vb 输出下列图形 急用

Private Sub Form_Click()
Dim i As Integer
For i = 5 To 1 Step -1
Print String(i, "*")
Next i
End Sub

public sub printstars()
dim i as integer
for i =1 to 5
print string("*",i)
print vbcrlf
next
end sub

应该就这样了，我系统里面没有vb，你自己测试吧。

Dim b As Integer
For b = 5 To 1 Step -1
Print String(b, "*")
Next b