FOR i = 1 TO 10 IF MOD ( i , 3 ) < > 0 LOOP ELSE s = s + i ENDIF ENDFOR ? s
程序运行后,s的值是: 18 ;i的值是: 11 。6. 执行下面程序:
s=0 p=1 i=1
do while .T. if i>5 exit else
p=p*i s=s+p i=i+1 endif enddo ? i,s
程序运行结束时i的值是: 6 ,s的值是: 153 。 7.执行下面程序:
nResult=0 FOR n=1 TO 10 s=0
FOR m=1 TO n s=s+m ENDFor
6
nResult=nResult+s ENDFOR ? nResult,s
程序运行结束时 nResult的值是: 220 ,s的值是: 55 。 8.执行下面这个程序: i = 1 s = 0
DO WHILE i < = 5 s = s + Plus ( i ) i = i + 1 ENDDO ? s
FUNCTION Plus PARAMETERS x x = x + x RETURN x ENDFUNC
程序运行后,s的值为 30 ; i的值为 6 。 9. 执行下面程序:
? straa( \南京NJUE财经EDU大学网站cn\调用自定义函数FUNCTION straa
PARAMETERS cstr,m,n
FOR i=1 TO LEN(cstr) aa=ASC(SUBSTR(cstr,i)) IF aa>127 n=n+1 i=i+1 ELSE m=m+1 ENDIF ENDFOR
7
RETURN \ ENDFUNC
程序运行结束时,VFP主窗口显示m= 、n=_______ 。12 、 8 10.执行下面程序:
x=2 y=5 s1=aa1(x,y) ? s1,x*s1 function aa1 para L,W L=L+2
z=L*W return z endfunc
程序运行结束时s1的值是: 20 ,x*s1的值是: 40 。
11.在某数据库中有一个成绩表(cj.dbf),其表结构及所含的记录如下所示。 执下程
成绩表 (cj.dbf ) 结构 字段名 xh kcdh CJ xh 010201 010201 010201 010202 010202 成绩表 (cj.dbf)的记录内容 kcdh 01 02 03 03 04 cj 78 82 80 70 58 xh 010202 010301 010301 010301 kcdh 02 01 03 06 cj 80 80 85 78 现行列序:
数据类型 字段含义 C , 6 C , 2 N , 3
学号 课程代号 成绩 CLOSE TABLE ALL USE CJ nSum=0 nAvg=0 n=0
8
k=RECCOUNT() FOR I=1 TO k IF kcdh=\ nSum=nSum+cj n=n+1 ELSE
nAvg=nAvg+cj ENDIF SKIP ENDFOR
nAvg=nAvg/(k-n) ? nSum,nAvg
程序运行结束时,nSum的值是 、nAvg的值是________。235 、 76
12.Store “asdf” to c,cc
P=space(0) Do while len(c)>0 P=left(c,1)+p C=substr(c,2) Enddo ? p
程序运行后,P的值是__”fdsa”____。
13. 已知xscj.dbf中含有如左表所示的记录(表中所示为xscj表中记录的物理顺序),现运行下面程序:
close all use xscj go 2 s=0 ncount=0
Xh 950101 950102 950201 950101 kcdh 01 02 02 03 cj 83 80 70 87 9
scan for cj>=80 s=s+cj
ncount=ncount+1 endscan ? s,ncount
程序运行结束时s的值是: 250 ,ncount的值是: 3 。 14.有一成绩表( cj.dbf ),它的结构及所含的记录如右表所示。执序: s = 0 i = 0
SCAN FOR kcdh = \ i = i + 1 s = s + cj ENDSCAN
? \平均成绩为:\
程序运行结束后, i的值是 5 ; 显示的平均成绩是 78.0 。 15.执行下面这个程序:设有表文件CJB.DBF,表中共有30条记录,记录内容如下:
学号 XH 990201 990201 990201 990201 990201 990201 990202 990202 990202 990202
行下面的程
xhkcdhcj2110101018621101020190211010301762110102027321101030283211010402662010211017020102120168课程代号 KCDH 01 02 03 04 05 06 01 02 03 04 成绩 CJ 78 80 80 73 82 95 63 62 69 93 学号 XH 990202 990202 990301 990301 990301 990301 990301 990301 990302 990302 课程代号 KCDH 05 06 01 02 03 04 05 06 01 02 成绩 CJ 95 84 63 62 82 93 95 76 78 80 学号 XH 990302 990302 990302 990302 990303 990303 990303 990303 990304 990304 课程代号 KCDH 03 04 05 06 01 02 03 04 01 03 成绩 CJ 89 98 68 94 87 78 85 80 51 86 10