VB在窗体上打印以下由星号组成的菱形图案。其中,输出行数可以由用户指定。

Question

RT，代码怎么写？
找到了，加想到一些：
Private Sub Command1_Click()
w = CDbl(Text1.Text)
For i = 1 To w
Print Space(w - i); String(i * 2 - 1, "*")
Next i
For i = w - 1 To 1 Step -1
Print Space(w - i); String(i * 2 - 1, "*")
Next i
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
好了，结果就以上这样

Answer 1

Private Sub Command1_Click()
'VB在窗体上打印以下由星号组成的菱形图案。其中,输出行数可以由用户指定
'http://zhidao.baidu.com/question/332172096.html?push=category
Static X%
X = Val(InputBox("输入行数", "输入", X))
If X <= 0 Then Exit Sub
Cls
Print "普通菱形"
For i = 1 To X
sOut = "*"
Print Space(X - i);
While Len(sOut) < X
sOut = sOut & "*"
Wend
Print sOut
Next
End Sub

输入5时,
*****
*****
*****
*****
*****

Answer 2

用循环语句