1.将C改写成VB数加上268后再开方
2.将C改写成VB输出分行与列

将C改写成VB数加上268后再开方

       Sub main()

       Dim i&,源源码 x&, y&, z&

       For i = 1 To 

          x = Sqr(i + ) ' 　　/*x为加上后开方后的结果*/

           y = Sqr(i + ) '　　/*y为再加上后开方后的结果*/

             If (x * x = i +  And y * y = i + ) Then '/*如果一个数的平方根的平方等于该数，这说明此数是码转京东机油溯源码完全平方数*/

               Debug.Print

               Debug.Print i

             End If

       Next

       End Sub

将C改写成VB输出分行与列

       Sub main()

         Dim i%, j%, result%

         Debug.Print

         For i = 1 To 9

            For j = 1 To 9

                 result = i * j

                 Debug.Print i; "*"; j; "="; result, '/*-3d表示左对齐，占3位*/

               Next

             Debug.Print  '/*每一行后换行*/

       Next

       End Sub