四. 写出下列程序运行后的结果
1.SET TALK OFF
M=3
DO WHILE M<10
N=2
DO WHILE N<=M-1
IF INT(M/N)=M/N
EXIT
ENDIF
IF N=M-1
? M
ENDIF
N=N+1
ENDDO
M=M+1
ENDDO
SET TALK ON
2.SET TALK OFF
A=3
B=5
DO PP WITH 2*A,B
SET TALK ON
RETURN
PROCEDURE PP
PARAMETERS X,Y
CLEAR
S=X*Y
? “S=”+STR(S,3)
RETURN
3. PUBLIC A
SET TALK OFF
A=1
C=5
DO SUB
? “主程序中:A,B,C”,A,B,C
SET TALK ON
RETURN
PROCEDURE SUB
PUBLIC B
PRIVATE C
A=A+1
B=2
C=3
D=4
? “SUB中:A,B,C,D”,A,B,C,D
RETURN
五. 请编出实现下面表单所需的事件代码