第一篇：vfp程序题总结
五．程序题 在Text1中输入一个3位自然数，分解求和的结果存入Text2中
x= thisform.text1.value a=int【1 】
b=int 【 2】
c=【 3】
s=【 4】
thisform.text2.value=【5 】
x/100(x-a*100)/10 x-a*100-b*10 a+b+c s 2 文本框Text1中输入的值与文本框Text2中输入的值交换
a= thisform.text1.value b= thisform.text2.value d=【1 】
【2 】
【3 】=d thisform.text1.value=【4 】
thisform.text2.value=【 5】
a a=b b a b 3 已知任意一个三角形的三条边为a、b、c，求其面积。
a=thisform.text1.value b=【 1】
c=【 2】
p=(a+b+c)/【3 】
s=【 4】(p*(p-a)*(p-b)*(p-c))thisform.text4.value=【5 】
thisform.text2.value thisform.text3.value 2 sqrt s 4 判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79，80-89，90-100）Command1_click事件代码如下：
x= thisform.text1.value store 0 to h5,h6,h7,h8,h9 do case case x>=0 and x<=59 h5=h5+1 case 【1 】 and x<=69 h6=h6+1 case x>=70 and x<=79 【 2】
case 【3 】 and x<=89 h8=h8+1 case x>=90 and 【 4】
h9=h9+1 【 5】
thisform.label1.caption=str(h5)+ str(h6)+str(h7)+str(h8)+str(h9)x>=60 h7=h7+1 x>=80 x<=100 endcase 5 假设表单与第二题中的表文件zgqk.dbf 建立了数据环境，在其中按姓名查找职工情况，找到后将其情况在表单上显示，否则在信息框中显示“查无此人”。试完成下面程序。
【 1】 zgqk xm=thisform.text1.value locate for【2 】
if 【 3】eof()thisform.【4 】
else 【5 】(“查无此人”)Endif use xm=姓名 not refresh messagebox 6 求s=1/1^2+1/2^2+„+1/n^2 【 1】
n=thisform.text1.【2 】
FOR i=1 TO 【3 】
s=s+【4 】
next THISFORM.Label3.Caption=【5 】
s=0 value n 1/i^2 str(s)7 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO 【 2】 step 【 3】
s=s+n end【4 】
【5 】
s=0 99 2 for thisform.text1.value=str(s)8 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO 【 2】
if 【 3】(n/2)<> n/2 s=s+n endif end【 4】
【5 】 s=0 99 int for thisform.text1.value=str(s)9 计算2+4+6+„„100，并将结果存入文本框Text1中，请填空
【1 】
FOR N=2 TO 【2 】step 1 if int(n/2)=【 3】
s=s+n 【4 】
endfor 【 5】
s=0 100 n/2 endif thisform.text1.value=str(s)10 求所有的3位正整数除以99的商和余数，并输出。
for i= 【1 】to 【2 】
a= 【 3】
b=【4 】
?【5 】
Endfor 100 999 int(i/99)i%99 a, b 11 求1！+2！+3！+4！+5！。
S=0 For i=1 to【1 】
t=【2 】
for k=1 to 【 3】
t=t*【4 】
endfor s=s+【 5】
endfor 5 1 I k t 12 计算1+2+3+„„100，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO【 2】step 【 3】
s=s+n 【 4】for 【5 】
s=0 100 1 end thisform.text1.value=str(s)13 统计1至100之间能被7整除的数的个数并求其和，结果用信息框（对话框）输出。Command1_click事件代码如下：
k=0 s=0 for i=1 to 100 if 【1 】(I,7)=0 k=k+【 2】
s=s+【3 】
endif endfor a=messagebox(【 4】+【 5】)mod 1 I str(k)str(s)14 在文本框Text1中输入一个字符串，统计其中数字字符的个数，结果存入文本框Text2中。Command1_click事件代码如下： k=0 x=allt(thisform.text1.value)n=【1 】
for i=1 to 【 2】
if subs(x,i,1)>”0” and【3 】
【 4】
endif endfor thisform.text2.value=【 5】
len(x)n subs(x,i,1)>”9” k=k+1 str(k)15.s=求1！+2！+3！+...+20!【1 】
for n=1 to 20 t=1 for m=1 to 【 2】
t=t*【3 】
endfor 【 4】
endfor THISFORM.Text1.Value=【 5】
s=0 n m s=s+t s 16.找出2010至2100之间所有闰年的年份
FOR i=【 1】 TO 【2 】
if i%4=0 AND i%100!=0 OR i%【3 】
? 【4 】
endif 【5 】
2010 2100 400=0 I ENDFOR 17.设计一个求t=n!的自定义函数
【 1】f(x)t=【 2】
FOR j = 1 to 【3】 t=t*【4 】 endfor return 【 5】
function[###]func 1 x j t 18.求 Fibonacci 数列(1,1,2,3,5„)的前n(n>3)项,并输出
input “n=” to n 【 1】 a(n)a(1)=1 a(2)=1 ? a(1),a(2)for i=3 to 【 2】
a(i)=【 3】+【 4】
?? a(i-1),a(i-2)end【 5】
dime n a(i-1)a(i-2)for 19.输出zgqk.dbf的基本工资大于600的记录
【 1】zgqk do while not 【 2】
if 【 3】
【 4】
endif 【5 】
enddo use eof()基本工资>600 disp[###]display skip 1.在Text1中输入一个3位自然数，分解求和的结果存入Text2中 2.文本框Text1中输入的值与文本框Text2中输入的值交换 3.已知任意一个三角形的三条边为a、b、c，求其面积。
4.判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79，80-89，90-100）287 5.求s=1/1^2+1/2^2+„+1/n^2 6.计算1+3+5+„„99，并将结果存入文本框Text1中，7.计算1+3+5+„„99，并将结果存入文本框Text1中 8.计算2+4+6+„„100，并将结果存入文本框Text1中，9.求所有的3位正整数除以99的商和余数，并输出。
10.编写程序计算：s=1+1/2!+1/3!+„+1/n!,说明：在表单中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写表单的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。11.编写程序计算：S=1X2＋2X3＋„＋NX(N+1)。0
12.编写程序计算多项式：1^1+2^2+3^3+„+10^10 0
13.编写程序在表单上显示出：1～15之间的偶数 0
14.编写程序在表单上显示出：5/6+4/5+3/4+2/3+1/2 15.假设表单与第二题中的表文件zgqk.dbf 建立了数据环境，在其中按姓名查找职工情况，找到后将其情况在表单上显示，否则在信息框中显示“查无此人”
第二篇：VFP程序题
VFP程序题 第一套题
一、运行结果题
1、以下程序运行结果是
SET TALK OFF
CLEAR
A = 5
B = 12
C = 18 IF MAX(A , B)< C
? MAX(A, B)
ELSE IF MIN(A , B)< C
? C
ELSE
? MIN(A , B)
ENDIF
ENDIF SET TALK ON
RETURN
2、以下程序运行结果是
SET TALK OFF CLEAR USE STCJ
DO WHILE ,NOT, EOF()
REPLACE 总分 WITH 高数 + 计算机 + 英语 SKIP
ENDDO GO BOTTOM
? 学号，总分
USE
RETURN
3、以下程序运行结果是
SET TALK OFF
SET HEADINGS OFF SELECT 2 USE STCJ
INDEX ON 编号
TO GZ21
REPLACE ALL 总分
WITH 高数 + 计算机 + 英语 SELECT 1 USE STDA
SET RELATION TO 编号
INTO B DISPLAY FIELDS 姓名，B.总分
FOR 四级通过
OFF CLOSE ALL RETURN
4、以下程序运行结果是
SET TALK OFF SET SAFETY OFF USE STDA INDEX ON 民族
TO XBSY TOTAL ON 民族
TO GZHZ USE GZHZ COUNT TO N ? N
SET SAFETY ON SET
TALK
ON RETURN
5、以下程序运行结果是
SET TALK OFF SET DELETED ON USE STDA DELETE FOR 性别 = “ 男 ” COUNT TO A SET DELETED OFF COUNT TO B DELETE ALL PACK COUNT TO C ? A , B , C SET TALK ON RETURN
6、以下程序运行结果是
SET TALK OFF USE STDA
INDEX ON 奖学金
TO GZSY SKIP 2
? 姓名，奖学金 USE
SET TALK ON RETURN
7、以下程序运行结果是
SET TALK OFF
SET PROCEDURN TO SP S = 0
DO SP1 WITH 5 , S ? S
SET TPROCEDURE
TO RETURN * SP PRG PROCEDURE
PARAMETERS X , Y N = 1 Y = 1
DO WHILE N < X
Y = Y + N
N = N + 1
ENDDO
RETURN
8、以下程序运行结果是
SET TALK OFF DIMENSION X(2 ,2)X = 5 FOR I = 1 TO 2 FOR J = 1 TO 2 IF I = J
X(I , J)ENDIF ?? X(I , J)ENDFOR ENDFOR SET TALK ON RETURN
二、完善程序
1、下列程序计算机 S =1！+ 2！+3！+4！+5！中，填空完成程序。
S = 0 FOR N = 1
TO 5
FOR I = 1 TO N
P = P * I
ENDFOR
ENDFOR
? “SUN =” , S
2、用下列程序找出所有的水仙花数，所谓水仙花数，是指这样一
个三位数，其各位数字的立方和等于该数本身，如 153 = 1^3 +5^3 +3^3，对以下程序填空完成该功能。FOR N = 100 TO 999
A = INT(N / 100)
B =
C = N – INT(N / 10)* 10 IF N = A^3 +B^3 +C^3
? N
ENDIF
ENDFOR
RETURN
3、将新表 DB2.DBF 文件中学号重复的记录删掉（只保留一个）SET TALK OFF SET SAFETY
OFF
USE STDA
COPY TO DB2 USE DB2
INDEX ON 学号
TO XH DO WHILE.NOT.EOF()XH = 学号 SKIP
DELETE ENDIF ENDDO
CLEAR ALL
4、显示STDA.DBF 文件中男同学的记录
SET
TALK
OFF
SET
HEADING
OFF
USE
STDA
DO
WHILE
.NOT.EOF()
IF
ENDIF
DISPLAY
WAIT
ENDDO
USE
SET
TALK ON
RETURN
5、将STDA.DBF 表中未通过英语四级考试学生的将赏金取消，通过者奖学金加50元，并显示姓名和奖学金额。SET TALK OFF
CLEAR USE STDA DO WHILE.NOT.EOF()IF.NOT.四级通过
REPLACE 奖学
WITH 0
ELSE
? 姓名，奖学金
ENDIF
SKIP
ENDDO
USE
SET TALK ON
RETURN
6、按学号查询成绩
SET TALK OFF CLEAR SELECT 1 USE STDA
INDEX ON 学号 TO IXH SELECT 2 USE STCJ
INDEX ON 学号 TO ICJ
ACCEPT “请输入查询学号：” TO XH SEEK
XH IF
FOUND()
DISPLAY
学号，A->姓名，总分
ELSE
? “ 查无此人！”
ENDIF
USE RETURN
7、请阅读下列判断一个自然数是否为质数的程序，并将程序填写完整。
SET
TALK
OFF
INPUT
“ 请输入一个大于1 的自然数：”
TO N
K = 0
J = 2
DO
WHILE
J < N IF MOD(N , J)
J = J +1
LOOP
ELSE
K = 1
EXIT
ENDIF
ENDDO
IF
K = 0
?
+ “ 素数”
ENDIF
? “ 再见！” SET TALK ON
RETURN
8、修改数据表文件 STDA.DBF 中指定同学的四级通过情况。SET TALK OFF USE STDA
INDEX TO ISY
DO
WHILE.T.CLEAR
ACCEPT “ 输入待学生的姓名” TO XM SEEK XM
IF
FOUND()
@ 10 , 10 SAY “ 修改” + XM + “ 的四级通过情况：” GET 四级通过
WAIT
“ 继续修改？（Y / N）”
TO N IF
ENDIF ENDDO USE RETURN
9、将数据表文件STDA.DBF 中的第三条记录与第四条记录的内容互换，并显示第三条记录。
SET
TALK
OFF
CLEAR
USE
STDA
GO
SCATTER
TO
A
GO
SCATTER
TO
B
GO
GATHER
FROM
B
DISPLAY
GO
USE
SET
TALK
ON
RETURN
10、如下程序根据键入的学号使用SQL SELECT 语句显示学生的学号、姓名和平均成绩。请在下划线处填写适当的内容，使程序能正确的运行。
DO
WHILE.T.CLEAR
ACCEPT
“请输入学号：” TO KEYNO
SELECT
STDA.学号，姓名，（高数 +计算机 +英语）/3 AS平均成绩;FROM STDA.STCJ WHERE
WAIT
“如果退出，请按【Y】键！”
TO KEY
IF
UPPER(KEY)= “ Y”
ENDIF ENDDO USE RETURN
三、程序改错题
1、在STDA.DBF 中，查询某人英语四级通过情况，若通过了，则授予学位，否则不授予学位。(1)SET
TALK OFF(2)USE
STDA
(3)ACCEPT “请输入姓名：”
TO XM(4)SEEK
FOR 姓名 = XM(5)IF
EOF()
(6)? “查无此人！”(7)RETURN(8)ENDIF
(9)IF
英语四级通过
(10)?姓名 + “英语四级通过，授予学位”(11)ELSE
(12)?姓名 + “英语四级没通过，不授予学位”(13)ENDIF(14)USE
(15)SET
TALK
ON(16)RETURN 错误的行是 改为：
2、显示 STCJ.DBF 中总分不低于190分的所有学生的姓名和总分字段的值。
(1)
SET
TALK OFF
(2)
SET
HEAD
OFF
(3)
USE
STCJ
(4)
DO
WHILE
RECNO()< = RECCOUNT()
(5)
REPL
总分
WITH
高数 +计算机 +英语
(6)
IF
总分> = 190
(7)
DISP
学号，总分 OFF
(8)
ENDIF
(9)
LOOP
(10)
ENDDO
(11)
RETURN 错误的行是： 改为：
3、在STDA.DBF 中，快速查询性别为“男”，“09/12/92”出生的人
(1)
SET
TALK OFF
(2)
USE
STDA
(3)
INDEX
ON 性别 +入学时间
TO LKL
(4)
SEEK “男” + “09/12/92”
(5)
IF
.NOT.EOF()
(6)
DISPLAY
(7)
ELSE
(8)
? “查无此人！”
(9)
ENDIF
(10)
USE
(11)
SET
TALK ON
(12)
RETURN 错误的行是： 改为：
4、求出 STCJ 表中总成绩的最大值和最小值。(1)
SET
TALK
OFF
(2)
USE
STCJ
(3)
DO
WHILE
.NOT.EOF()
(4)
REPLACE
总分
WITH 高数 +计算机+英语
(5)
SKIP
(6)
ENDDO
(7)
GO
TOP
(8)
STORE
总分
TO MAX , MIN
(9)
DO
WHILE
.NOT.EOF()
(10)
IF MAX >总分
(11)
MAX = 总分
(12)
ENDIF
(13)
IF MIN <总分
(14)
MIN = 总分
(15)
ENDIF
(16)
SKIP
(17)
ENDDO
(18)
? “最高分：” ,MAX ,”最低分：” , MIN
(19)SET
TALK
ON
(20)RETURN 错误的行是： 改为：
第九套题
一、完善程序题
1、将“职工”表中的数据按工资降序排列后生成新表，程序如下：
CLOSE
ALL
SET
TALK
OFF CLEAR USE 职工
TO 职工1 ON
工资/D USE 职工1 DISPLAY ALL USE
RETURN
2、在“职工”表中查找且显示“孙大鹏”的信息，程序如下：
SET TALK OFF CLEAR USE 职工 LOCATE
IF
FOUND()DISPLAY ENDIF USE
3、显示“职工”表中女职工的工资和，程序如下：
SET
TALK
OFF CLEAR SELECT
FROM 职工 RETURN
1、设计一个查询表单BD.SCX,其界面如图所示，其中文本框控件
名为TEXT1，表格控件名为GRID1。当在其中输入职工姓名并单击“查询”按钮时，将下边的表格内显示该职工的信息。“查询”按钮的Click 事件代码应如下：
THISFORM.GRID1.RECORDSOURCETYPE=4
THISFORM.GRID1.FRCORDSOURCE=”SELECT
* FORM 职工
WHERE
姓名
= = ”
5、将“职工”表中第6条记录的“出生日期”改为“12/12/1972”,程序如下：
SET TALK OFF CLEAR USE 职工 SKIP 5
出生日期
WITH {^1972/12/12} DISPLAY USE
RETURN
第三篇：VFP读程序选择题
读下列程序： CLEAR STORE 1 TO I, J DO WHILE J<5 @ I , J SAY “*” J=J+1 ENDDO CANCEL（1）屏幕显示的起始坐标为___D___。A)1, 5 B)i, j C)0, 0 2）程序执行后，i,j的值分别为__A____A)1, 5 B)i , j C)0, 0 设表文件XS.DBF有10条记录，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1 ENDDO USE RETURN（1）程序的功能是（D）
（A）显示所有记录（B）分别显示前3个记录（C）显示第3个记录（2）退出循环后，N的值是（A）（A）0（B）1（C）3 第9题、阅读下面程序 INPUT“输入年龄” TO NL DO CASE CASA NL<7 ？“童年” CASE NL<18 ？“少年” CASE NL>18 ？“少年” CASE NL>=60 ？“老年” CASE NL>=35 ？“中年” OTHER ？“青年” ENDCASE 由于设计不当，本程序运行结果不对
(1)运行时输入 11，输出的结果是：B A)童年 B)少年 C)青年 D)(2)运行时输入 36，输出的结果是：B A)中年 B)少年 C)青年 D)（D）分别显示后三个（D）4 老年 老年
第10题、DIME A(6)S=0 FOR K=1 TO 6 INPUT“请输入数据：” TO A(K)S=S+A(K)ENDFOR AV=S/6 R=0 FOR K=1 TO 6 IF A(K)>AV ??A(K)R=R+1 ENDIF ENDFOR ?R(1)若输入的数据分别是：1 2 3 4 5 6，则显示的是(D)A)1 2 3 B)2 3 4 C)3 4 5 D)4(2)？R的值是多少(B)A)2 B)3 C)4 D)5 第11题、读下列程序：
*MAIPROGRAM CLEA CLEAR ALL X1=“工资-100” Y1=200 Z1=100 DO SUB1 ? 'A处:',X1,Y1,Z1 X1=1 Y1=2 Z1=3 DO SUB2 WITH X1,Z1+10,10 ? 'C处:',X1,Y1,Z1 CANCEL PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B处:',X1,Y1,Z1 Z1=1 RETURN
PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B处:',X1,Y1,Z1 Z1=1 RETURN
PROCEDURE SUB2 PARA X1,Z1,Y1 X1=X1+10 Y1=Y1+10 X1=X1+10 RETURN（1）程序显示A处的X1，Y1，Z1值分别为___B___。
A)300 200 100 B)300 2 100 C)300 200 10 D)300 2 10（2）程序显示B处的的X1，Y1，Z1值分别为___D___。
A)300 200 10 B)300 200 100 C)300 2 100 D)300 2 10（3）程序显示C处的的X1，Y1，Z1值分别为___D___。
A)21 20 30 B)21 20 3 C)21 2 30 D)21 2 3
二、读程序选择_1(本大题共4道小题，每小题分值6分，共24分。)
第7题、有学生信息表XS.DBF文件，其结构和记录如下：
记录号 学号 姓名 年龄 性别 入学日期 出生地 1 Y001 李明 21 男 09/01/99 重庆 2 Y002 林雨 20 女 09/01/99 成都 现有一程序段：
DIMENSION X(3)USE XS SCATTER TO X X(1)=“A003” X(2)=“曾真” X(3)=19 APPEND BLANK GATHER FROM X LIST RETURN（1）运行结果X数组的数据元素的个数是___B___。A)0个 B)3个 C)6个（2）LIST显示记录中，最后一条记录的姓名字段值是__D____。
A)字段值为空 B)林雨 C)李明 D)曾真
第8题、读下列程序： Clear Store 1 To I, A, B Do While I<=3
个 D)1 Do Prog1 ??“P(”+Str(I, 1)+“)=”+Str(A, 2)+“,” I=I+1 Enddo ??“B=”+Str(B, 2)Return Procedure Prog1 A=A*2 B=B+A Return(1)程序的运行结果为（D）。
（A）P（1）=2，P（2）=3，P（3）=4，b=15（B）P（1）=2，P（2）=4，P（3）=6，b=8（C）P（1）=2，P（2）=4，P（3）=6，b=18（D）P（1）=2，P（2）=4，P（3）=8，b=15（2）变量i的最终结果是(C)(A)3(B)5(C)4(D)6
第9题、阅读下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李强' LOOP ENDIF ?姓名，实发工资 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．数据库表
Ｃ．数据库 Ｄ．可能是自由表，也可能是（2）若数据库有50条记录，则程序的功能是：（D）A前10条记录中搜索“李强”的记录 B列出前10条记录
C.每10条记录一屏显示记录，但不显示“李强”的记录 D.列出前１０条记录，但是不显示“李强”的 第10题、阅读下面程序： CLEA clear store 1 to i store 2 to j,k do a1 ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)proc a1 i=3*i+2 private i i=2*j+k ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)retu RETURN(1)主程序中“do a1”后的显示语句显示结果为：（C）
（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=2 k=2（D）i=6 j=8 k(2)过程a1中的显示语句将显示：（D）
（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=8 k=2（D）i=6 j=2 k=第7题、CLEAR CLOSE ALL USE 学生 COUNT TO X GO TOP FOR I=1 TO X IF 性别='男' DISP ENDIF SKIP ENDFOR CLOSE ALL(1)该程序的功能是：(C)A)显示一条男同学的记录 B)显示一条女同学的记录 C)显示所有男同学的记录 D)显示所有女同学的记录
(2)程序退出循环的条件是(C)A)记录指针指向文件尾 B)记录指针指向文件头 C)循环次数大于表中记录条数 D)循环次数小于表中记录条数 第8题、阅读下面程序： 有图书数据表TS和订书单表DSD如下： TS：（书号：C3，单价：N6.2 书名C10）
书号 单价 书名
001 12.0 计算机应用 002 10.0 化学
003 15.0 分析化学
DSD：（班级：C6，书号：C3，数量：N3.0, 款项：N7.2）
记录号 班级 书号 数量 款项 1 化95.4 001 47 0.00 2 数94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 数94.3 001 74 0.00 8 化95.4 003 47 0.00 9 数94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 书号 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 书号 INTO SHU REPL ALL 款项 WITH数量＊shu.单价 LIST DO WHIL.T.ACCE “输入0退出” TO BJ IF BJ ='0' EXIT ENDI ACCE“输入书号” TO SH LOCAT FOR 书号=SH DISP ？“书号”+书号+str(款项)+“元。” ENDD clea all RETURN（1）do while循环中locate操作的表是：（B）（A）数据表TS（B）数据表DSD（C）系统临时表aaa（D）系统临时表cursor aaa（2）运行时输入书号“003”，则输出为：_C（A）分别显示书号为“003”的所有款项（B）显示书号为“003”的所有款项之和（C）显示书号为“003”的第一条记录的款（D）输入错误，没有输出
第9题、读下列程序： &&MAIN.PRG PUBLIC X，Y SET PROC TO KK X=20 Y=50 DO A1 ?X,Y SET PROC TO RETU *过程文件kk.prg Proc a1 Private x X=30 Local y Do a2 ?x,y Return Proc a2 X=“kkk” Y=“mmm” Return 第一次显示的X，Y的值是(B)A)KKK 30 B)KKK.F.C)KKK 50 D)30.F.第二次显示的X，Y的值是(B)A)20 50 B)20 MMM C)30 50 D)30 MMM 第10题、读程序： CLEAR CLOSE ALL SELE 2 USE CJ INDEX ON 学号 TO XH SELE 1 USE XS SET RELATION TO 学号 INTO B SET SKIP TO B replace b.成绩 with b.成绩*1.1 for a.姓名=“王小平”(1)在以上程序中(A)A)表CJ是子表 B)表XS是子表 C)表XS是主表也可以是子表 D)无法确(2)该程序的功能是B A)修改王小平的成绩为1.1分 B)修改王小平的成绩为原成绩的1.1C)修改字段名成绩为成绩1.1 D)显示王小平的记录
第11题、有以下三段程序
*Main.PRG CLEA K1=10 K2=20 DO SuB ?K1,K2 &&(1)DO Sub1 With K2+10,K1 ?K1,K2 &&(3)RETU PROC SUB PRIV K1 K1=K2+1 K2=K1+1 RETU PROC Sub1 PARA Xl,x2 X1=10 X2=20 X1=STR(X1,2)+STR(X2,2)X2=X1+STR(X2,2)?X1,X2 &&(2)RETU(1)程序运行到(1)处显示的结果是(D)(A)10 20 b)20 30(C)10 30(D)l0 2(2)程序运行到(2)处显示的结果是(B)A)1020 102010(B)1020 102020(C)1010 101010(D)1020 101010(3)程序运行到(3)处显示的结果是(D)(A)101010 22(B)102020 30(C)102020 40(D)102020 22 第7题、I=0 DO WHILE I<10 IF INT(I/2)=I/2 I=I+3 ENDIF I=I+2 ENDDO ?I RETU（1）上述程序执行后，共循环了__C____次。A)10 B)5 C)4 D)死循环（2）上述程序执行后，屏幕显示为___B___。A)10 B)11 C)9 D)13
第7题、读下列程序： k=1 DO WHILE k<=21 k=k+2 ?STR(k,2)IF k=9 EXIT ENDIF ENDD（1）程序循环了多少次__A____。A)4 B)3 C)6 D)5（2）程序执行的结果是___C___。A)1 3 5 7 B)2 4 6 8 C)3 5 7 9 第8题、读下列程序： CLEAR FOR K=1 TO 4 A=“$” FOR J=1 TO k A=A+STR(K,1)ENDFOR @K,5 SAY A ENDFOR WAIT RETURN（1）程序运行的结果是___B___。
A)$1 B)$1 $22 $22 $122333 $333 $4444 C)$122333 D)$（2）程序运行到WAIT处，变量K与J的值分别是___D___A)1, 1 B)4, 4 C)4, 1 第9题、如下程序显示的结果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值为(D)A)10 B)11 C)12 D)13(2)程序循环次数为：(B)A)3 B)4 C)5 D)6
第10题、阅读下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李强' LOOP ENDIF ?姓名，实发工资 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．数据库表
C．数据库 D.可能是自由表，也可能是数据（2）若数据库有50条记录，则程序的功能是：（D）
A． 前10条记录中搜索“李强”的记录 B．列出前10条记录 C.每10条记录一屏显示记李强“的记录 D.列出前１０条记录，但是不显示”李强“的记录
第7题、读下列程序： USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '请输入姓名' TO XM INDEX ON 职称 TO ZX FOR 姓名=ALLT（XM）L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名
@ L,M+20 GET 基本工资 L=L+2 SKIP ENDDO WAIT '下一个（Y/N）？' TO Y ENDDO USE RETU（1）这个程序的功能是___B___。A)输入 B)查询（C）修改（D）统计（2）程序中变量Y的作用是___A___。
A)控制整个程序循环 B)把指针指向下一条记录 C)等待 D)没有作用 第9题、有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3“ ENDCASE(1)若在X=300的情况下执行这个程序段，屏幕上将显示A A）1 B）2 C）12 D）3(2)输入下列什么数据时，屏幕上将显示字符 3 A A）100 B）200 C）300 D）400 第7题、有如下教师授课表： 教师号 主讲课程 t1101 数据结构 t1102 C语言 t1103 网页制作 t1104 计算机网络 t1105 计算机网络 t1105 C语言 t1105 数据库
下列程序段的输出结果是 CLOSE DATA a=0 USE教师 GO TOP DO WHILE.NOT.EOF()IF主讲课程＝”数据结构“.OR.主讲课程＝”C语言“ a=a+1 ELSE DISP ENDIF SKIP ENDDO ?a 1 A A)3 B)4 C)5 D)6(2)命令DISP一共显示的记录条数是：A)3 B)4 C)5 D)6
第8题、读下列程序并进行判断。S=0 I=1 Do While I<4 Accept ”请输入字符串: “ To X If ”A“ $ X S=S+1 Endif I=I+1 Enddo ?S Return(1)运行时输入 ”abcd“, ”ABCD“, ”aBcD “, 输出 S的值是(B)(A)2(B)1(C)3((2)运行时输入”ABCD“, ”ABcd“, ”cdab“, 输出 S的值是(C)(A)1(B)4(C)2(D)第7题、如下程序显示的结果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值为(D)A)10 B)11 C)12 D)13(2)程序循环次数为：(B)A)3 B)4 C)5 D)6
第8题、CLEAR N=10 FOR J=1 TO 3 ?STR(J,2)+')' ??SPACE(6*J)FOR K=1 TO 3-J+1 ?? STR(J*K,6)N=N+2 ENDFOR ? ENDFOR RETURN（1）输出的图形为：（C）
A.1)1 B.1)1 2 3 C.1)1 2 3 D.1)1 2 3 2)2 4 2)2 4 2)2 4 2)4 6 8 3)3 6 9 3)3 3)3 3)9 12 15（2）程序结束时，N的值是：（A）A.22 B.9 C.10 D.15 第9题、设表文件XS.DBF有10条记录，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1
ENDDO USE RETURN（1）程序的功能是（D）
（A）显示所有记录（B）分别显示前3个记录（C）显示第3个记录（D）分别显示后三（2）退出循环后，N的值是（A）（A）0（B）1（C）3（D）4
读下列程序：
USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '请输入姓名' TO XM INDEX ON 职称 TO ZX FOR 姓名=ALLT（XM）
L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名 @ L,M+20 GET 基本工 L=L+2 SKIP ENDDO WAIT '下一个（Y/N）？' TO Y ENDDO USE RETU（1）这个程序的功能是___B___。A)输入 B)查询（C）修改（D）统计（2）程序中变量Y的作用是___A___。
A)控制整个程序循环 B)把指针指向下一条 录C)等待 D)没有作用
第8题、已知proc.prg程序清单如下：（12）n=10 t=15 S=1 M=0 DO proc_1 WITH n M=M+S DO proc_1 WITH T M=M+S ?M CANC proc_1.prg程序清单如下： PARAMETERS a S=1 FOR K=1 TO A S=S*K ENDFOR RETURN(1)程序proc.prg的功能是(C)A）输出N 和T的乘积 B）输出N 和T的阶乘 C）输出N 和T的阶乘之和D）输出N 和T的值(2)在程序中变量S是(D)A)全局变量 B)私有变量 C)本地变量 D)局部变量 读程序 clear use 学生
locate for 入校总分>=580 do while.not.eof()disp continu enddo ?'结束' Cancel(1)该程序的功能是：(B)A)显示表中一条入总分大于580分的学生记录 B)显示表中所有入校总分大于580分的学生记录C)显示表中一条学生记录D)显示表中所有的学生记录
(2)循环结束后，表中记录指针指向(B)A)文件头 B)文件尾 C)末记录 D)首记录
USE XSDA N=1 XH=”200201“ DO WHILE N<=120 APPEND BLANK REPL 学号 WITH STR(VAL(XH)+N,6)N=N+1 ENDDO USE CANCEL（1）上述程序数据库中，”学号“这个字段是__A___A)字符型 B)数值型 C)日期型 D（2）该程序的功能是____D__。
A)修改表文件的字段 B)修改表文件原有记录中学号字段的值 C)增加表文件的字段 D)追加新记录并填充学号字段的值
（3）程序运行到最后，变量N的值是___C___。A)1 B)120 C)121 D)0 现有表文件STUD.DBF，表中有：学号（C/6），姓名（C/8），性别（C/2），出生日期（D/8）等字段干条，根据已有的表文件运行下面程序： SET TALK OFF CLEAR USE STUD INDEX ON TRIM(姓名)TO ISTUD S=.T.DO WHILE S XM=SPACE(8)ACCEPT ‘请输入姓名:’ TO XM IF LEN(TRIM(XM))=0 EXIT ENDIF SEEK XM IF.NOT.EOF()@3,10 SAY “学号” @3,20 SAY 学号
@5,5 SAY “姓名”+姓名 @7,5 SAY “性别”+性别 @9,5 SAY “出生日期:” @ 9,20 SAY 出生日期 ELSE @20,3 SAY “没有找到该姓名的学生” S=.F.ENDIF WAIT ENDDO CANCEL（1）程序中的索引关键字和索引文件名分别为__B____。
A)学号, STUD.DBF B)姓名,ISTUD.DBF C）学号, ISTUD.IDX D)姓名,ISTUD.IDX（2）程序中用SEEK进行___C___查找。A)顺序 B)条件 C)索引 D)范围（3）执行EXIT命令的条件是____C___。
A）输入姓名后直接按
C)输入姓名，又按空格键，再按
A=“Abcde” N=LEN(A)I=1 DO WHILE I<=N B=SUBSTR(A,I,1)IF ISLOW(B)B=CHR(ASC(B)-32)A=STUFF(A,I,1,B)ENDIF I=I+2 ENDDO ?A RETURN（1）程序运行的结果是___D___。A)abcde B)ABCDE C)abCdE D)AbCdE（2）程序循环的次数是___C___。A)5 B)4 C)3 D)6
读下列程序： USE 学生 I=1 FILEN=”” DO WHILE I<=9 FILEN=”S”+STR(I,1)+”.DBF” COPY TO &FILEN I=I+1 ENDDO USE（1）程序运行的结果是___C___。A)无结果 B)拷贝了1个文件C)拷贝了9个文件
了10个文件
（2）拷贝所产生的新文件名是___D___。A)S.DBF B)FILEN C)&FILEN D)S1.DBF~S9.D
有如下程序段： USE CLASS LOCATE FOR 政治面目=”团员“ DO WHILE FOUND()DISPLAY CONTINUE ENDDO该程序的功能是：C
A)显示团员的一条记录 B)显示非团员的一条记录C)显示团员的所有记录D)显示非团员的所程序退出循环的条件是A
A)FOUND()函数返回值为B)FOUND()函数返回值为假 C)与 FOUND()函数的值无关D)EOF()函数返回值为真
有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3" ENDCASE(1)若在X=300的情况下执行这个程序段，屏幕上将显示A A）1 B）2 C）12 D）3(2)输入下列什么数据时，屏幕上将显示字符 3 A A）100 B）200 C）300 D）400
读程序
1、CLEAR M=0 FOR X=1 TO 10 IF MOD(X,3)=0 M=M+X ENDIF ENDFOR ? M RETURN（1）该程序的功能是：求1到10之间B A.能被3整除数的个数 B.能被3整除数C.不能被3整除数的个数 D.不能被3整除数的和
（2）该程序执行的结果是：C A.3 B.10 C.18 D.37
&&MAIN.PRG &&P1.PRG X1=1 PARA W1,W2 X2=2 PRIVATE W1 DO P1 WITH X1,X2 W1=W1*3 ?’X1=’+STR(X1,1)W2=W2*4
??’X2=’+STR(X2,1)RETURN X1=1 X2=2 DO P1 WITH X1,X1+X2 ?’X1=’+STR(X1,1)??’X2=’+STR(X2,1)
RETURN（1）第一次显示X1，X2的值是B A 1 , 8 B 3 , 8 C.1 , 1 D.8 , 8（2）第二次显示X1，X2的值是C A 1 , 2 B 3 , 1 C 3 , 2 D.1 , 3
CLEAR DIME A（20）P=1 FOR N=1 TO 20 INPUT“请输入数据：“ TO A(N)ENDFOR FOR L=1 TO 19 FOR M=L+1 TO 20 IF A(L)<=A(M)T=A(L)A(L)=A(M)A(M)=T ENDIF ENDFOR ??A(I)ENDFOR 程序完成的功能是将20个数组元素值A A 排序后按从大到小的顺序输出 B 排序后按从小到大的顺序输出C． 倒序输出 D.按自然顺序输出
将DIME A（20）改成 DIME A（10）后，B A． 出现“数组重复定义”的错误 B． 出现“数组下标越界”的错误 C． 程序功能不变，只是输出10个数组元素值 D． 程序功能不变，仍然输出20个数组元素值
CLEAR CLOSE ALL USE 学生 SCAN IF性别=’男’ DISP ENDIF N=N+1 ENDSCAN ？N CLOSE ALL CANC(1)D A)该程序显示一条男同学的记录 B)该程序显示一条女同学的记录 C)该程序显示全班同学的记录 D))该程序显示全班男同学的记录(2)命令？N 显示的是C A)男同学的记录个数 B)女同学的记录个数 C)全班同学的记录个数 D)无法确定
USE SB SORT TO RQX ON 启用日期/D FIELDS 编号，名称，启用日期 FOR NOT 主要设备 USE RQX LIST USE SB SORT TO BMX ON 部门/D，价格 FOR 主要设备 USE BMX LIST RETURN（1）程序执行到第一个LIST命令时，输出结果是C
（A）将主要设备按编号，名称，启用日期分别升序排序。（B）将主要设备按编号，名称，启用日期分别降序排序。（C）将非主要设备按启用日期降序排序。（D）将非主要设备按启用日期升序排序。
（2）程序执行到第二个LIST命令时，输出结果是B
（A）将主要设备按部门升序排序，当部门相同时，按价格降序排序。（B）将主要设备按部门降序排序，当部门相同时，按价格升序排序。（C）将主要设备按部门降序排序，当部门相同时，按价格升序排序。（D）将主要设备按部门升序排序，当部门相同时，按价格降序排序。
共有3个数据库文件TB1.DBF, TB2.DBF, TB3.DBF,下面程序功能是把每个库文件的末尾记录删掉。序，将程序填写完整。N=1 DO WHILE N<=3 TB=“TB“+STR(N，1)USE &TB GO BOTTOM DELETE PACK N=N+1 ENDDO 该程序的功能是B（A）将数据表的末记录作物理删除（B）将数据表的末记录作逻辑删除（C）将数据表的首记录作物理删除（D）将数据表的首记录作逻辑删除
该程序一共删除了()表中的记录C（A）1个（B）2个（C）3个
（D）4个
阅读下面程序： 有图书数据表TS和订书单表DSD如下： TS：（书号：C3，单价：N6.2 书名C10）
书号 单价 书名
001 12.0 计算机应用 002 10.0 化学
003 15.0 分析化学 DSD：（班级：C6，书号：C3，数量：N3.0, 款项：N7.2）
记录号 班级 书号 数量 款项 1 化95.4 001 47 0.00 2 数94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 数94.3 001 74 0.00 8 化95.4 003 47 0.00 9 数94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 书号 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 书号 INTO SHU REPL ALL 款项 WITH数量＊shu.单价 LIST DO WHIL.T.ACCE “输入0退出” TO BJ
IF BJ =’0’ EXIT ENDI ACCE“输入书号” TO SH LOCAT FOR 书号=SH DISP ENDI ？“书号”+书号+str(款项)+”元。” ENDD clea all RETURN（1）do while循环中locate操作的表是：B A数据表TS B数据表DSD C系统临时表aaa D系统临时表cursor aaa（2）运行时输入书号“003”，则输出为：_C（A）分别显示书号为“003”的所有款项（B）显示书号为“003”的所有款项之和（C显示书号为“003”的第一条记录的款项（D）输入错误，没有输出
阅读下面程序： CLEAR T=65 R=20 INPUT “请输入图形的行数N=” TO N I=1 DO WHILE I<=N J=1 DO WHILE J<=2*I-1 @I,J+R SAY CHR(T)J=J+1 IF J<=I T=T+1 ELSE T=T-1 ENDIF ENDDO I=I+1 R=R-1 T=65 ENDDO RETURN(1)运行程序后输出图形C
（A）A（B）A BBB ABC CCCCC ABCDE DDDDDDD ABCDEFG EEEEEEEEEEEE ABCDEFGHIJ
„„„„„„„ „„„„„„
（C）A A ABA BAB ABCBA CBABC ABCDCBA DCBABCD ABCDEDCBA EDCBABCDE
„„„„„„„ „„„„„„„（2）语句@I,J+R SAY CHR(T)中函数CHR（）的功能是D（A）从字符T中取出子串（B）返回字符T的ACSⅡ码值（C）返回字符T的ACSⅡ码字符
（D）返回<数值表达式>表示的ACSⅡ码字符
：
CLEA BM=SPACE(10)@5，10 SAY“请输入表名：”GET BM READ BM=ALLTRIM(BM)IF FILE(“&BM..DBF”)USE &BM BROWSE ELSE WAIT“文件不存在!” WINDOW NOWAIT ENDIF USE RETURN(1)程序的功能是C(A)浏览任意一个打开的表文件(B)修改任意一个打开的表(c)浏览指定表文件BM(D)修改指定表文件BM(2)函数FILE(“&BM..DBF”)的功能是C(A)测试指定的文件的类型正确否(B)指定文件类型为(C)测试指定的文件存在否(D)指定文件为&BM．．DBF
有图书目录数脚sml，dbf和入库流水单表skc．dbf如下 sml.dbf：(5条记录)书号 书名 作者 出版社 1 计算机基础 杨振山 高等教育 2 计算机原理 费利民 西安交大 3 C语言设计 赵国民 上海 4 C语言教程 张 扬 四川 5 C++教程 张 敏 高等教育 skc.dbf：(5条记录)书号 单价 数量 金额 入库日期 1 15.00 30 450.00 20030818 2 11.00 21 231.00 20030818 3 22.00 30 660.00 20030818 4 19.00 30 570.00 20031218 5 22.21 23 510.83 20031218 程序： CLEAR @1，15 SAY ‘新书入库’ Y=’Y’
DO WHILE upper(Y)=”Y” SM=SPACE(14)ZZ=SPACE(8)CBS=SPACE(10)@3，10 SAY ’书名’ GET SM @3，30 SAY ’作者’ GET ZZ @3，45 SAY，出版社 GET CBS READ SELE 1 USE SML LOCA FOR TRIM(书名)=TRIM(SM)AND TRIM(作者)=TRIM(ZZ)AND TRIM(出版;社)=TRIM(CBS)IF FOUND()SH=书号 ELSE SKIP-1 SH=STR(val(书号)+1，4)APPE blan REPL书名WITH SM，书号WITH SH，作者WITH ZZ，出版社with cbs ENDIF SELE 2 USE skc APPE BLAN REPL书号with sh @4，10 SAY ‘单价’ GET单价 @4，30 SAY ‘购人数’ GET数量 READ REPL金额 WITH 单价*数量 REPL入库日期 WITH date()WAIT “是否继续(Y／N)” to Y ENDD CLOSE DATA 设运行时依次输入下列数据：
代数 张三 清华 22.00 31 几何 李四 北大 33.00 32 概率 王五 南开 44.00 33 几何 李四 北大 33.00 41 代数 张三 清华 22.00 56(1)此时sml表中的记录条数和最大记录号分别为C A 10条，10 B 10条，5 C 8条，8 D 8(2)SKC表中记录数为C(A)10(B)5(C)8(D)7
clear dimension k(2,3)i=l ? do while i<=2 j=l do while j<=3 k(i,j)=i*j ??k(i，i)??” ” j=j+1 enddo ? i=i+1 enddo(1)运行程序后，屏幕的显示结果是A
(A)1 2 3(B)1 2 2 4 6 3 2(C)1 2 3(D)1 2 3 1 2 3 2 4 9(2)如果将dimension k(2,3)语句改为：dimension K(2，2)后，A(A)出现“数组重复定义”的错误(B)出现“数组下标超界”的错误
(C)程序功能不变，只输出4个数组元素(D)程序功能不变，仍然输出6个数组元素
阅读下列程序 CLEAR M=0 FOR K=0 TO 2 FOR J=3-k TO 3+K @K,J SAY STR(K，2)+STR(J,1)M=M+1 NEXT K NEXT 1 ?M RETURN(1)输出图形为： A
(A)03(B)03(C)03(D)0 3 14 14 14 1 4 25 25 25 2 5(2)程序结束时，M的值是： B(A)11(B)9(C)10(D)8
读下列程序： J=0 CLEAR FOR K=1 TO 4 FOR R=1 TO 5-K ？？“” &&此处括号内有1个空格 ENDFOR FOR M=1 TO 2*K-1 ？？STR(K，1)J=J+1 ENDFOR ? ENDFOR ? J(1)程序运行的结果是：A
A)1 B)1 C)2 D)1 222 121 121 212 33333 1331 1331 31113 4444444 144441 144441 4111114(2)程序结束时，J的 值为C A)7 B)17 C)16 D)6
SUM=0 N=0 DO WHILE N< 100 N=N+1 SUM=SUM+N ENDDO ?’SUM=’,SUM(1)该程序的功能是B A)计算1+100的值 B)计算1+2+3+„+100的值 C)计算1+99的值 C)计算1+2+3+„+99的值(2)循环结束后，N的值为A
A)100 B)99 C)101 D)102
Clea FOR N=1 TO 4 FOR I=1 TO 2*N-1
IF I<=N
@ N,10-N+I SAY STR(I,1)
ELSE
@ N,COL()SAY STR(2*N-I,1)
ENDI ENDF ENDF Canc(1)该程序的显示的是：B
A)1 B)1 C)1 D)1 222 121 212 121 33333 12321 31213 13331 4444444 1234321 4123214 1444441(2)循环结束后，N的值为C A)3 B)4 C)5 D)6
INPUT”请输入数据1：“ TO X INPUT”请输入数据2：“ TO Y INPUT”请输入数据3：“ TO Z IF X>Y N=Y ELSE N=X ENDI IF N (1)A)输入的最大值 B)输入的最小值 C)输入的中间值 D)输入的任意值 有一学生情况表STU，表中有成绩字段 以下程序的功能是： N=0 S=0 USE STU 输入的任 D)SCAN FOR 成绩>=560 S=S+成绩 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D A)表中成绩大于560分的人数 B)统计表中成绩小于560分的人数 C)表中成绩大于560分的人的总分数 D)表中成绩大于560分的人的平均分数 有一学生情况表STU，表中有成绩字段 以下程序的功能是： N=0 S=0 USE STU SCAN FOR 团员 S=S+成绩 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D A)表中团员人数 B)表中非团员的人数 C)表中团员总分数 D)均分数 南京信息工程大学实验(实习)报告 实验(实习)名称顺序和选择结构程序设计实验(实习)日期 得分 指导老师 系专业 班级 学号 【实验目的】 1、掌握程序的建立、修改与运行 2、掌握基本输入输出语句与函数 3、熟练掌握if语句（包括单分支和双分支）和do case语句的使用。 4、分析程序的运行结果。 【实验内容】 操作结果的界面截图显示。 1、从键盘输入两个数存入变量x和y，若x>y则交换他们的值，否则直接输出x和y的值。 2、执行下列程序后，变量x的值为（）。x=1 if x>=1 do case case x>0 x=x+1 case x>1 x=x+1 otherwise x=4 endcase else x=3 endif 3、执行下列命令序列，屏幕显示（）a=100 b=50 a=a+b b=a-b b=a*2 ? a+b 4、执行下列命令序列，屏幕显示（）。b=6 do case case mod(b,3)=0 b=b+1 case mod(b,2)=0 b=b+2 otherwise b=b+3 endcase ? b 5、执行下列命令序列，屏幕显示（）input to a if a=10 b=0 else b=1 endif ? b篇二：vfp实验报告 天水师范学院数学与统计学院 实验报告 实验项目名称 所属课程名称 实 验 类 型 实 验 日 期 班 级 学 号 姓 名 成 绩 1 附录1：源 程 序 2 附录2：实验报告填写说明 1．实验项目名称：要求与实验教学大纲一致。2．实验目的：目的要明确，要抓住重点，符合实验教学大纲要求。3．实验原理：简要说明本实验项目所涉及的理论知识。4．实验环境：实验用的软、硬件环境。5．实验方案（思路、步骤和方法等）：这是实验报告极其重要的内容。概括整个实验过程。对于验证性实验，要写明依据何种原理、操作方法进行实验，要写明需要经过哪几个步骤来实现其操作。对于设计性和综合性实验，在上述内容基础上还应该画出流程图、设计思路和设计方法，再配以相应的文字说明。对于创新性实验，应注明其创新点、特色。6．实验过程（实验中涉及的记录、数据、分析）：写明具体实验方案的具体实施步骤，包括实验过程中的记录、数据和相应的分析。7．实验结论（结果）：根据实验过程中得到的结果，做出结论。8．实验小结：本次实验心得体会、思考和建议。9．指导教师评语及成绩：指导教师依据学生的实际报告内容，给出本次实验报告的评价。3 篇三：vfp实验报告范例 指导老师 万润泽 实验名称visual foxpro 操作基础 同组人 日期日 成绩 一、实验目的 1)理解各种不同的数据类型 2)常量的含义以及各种不同数据类型的常量 3)变量的含义以及字段变量、内存变量、系统变量和数组变量的使用 二、实验环境（仪器设备、软件等）windowsxp操作系统、visual foxpro环境 三、实验原理（或要求） （1）数值型、货币型、字符型、日期型和日期时间型常量的输入 （2）日期格式的设置的命令 （3）字段变量与内存变量同名时候，观察赋值运算结果（4）数组变量的赋值 （5）内存变量显示、清除与保存所使用的命令 四、实验步骤 ？”计算机”,?123.45?,[?abc?,?abc?] 日期格式的设置 set century on|off set date to american ?{^2007-1-2} 结果: set mark to “.” ?{^2007-1-2} 结果 set strictdate to 0 ?{2007-5-30} 结果 set century on set mark to “|” set date to ymd 结果 创建一个学生表“学生.dbf”，其中包含字段学号、姓名、性别、出生日期等字段。并输入多行记录，再使用以下命令 use 学生 ？姓名 go 3 ？姓名 五、记录与处理（实验数据、误差分析、结果分析） 注意： 实验步骤与记录处理合成一个部分，都是用来记载上机实验中的代码以及运行结果，对于visual foxpro编程而言，不必分两个部分。 在此页中继续写入程序代码以及相应的运行结果。 这个部分内容到课本52面结束 六、思考题 1、什么是常量？visual foxpro中哪几种类型的数据有常量表示？ 2、什么是变量？visual foxpro中有哪几种变量？变量名取名是如何规定的？ 七、实验小结 这个地方可以写入自己对上机内容的理解，也可把自己不懂的内容写在下面 同组人 日期 成绩 一、实验目的 1)掌握表达式中各种运算符的运算规则 2)掌握各种类别的运算符的优先级 3)理解函数的三要素以及各常用函数的用法 二、实验环境（仪器设备、软件等）windowsxp操作系统、visual foxpro环境 三、实验原理（或要求）（1）几种算术运算符、日期时间运算符和关系运算符的规则与使用 （2）字符串匹配运算符“=”、“= =”、“$”的含义 （3）在含有多种运算符的表达式中根据运算符优先级进行运算 （4）常用函数的用法，注意函数的参数与返回类型 四、实验步骤 p52 例3-8 3-9 3-10 例3-12 课后练习习题一（13）小题 例 3-14 五、记录与处理（实验数据、误差分析、结果分析） （接上页） 例 3-15 ~ 34 选取有代表性的例子 注意： 实验步骤与记录处理合成一个部分，都是用来记载上机实验中的代码以及运行结果，对于visual foxpro编程而言，不必分两个部分。 在此页中继续写入程序代码以及相应的运行结果。 这个部分内容从课本53到课本63面结束 六、思考题 1.什么是表达式？当一个表达式中有多种类型的运算符并存时，一般的运算 顺序是什么？ 2.函数的三要素是什么？试指出month（）函数在使用时的参数和返回值 数据类型？另外测试数据类型的函数是什么？ 七、实验小结 这个地方可以写入自己对上机内容的理解，也可把自己不懂的内容写在下面 同组人 日期 成绩 一、实验目的 1)掌握数据库的基本操作 2)掌握表的基本操作，包括表结构的创建、表结构的显示与修改以及表记录的显示、增加和修改 3)理解索引的概念并会在表设计器中建立索引 二、实验环境（仪器设备、软件等）windowsxp操作系统、visual foxpro环境 三、实验原理（或要求） （1）建立自由表，并使用表设计器设计每个字段的字段名、数据类型、宽度等 （2）在数据库中创建表，在表设计器中对字段的有效性规则、默认值、格式、输入掩码等进行修改 （3）表的打开与浏览，增加表记录和删除表记录 （4）在表设计器中建立索引，另外通过命令方式建立索引 四、实验步骤 这个部分内容从69面到课本88面结束 例4-1 显示表结构 例4-3 显示男生的记录 例4-4 例4-7 8 9 理解物理删除和逻辑删除之间的区别 例4-11 五、记录与处理（实验数据、误差分析、结果分析） 注意： 实验步骤与记录处理合成一个部分，都是用来记载上机实验中的代码以及运行结果，对于visual foxpro编程而言，不必分两个部分。 在此页中继续写入程序代码以及相应的运行结果。 六、思考题 1)什么叫参照完整性？参照完整性分为哪几种？ 2)数据库表和自由表有什么区别？ 七、实验小结 这个地方可以写入自己对上机内容的理解，也可把自己不懂的内容写在下面 同组人 日期 成绩 一、实验目的 1)使用sql查询语句对表进行条件查询 2)理解select命令中的几个常用关键字的含义 3)能熟练掌握简单查询、联接查询、嵌套查询 4)排序显示查询结果和计算查询 二、实验环境（仪器设备、软件等）windowsxp操作系统、visual foxpro环境 三、实验原理（或要求）1)select说明要查询的数据 2)from说明要查询的数据来自哪些表 3)where说明查询的条件 4)order by 用来对查询的结果排序 5)几个特殊的运算符，如like，not in，between。。and。。，以及计算查询 中用到的函数，如count，sum，avg，max，min等 四、实验步骤 这个部分内容从104面到课本112面结束 例5-1 到 5-21 选择典型的sql查询语句 五、记录与处理（实验数据、误差分析、结果分析） （接上面的实验步骤） 注意： 实验步骤与记录处理合成一个部分，都是用来记载上机实验中的代码以及运行结果，对于visual foxpro编程而言，不必分两个部分。 在此页中继续写入程序代码以及相应的运行结果。 六、思考题 1、课本136面 三、上机题 2（注：题目也要抄写） 2、课本136面 三、上机题 3（注：题目也要抄写） 七、实验小结 这个地方可以写入自己对上机内容的理解，也可把自己不懂的内容写在下面篇四：vfp实验报告1 实验报告 时间：2013.4.6 地点：经济管理学院机房 实验1：visual foxpro 集成环境及项目管理 实验目的：1.掌握vfp启动与退出的各种方法 2.熟悉vfp的集成操作环境，包括掌握工具栏、命令窗口打开与关闭的方法 3.了解“选项”对话框的内容，并掌握一些常用的设置与命令 4.了解vfp帮助系统的大致结构，掌握其使用方法 5.掌握项目文件建立与打开的方法 6.了解项目管理器的结构及其定制方法 实验内容： 一、vfp的启动与退出 1.vfp的启动 2.vfp的退出 二、工具栏 1、通过菜单命令“编辑”——“工具栏” “工具栏”对话框 2、右击工具栏无按钮区域，利用快捷菜单打开与关闭快捷菜单 vfp主窗口 “工具栏”快捷菜单 三、“命令”窗口 1、命令窗口的打开与关闭 2、在“命令”窗口中执行命令 练习内容： ①计算并显示算术表达式的值 ；？和？？命令的区别 ②clear清除vfp主窗口中所有信息;显示默认文件夹中类型为dbf的文件目录 ；显示d盘根文件夹中所有文件的目录 ③新建文件夹、复制文件夹、改名文件、删除文件、运行“计算器” 3、命令的编辑与重用 四、“选项”对话框 五、vfp的帮助系统 菜单命令”帮助——vfp帮助主题” 六、创建项目文件 “新建”对话框;“创建”对话框 1、项目文件的打开与关闭 2、项目管理器的定制 3、利用项目管理器管理文件 ①添加文件 ②移去文件 ③其他操作 实验心得：通过这次实验，进一步掌握了vfp 启动与退出的各种方法和vfp项目管理器有关的操作，同时也熟悉了vfp的集成操作环境。篇五：vfp--刘子恒--实验报告1 13级电子信息工程班vfp实验报告1 注： 1、一个实验题目编写一个实验报告，每个报告至少占用1页。 2、报告内容必须具体、详实，不得笼统、简单。 班级：电气2013-1 学号：20***9 VFP程序设计 ——课设总结 为期几周的VFP数据库设计的课设就快过去了，在这做课设的这段时间，可以说是有苦有甜，令人难忘。因此，有必要写一篇总结，记录一下自己做课设的历程。 刚刚接到老师的课设要求的时候有点傻眼了，得优秀的要求是系统完善、写一篇系统总结、回答老师对于代码方面的提问。第一点似乎都还算能做到，但是对于我们这种连SQL语言的皮毛都没学，对于数据库的系统结构完全不了解的人，怎么能把三点要求都完成。 但是经过一段时间的摸索，我渐渐对vf的数据库系统有了大体的了解知道了什么是项目，数据库就是数据表的集合，搞清了基本表单的制作过程，知道如何用快速报表和报表向导做格式的报表，以及对报表的美化、求和、计算等处理，还有就是如何去制作菜单，以及用菜单调用各种数据文件，最后的主程序是直接复制老师的代码，但是凭着一点点C++和C语言基础，能够看懂代码的意思，这有助于我后期对整个系统进行查错和修改。下面就讲一下我对自己做的系统的总结。 1数据表（.dbf）:数据表是整个系统的“原材料”，后期所有的制作处理，都是为了去处理和显示这些数据，去用这些数据，当然也可以说数据表依靠后期的表单等等呈现给用户。 2数据库（.dbc）：数据库以我看来就是数据表的集合，可以将无联系的自由表集合到一个容器里，使他们可以产生联系。并且将这些表作为后面其他东西的数据环境。 3表单（.scx）：表单就是最后呈现给用户的人机交互界面，并且带有一定的功能。表单的制作首先需要要给他设置数据环境，因为其上面的各种控件都是以数据环境里面的数据实现控件的意义。各种控件比如标签就是用来显示表单上需要显示的一些文字提示，文本框就是用来显示文本内容，组合框可以下拉显示一连串的内容，表格控件可以显示表格数据，可以用生成器做出自定义的表格，按钮控件可以通过某个过程比如单击执行用户需要的事件代码等等。最后表单生成以后，作为整个系统的优良的用户与系统的交互平台。 4菜单（.mnx）:菜单就是整个系统调用文件的工具，通过点击菜单，可以调用任意用户想要调用的文件比如表单，数据表，程序等等。 5程序(.prg)程序就是一段代码，生成文件以后可以由其他文件调用并执行，如主程序就是在系统运行时的入口，当然得先设置好主文件；quit程序可以实现系统的退出。 除了以上几个以外，还有工具栏、自定义类等等在系统中都起着重要的作用，最后讲一下设置背景音乐所用的方法，用set bell to的方式定位到文件，用？chr（7）就能对WAV格式的音乐进行播放。 致谢： 整个课设过程收获很多，不仅仅是了解了利用Visual fox 制作系统的方法，而且还增进了同学们之间的友谊。在这里感谢同学们的互相学习以及交流分享，还有老师孜孜不倦的引导，总之，感谢老师，感谢同学，感谢大家！ XXX第四篇：VFP实验报告总结
第五篇：VFP程序设计总结
点击咨询 