9.0

246
Sub IdentityArray(A()) ' A() is an array of numbers
For
I = LBound(A) To UBound(A)
A(I) = I
Next I
End
Sub
Sub CalcArray(A(),B,C) ' A() is an array of numbers
For
I = LBound(A) To UBound(A)
A(I) = A(I)*B+C
Next I
End
Sub
Sub ShowArray(A()) ' A() is an array of numbers
For
I = LBound(A) To UBound(A)
Debug
.Print "(";I;")=";A(I)
Next I
End
Sub
Sub Main
Dim
X(1 To 4)
IdentityArray X() ' X(1)=1, X(2)=2, X(3)=3, X(4)=4
CalcArray X(),2,3 ' X(1)=5, X(2)=7, X(3)=9, X(4)=11
ShowArray X() ' print X(1), X(2), X(3), X(4)
End
Sub
Tan Function
Syntax
Tan(Num)
Group
Math
Description
Return the tangent.
Parameter Description
Num Return the tangent of this numeric value.
Example
Sub Main
Debug
.Print Tan(1) ' 1.5574077246549
End
Sub
Text Dialog Item Definition
Syntax