为自己加油

编一个程序，打印出下列图形，每行的星号个数用InputBox函数输入。

 

编一个程序，打印出下列图形，每行的星号个数用InputBox函数输入。

Private Sub Command 1_Click()

Dim i, j, n As Integer

n = InputBox(“Input n=”)

Print “n=”; n

For i = 1 To n

（显示前面空格，2分）

For j = 1 To i

Print“”;

Next

（显示*号，3分）

For j =1 To n

Print“*”;

Next

Print

NextEnd Sub