Определить значение квадратного корня для любого вводимого пользователем числа - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д