Возвести числа в некоторую степень - VB
Формулировка задачи:
Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.
Буду очень признателен вам за помощь.Решение задачи: «Возвести числа в некоторую степень»
textual
Листинг программы
'Public a, b, c, x, y Private Sub Form_activate() Dim a#, b#, c# ', x, y a = InputBox("Введите a", "Ввод") Print "result#(" & a & ")=" & result#(a) b = InputBox("Введите b", "Ввод") Print "result#(" & b & ")=" & result#(b) c = InputBox("Введите c", "Ввод") Print "result#(" & c & ")=" & result#(c) End Sub Private Function result#(x#) result# = x# * x# If x <= 0 Then result# = result# * result# 'If x > 0 Then ' x = x ^ 2 'Else ' x = x ^ 4 'End If 'Print y; "="; x End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д