:
While < >
Wend
DO...LOOP
( ).
:
a) Do While < >
Loop
)Do Until < >
Loop
:
) Do
Loop While < >
) Do
Loop Until < >
GoTo
.
:
GoTo
- . , . , .
With . , With, .
:
With
[]
End With
4. VBA
Qbasic 2 : SUB - Function. SUB END SUB , . . ( ) :
SUB ( )
[EXIT SUB]
END SUB
:
1. VBA Insert Procedure, (Sub) .
. , .
. (STATIC - , ).
CALL.
: CALL _ ( )
SUB (SUBROUTINE)
Y: X=1¸7
Dim Y as Single
Sub p1
REM SUB
FOR X=1 TO 7
CALL SUM1(X)
Debug.PRINT X=; X, Y=;Y
NEXT X
END Sub
SUB SUM1()
y=0
FOR K=0 TO 12
y = y + SQR(k+^2)
NEXT K
END SUB
------------------------------------------------------------------------------------------
|
|
( )
Sub integral(x)
B = 1.5: A=0
H = (B-A)/1000
S=0
FOR t=A TO B STEP H
S = S + (EXP(t*x)*(1+SIN(t)))/((1+COS(t))*H
NEXT t
End Sub
FUNCTION
-.
U: X=1¸7
-.
Sub P2
REM -
FOR X=1 TO 7
U = SUM1(X) + SUM2(X)
DEBUG.PRINT X=; X, U=;U
NEXT X
END SUB
FUNCTION SUM1(X)
S=0
FOR K=0 TO 5
S = S + SIN(X)/(1+k)
NEXT K
SUM1 = S
END FUNCTION
FUNCTION SUM2(X)
S=0
FOR K=0 TO 4
S = S + SQR(k*X)
NEXT K
SUM2 = S
END FUNCTION
: , , .
FOR I=1 3
A=InputBox(A=)
B=InputBox(B=)
C=InputBox(C=)
CALL P1(A,B,C)
NEXT I
DEBUG.PRINT "CYMMA="; S
END
SUB P1(A,B,C)
P = (A+B+C)/2
S1= SQR(P*(P-A)*(P-B)*(P-C))
DEBUG.PRINT "S1=";S1
S = S+S1
END SUB