Option Base 1
Function Power(X,Y) ‘Определим первую функцию — формулу
P =(X^Y)
Power = P
End
Function
Function Vower(X,Y) ‘Определим вторую функцию — формулу
W =Sqrt(X^2+Y^2)
Vower =W
End Function
‘Теперь используем их в одной программе.
Sub Main
Dim i As
Integer
GFD=»
»
For i=1 To
10
GFD=GFD+»i=»+Str(i)+»;»+Str(Power(2+i,4-i))+»;»+Str(Vower(2+i,4-i))+»;»
Next i
GFD=»Получите и пользуйтесь»+GFD
Debug.Print
GFD
MsgBox GFD
End Sub
‘Получите и пользуйтесь i= 1; 27; 4.24264068711928;i= 2; 16;
4.47213595499958;
‘i= 3; 5;
5.09901951359278;i= 4; 1; 6;i= 5; .142857142857143; 7.07106781186548;
‘i= 6;
.015625; 8.24621125123532;i= 7; 1.37174211248285E-03; 9.48683298050514;
‘i= 8;
.0001; 10.770329614269;i= 9; 6.20921323059155E-06; 12.0830459735946;
‘i= 10; 3.34897976680384E-07; 13.4164078649987;