Определить значение квадратного корня для любого вводимого пользователем числа - VB
Формулировка задачи:
Определить значение квадратного корня для любого вводимого пользователем числа.
Решение задачи: «Определить значение квадратного корня для любого вводимого пользователем числа»
textual
Листинг программы
Dim z As Integer
Dim s As Integer
Private Sub Command1_Click()
CurrentY = 1400
z = InputBox("Введите целое положительное число", _
"Запрос числа")
While z < 1000
s = Sqr(z)
CurrentX = 100
Print "Корень квадратный из числа "; z; _
"равен"; s
z = InputBox("Введите челое положительное число", _
"Запрос числа")
Wend
Label1.Caption = "Спасибо вычисления законченны"
End Sub