作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 03:05:43
用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