*
*#*
*#*#*
*#*#*#*





还有这个



       *
      *#*
     *###*
    *#####*

Private Sub Command1_Click()
s = "*#*#*#*"
For i = 1 To 4
Print Left(s, 2 * i - 1)
Next i
End Sub
 
Private Sub Command2_Click()
Print Tab(10); "*"
For i = 1 To 3
Print Tab(10 - i); "*"; String(2 * i - 1, "#"); "*"
Next i
End Sub

第一个也可以这样写
Private Sub Command1_Click()
Dim s As String
Print "*"
For i = 1 To 3
 s = s + "#*"
 Print "*"; s
 Next i
End Sub

谢了

第一题也可以这样写啊
Print “* ”
Print “*”&“#”&“* "
Print "*"&"#"&"*"&"#"&"*"
Print "*"&"#”&“*”&“#”&“*”&“#”&“*”
 

我是个新手,今天来看看