用print打印出“*”和“空格”组成的三角形等图形
发布网友
发布时间:2022-05-20 06:20
我来回答
共1个回答
热心网友
时间:2024-03-27 06:02
Private Sub Command1_Click()
Dim r As Integer, p As Integer, cs As String
r = 9 '要打印的行数
cs = "*" '要打印的字符
p = 20 '初始打印的位置
'打印正三角形图形,其他图形稍微改动代码即可..
For i = 1 To r
Print Space(p) & cs
cs = cs & "**"
p = p - 1
Next i
End Sub