用VB打印以下图形!* *** ***** *** *

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 11:52:38
用VB打印以下图形!* *** ***** *** *

用VB打印以下图形!* *** ***** *** *
用VB打印以下图形!* *** ***** *** *

用VB打印以下图形!* *** ***** *** *
Private Sub Command1_Click()
Dim n As Integer
n = 1
For i = 1 To 3
For j = 1 To n
Print "*";
Next j
n = n + 2
Print " ";
Next
n = 3
For i = 1 To 2
For j = n To 1 Step -1
Print "*";
Next j
n = n - 2
Print " ";
Next
End Sub