第一题
Dim x As Integer = 0
Dim y As Integer = 0
Dim word As String For x = 0 To 4
For y = 4 To x Step -1
word &= "* "
Next
word &= vbCrLf
Next Label1.Text = word
第二题
Dim x As Integer = 0
Dim y As Integer = 0
Dim word As String For x = 0 To 4
For y = 0 To x
word &= (5 - y) & " "
Next
word &= vbCrLf
Next Label1.Text = word