Описать процедуру вычисляющую степени чисел - VB
Формулировка задачи:
Описать процедуру PowerA234(A,B,C,D),вычисляющую вторую,третью и четвертую степень числа А и возвращающую эти степени соответственно в переменных B,C и D. (А-входной, B,C,D - выходные параметры;все параметры вещественные). С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел
Решение задачи: «Описать процедуру вычисляющую степени чисел»
textual
Листинг программы
Private Sub Command1_Click()
Dim A As Double, B As Double, C As Double, D As Double, i As Integer
Randomize
For i = 1 To 5
A = InputBox("A = ", , Round(Rnd * 20 + 10, 1))
Call PowerA234(A, B, C, D)
MsgBox "A = " & A & vbCrLf & _
"B = " & B & vbCrLf & _
"C = " & C & vbCrLf & _
"D = " & D
Next i
End Sub
Sub PowerA234(ByVal A As Double, ByRef B As Double, ByRef C As Double, ByRef D As Double)
B = A * A
C = B * A
D = C * A
End Sub