Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/hibernate/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Visual studio VB为。下一个循环-数字的平方根_Visual Studio - Fatal编程技术网

Visual studio VB为。下一个循环-数字的平方根

Visual studio VB为。下一个循环-数字的平方根,visual-studio,Visual Studio,如何在程序的下一个循环中正确使用。必须为下一个循环的设置计数器吗。例如num=1到1000或者我可以让用户用计数器输入任何数字 Module Module1 Sub Main() Dim sq As Integer For num As Integer = num >= Console.WriteLine("Please enter a number") num = Console.Read() sq =

如何在程序的下一个循环中正确使用
。必须为下一个循环的
设置计数器吗。例如
num=1到1000
或者我可以让用户用计数器输入任何数字

Module Module1

   Sub Main()
    Dim sq As Integer


    For num As Integer = num >= 



        Console.WriteLine("Please enter a number")
        num = Console.Read()

        sq = num * num



        Console.WriteLine("the square root is " & sq)

    Next

End Sub
End Module

下面介绍如何创建一个Sqrt函数并成功地使用它,无需使用for循环来完成您想要做的事情

Function Sqrt(x)As Integer
    Dim root As Integer
    root = x
    root = root ^ (1 / 2)    
    Sqrt = root    
End Function

Private Sub Command1_Click()
    Num = InputBox("Please enter a number")    
    Print "The square root of " & Num & " is " & Sqrt(Num)
End Sub

问题是什么?@Issac。我怎样才能让用户输入一个数字并在下一个循环中找到它的平方。那么真正的问题是什么呢?如果要读取整数,为什么不搜索?如果你要平方这个数,为什么要求这个数的平方根?为什么要求用户输入1000次?在使用vb 6.0之前,您应该先学习它