Question

我有一份题目，有谁可以帮我答一下，急！！！！！今天就要答案，谢谢！！！！！

四、读程序，回答问题
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
问题：叙述该程序的功能。

Answer 1

第一题：.F.。因为N=.F. Y=.T. 然后先对Y做非操作，再和N进行或操作。结果自然是.F.

第二题：
（1）N=4，找子串出现的位置
（2）数据库名为XJS.DBF，从第4个字符起选3个字符。
（3）功能：打开XJS.DBF数据库，彻底删除第4条记录（无法恢复）。

第三题：显示结果为EDCBA，程序从字符串里第5个字符开始，每次读1个字符。

第四题：如果输入X-Y，Z应该等于-1，这样S=0（未被初始化）

第五题：
（1）N=0，B=0
（2）程序当A大于5时退出循环，A在每个循环加1，所以循环运行了5次。

第六题：当键盘输入字母‘Y’或‘y’或‘N’或‘n'时会退出循环

Answer 2

...VFP...不是很懂...