这个代码不明白
功能是画一个正方形，边长等待用户输入，大于20就显示错误消息
Dim row As Integer
Dim colum As Integer
Dim result As Integer
Console.Write( "请输入个数： ")
result = Console.ReadLine
If result <= 20 Then
row = 1
Do While row <= result
colum = 1
Do While colum <= result
Console.Write( "* ")
colum = colum + 1
Loop
Console.WriteLine()
row = row + 1
Loop
Console.ReadLine()
Else
Console.WriteLine( "数字太大 ")
End If
=================================
上面的代码能正常显示一个正方形，但是下面为什么不可以，只是把row 和colum的初始化放到了上面：
Dim row As Integer = 1
Dim colum As Integer = 1
Dim result As Integer
Console.Write( "请输入个数： ")
result = Console.ReadLine
If result <= 20 Then
Do While row <= result
Do While colum <= result
Console.Write( "* ")
colum = colum + 1
Loop
Console.WriteLine()
row = row + 1
Loop
Console.ReadLine()
Else
Console.WriteLine( "数字太大 ")
End If
============================
上面的代码只是会显示一行的边，其余的不显示
为什么不能在一开始就声明变量的初始数值呢？
[解决办法]
在循环中有时变量row或者colum需要重新置1.你在声明时赋初值当然可以,但是把重新置1的语句删除就不行了.
