VB 倒星星

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim x As String
x = ""
For i = 5 To 1 Step -1
For j = 1 To i
x = x & "*"
Next
x = x & vbCrLf
Next
MsgBox(x)
End Sub
End Class