题目来源:大工慕课 链接
作者:Caleb Sung
题目要求
要求输出以下形状:
*
**
***
****
*****
参考代码
Private Sub Command1_Click()
Print
For i = 1 To 5
Print String(i, "*")
Print String(i, " ")
Next i
End Sub
题目来源:大工慕课 链接
作者:Caleb Sung
要求输出以下形状:
*
**
***
****
*****
Private Sub Command1_Click()
Print
For i = 1 To 5
Print String(i, "*")
Print String(i, " ")
Next i
End Sub