来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 07:10:23
用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 Su