Определить значение квадратного корня для любого вводимого пользователем числа - 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

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы