Vf练习15_vf数据库练习题
Vf练习15由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vf数据库练习题”。
Vf练习1—51、任意一个数，若能被7或3整除，则输出该
3、从键盘上连续输入10组数，分别输出每数和，对输入进行规定，每组数的结束标志为“0” ENDDO I=I+1 J=1
数，最后释放所有的内存变量 SET TALK OFF
INPUT “输入一个数”TO X？[24]ENDIF
RETURN1、下面程序的功能是计算1——100之间所有整数的平方和并输出结果 S=0
DO WHILE X
1、编程求1——1000之间被3整除又被5整除的个数及其和。N=0 S=0 K=1
S=S+K ENDIF K=K+1 ENDDO ？N，S RETURN
K=1
?”请输入第”+“组数” S=0 X=1
INPUT “请输入下一个数：”TO X ENDDO
？”第”+[11]+“组数之和”，S K=K+1 ENDDO RETURN4、编写程序，要求从键盘输入9个数，按从小到大的顺序排列并显示出来。CLEAR
I=1
INPUT TO K（I）I=I+1 ENDDO I= 1
T=K（I）K（I）=K（J）K（J）=T ENDIF
ENDDO I=1
DO WHILE I
3、键盘输入10个数，输入最小数 SET TALK OFF CLEAR K=1
INPUT “请输入第1个数：” TO AINPUT “请输入第2个数：” TO BENDIF
？“最小数”，A SET TALK ON RETURN4、从键盘输入10个数，按从小到大的顺序输出
SET TALK OFF CLEAR
I=1
DO WHILE I
I=1
T=M(J)M(J)=M(J+1)M(J+1)=T ENDIF
ENDDO I=I+1 ENDDO I=1
DO WHILE I
4、计算10！+15！+20！+25！CLEAR I=10 T=0
S=0
ENDDO ？T ENDDO RETURN
子程序功能计算P=N！*子程序PRO1.PRG
PARAMETERS P，N，PL=L+1 ENDDO6、编写一个子程序计算N的阶乘，在主程序中计算3！+5！+7！+9！+11！。*主程序JCS.PRG SET TALK OFF CLEAR STORE 0 TO S,K
DO JC1
NEXT
RETURN *子程序JC1.PRG *计算N！的阶乘
STORE（24）TO L，K FOR L=1 TO N（25）NEXT RETURN3、已知一数列的前三个数：0，0，1以后每个数为前三个数的和，求该数列的前20个数。F1=0 F2=0 F3=1
？F1，F2，F3 I=
4？？F4
I=I+1 ENDDO SET TALK ON RETURN3、程序的功能是：从键盘上输入10个正数放在一维数组X中，然后显示最大的数组元素及其下标
（10）MAX=0 C=1
FOR K=1 TO 10 INPUT„输入‟+‟第‟+STR(K)+‟个数据‟NEXT KMAX=X（1）FOR K=2 TO 10
IF（12）（13）C=K
（14）ENXT K ？MAX，C1、下列程序的功能是完成建立索引文件，输入表文件名，索引关键字(字符型)和索引名，运行后生成一个按输入关键字进行索引的索引文件之后显示索引文件和索引扣的数据，最后关闭文件
SET TALK OFF
ACCEPT “输入表文件名：” TO FNAME ACCEPT “输入索引关键字：” TO KEY ACCEPT “输入索引名：” TO INAME
INDEX ON [2]TAG [3]
？“索引名”+[4]USE RETURN2、已知XSCJ.DBF有如下的记录，编程计算每个学生的总分，总分=英语+语文+数学，并根据总分给每个学生填入内容：总分>=240等级为‘优’；180
SETTALK OFF
CLEAR USE XSCJ
GO TOP
DO WHILE NOT EOF（）DO CASE CASE总分>=240
REPLACE 等级别 WITH “优” REPLACE 等级别 WITH “良” CASE总分
ENDDO USE RETURN5、在XSCJ.DBF表文件中查找一位学生根据其
平均分判断该生的学生情况 CLEAR
[20]ACCEP“请输入学号：” TO XH LOCATE[21]IF[22][23]CASE 平均分>=80 ?“成绩优秀！” CASE 平均分>=60 ?“成绩及格！” OTHERWISE
？[24]ENDCASE
？“查无此人！” ENDIF USE RETURN
已知表文件XS.DBF有三个字段：姓名/C/ 8,团员/L,团员/L,出生日期/D
1,编写程序，显示XS.DBF中所有团员同学的名单。CLEARUSEXSGO 1
DO WHILE[1]____________________IF[2]_____________________[3]________________________姓名ENDIF
[4]_________________________ ENDDO
[5]_________________________ RETURN
2._编写程序，在中查找并显示1992年出生的同学。CLEAR
DO WHILE NOT EOF（）ENDDO USERETURN1、现在学生表XS.dbf，试用scan循环显示学生表中男生的情况 CLEAR
SCAN
LOOPENDIF
ENDSCAN USE RETURN2、在学生表文件中“年龄”字段为N型，“标志”字段为L型，通过索引查询显示所有年龄为20的学生记录，然后把记录11到末记录的标志字段设置为.T.SET TALK OFF USE 学生
INDEX ON 年龄 TAG NLDO WHILE NOT EOF（）DISPLAY
IFEXIT ENDIF ENDDO
USESET TALK ON RETURN2、阅读下列程序并将程序填写完整 STORE “Y” TO YN USE SP1
INDEX ON 品牌 TAG PIN SET ORDER TO PIN
DO WHILE（4）ACCETP“请输入查询的品牌：” TO CHX SEEK（5）IF（6）DISPLAY（7）？“无此品牌商品！”（8）
WAIT“继续查找吗？（Y/N）” TO YN IF（9）EXIT
（8）ENDDO RETURN4、设数据表文件PHONE.DBF中包含了“姓名”、“电话”和“地址”三个字符型字段。以下程序的功能是打开表，按用户输入的任一电话号码进行查找，如查存在该号码，则显示其单位地址，关闭文件并结束程序，请将补充程序。
（15）DO WHILE.T.PHN=SPACE(8)
ACCEPT”请输入电话号码” to PHN LOCATE FOR PHN=电话 IF（16）？“单位地址：”+地址 USE
（17）ENDIF ENDDO5、输入要删除的记录号且记录号不超过XJ表的记录范围 USE
（18）C=RECCOUNT（）IF C>=N
DELETE
ENDIF5、从键盘输入一个字符串，然后按组成字符串字符的倒序输入单个字符，在输出过程中如遇到空格字符便停止输出。
ACCEPT“输入一个字符串：” TO ST
IF SUBSTR（ST，N，1）=SPACE（1）ELSE
ENDIF ENDDO
RETURN5、编写打印如下图形。ABBBCCCCC
DDDDDDD
I=1
J=
1ENDDO
ENDDO RETURN4、打印图形**************** SET TALK OFF CLEAR
S=1
??”*” S=S+1 ENDDO
ENDDO RETURN
