Функция – формула пользователя STATISTICA Visual Basic

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;

- доцент
- кандидат юридических наук
- профессор кафедры

Оцените автора
Добавить комментарий