VB中这样为什么不能出现一个边长为J的方形？

来源：百度知道 编辑：UC知道 时间：2024/06/23 15:09:22
Private Sub Command1_Click()
Dim N As Integer
Dim J As Integer
Dim R As Integer
J = Text1.Text
R = 1
N = 1
P = ""
While R <= J
While N <= J
P = P + "*"
N = N + 1
Wend
R = R + 1
Wend

Label1.Caption = P
End Sub

Text1.Text=5时，最终结果如下：
*****
*****
*****
*****
*****

Private Sub Command1_Click()
Dim N As Integer
Dim J As Integer
Dim R As Integer
J = Text1.Text
R = 1
N = 1
p = ""
While R <= J
While N <= J
p = p + "*"
N = N + 1
Wend
p = p + vbCrLf '这里加个回车符
N = 1 '这里对N回1操作，为下一循环作准备
R = R + 1
Wend
Label1.Caption = p
End Sub

当然不能