vb菜鸟问题，各位大虾帮助一下

放一个 text 控件Text1
Text1.ScrollBars = VbVertical
Text1.MultiLine = True
Text1.Text=""

Private Sub Form_Load()
Const n = 4
Dim i As Integer
Dim t As Integer
For i = 1 To n
For t = 1 To n - i
Text1.Text = Text1.Text + " "
Next t

For t = 1 To 2 * i - 1
Text1.Text = Text1.Text + "*"
Next t
Text1.Text = Text1.Text + vbCrLf
Next i
For i = n - 1 To 1 Step -1
For t = 1 To n - i
Text1.Text = Text1.Text + " "
Next t

For t = 1 To 2 * i - 1
Text1.Text = Text1.Text + "*"
Next t
Text1.Text = Text1.Text + vbCrLf
Next i
End Sub

建立一个COMMAND1控件,单击它,输入代码:

Private Sub Command1_Click()
For a = 1 To 7 Step 2
For b =