Private Sub Command1_Click()
a = 16
b = 6 '可以设置图形的水平位置
For i = 1 To 6
Print Space(b); '控制缩进位置,也就是每行开始时前面输出多少个空格
Print String(a,"☆") '输入a个☆
a = a - 3 '下一行少输出3个☆
b = b + 3 '下一行开始多输3个空格
Next i
a = a + 3
b = b - 3
For i = 1 To 5 '这个循环同上面一样
a = a + 3
b = b - 3
Print Space(b);
Print String(a,"☆")
Next i
End Su