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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/24 05:36:06
用VB打印以下图形!*************用VB打印以下图形!*************用VB打印以下图形!*************PrivateSubCommand1_Click()DimnA

用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