Возвести числа в некоторую степень - 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