这个代码不明白解决方案

这个代码不明白
功能是画一个正方形，边长等待用户输入，大于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( "*   ")