张大千 观音大士:我有一份题目，有谁可以帮我答一下，急！！！！！今天就要答案，谢谢！！！！！

四、读程序，回答问题
7．I=0
DO WHILE I<10
I=I+1
IF INT(I/2)=I/2
? " 987"
LOOP
ENDIF
? "ABC"
ENDDO
执行上面程序时，语句 ? "ABC" 被执行了几次？
8． SET TALK OFF *SUB.PRG
X=10 PARAMETER B , A
A=20 PRIVATE X
B=30 X=A+10
DO SUB WITH A,B A=A+B
?X,A,B B=B+A
SET TALK ON ?X , A , B
RETURN RETURN
程序执行结果：
9. *main.prg *sub.prg
SET TALK OFF PARAMETER Y , X
X="ABC" X=STR(X ,4 ,1)
Y=78.9 Y=X+Y
M="DOG" A1=SUBSTR(M ,1,1)
DO SUB WITH X,Y M=SUBSTR(M , 3 ,1)+"OO"+A1
?X , Y , M ?X , Y , M
RETURN RETURN
程序的执行结果为：
10．有如下程序：
主程序MAIN.PRG： 子程序 SUB.PRG
A=1 PARAMETER N, SUM
B=4 FOR K=1 TO N
S=0 SUM=SUM+K
DO SUB WITH B,S A=A+1
? A, B , S ENDFOR
RETURN ?A , K, SUM
RETURN
11． SET TALK OFF 问题：简述程序完成的功能
CLEAR
USE 成绩库
DO WHILE .NOT. EOF()
IF 成绩<60
SKIP
LOOP
ENDIF
DELETE
SKIP
ENDDO
PACK
USE
SET TALK ON
RETURN
12． SET TALK OFF 若输入数据为：.t.
ACCEPT "输入一个数据：" TO D 则程序执行结果为：
T = UPPER(TYPE(D))
DO CASE
CASE T='N'
Y='数值型
CASE T='C'
Y='字符型'
CASE T='D'
Y='日期型'
CASE T='L'
Y='逻辑型'
ENDCASE
? D,Y
SET TALK ON
RETURN
13．SET TALK OFF
KEY=SPACE(8)
N=0
DO WHILE .T.
@5,5 SAY "请输入密码：" GET KEY PICT "XXXXXXXX"
READ
IF KEY= ="12345678"
CLEAR
@10,10 SAY "欢迎使用本系统！"
RETURN
ELSE
N=N+1
IF N<3
WAIT "输入密码不正确，请重新输入！"
ELSE
@20,0 SAY "输入密码错误，您无权使用本系统！"
QUIT
ENDIF
WAIT " "
ENDIF
ENDDO
SET TALK ON
问题：叙述该程序的功能。