
1个回答
展开全部
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 17 Step 2
Form1.Print String(17 - i, " ") & String(i, "★")
Next i
End Sub
运行后点鼠标就行了。。。
Dim i As Integer
For i = 1 To 17 Step 2
Form1.Print String(17 - i, " ") & String(i, "★")
Next i
End Sub
运行后点鼠标就行了。。。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询