VFP程序填空题

USE 选课
&& 打开选课表
INDE ON 学号 TAG XHA
SELE 2
USE 学生
SET RELA TO 学号 INTO 选课 && 建立关联
ACCE “请输入姓名：” TO XM
&&交互式输入姓名
LOCA FOR 姓名=ALLTRIM( XM
) &&查询
? 姓名，A.课程号， A.成绩
&&显示
LOCA FOR 姓名=XM
if !eof() ?”学号”+学号,”姓名”+姓名
else ?”没有 +XM+”学生” _
endi
wati”是否继续查找(y/n) ?” to ___ M ___
if upper(m)=”Y”
____ LOOP ______
else EXIT
Endif
ENDDO use 8、已知学生档案数据库表（XSDA.DBF）中，有学号、姓名、性别字 段，要求将每个男生信息显示在屏幕上，请将程序补充完整。
CLEA ALL
20、下面是统计表STUD.DBF中数学及格和不及格人数的程序：
use stud
n1=0
n2=
0
do while not eof()
do case
case 数学<60
n1=n1+1
case 数学>=60
n2=n2+1
endcase
skip
enddo
?”不及格人数：”,n1, ”及格人数：”,n2
N=N+1 ENDSCAN
use return * 9．设有student.dbf (学号、姓名、民族)和score.dbf (学号、成绩) 两个数据表，要在它们之间建立逻辑连接，然后为每个少数民族考生
（即“民族”字段不等于“汉”的考生）的成绩增加5分，最后显示全体考
生的学号、姓名和成绩。请对如下程序填空： clear clea all select 1 use student
____ LOOP _______
endif wait ”按任意键显示女生的记录:” display
______SKIP ____________
_____ ENDDO ___________
use 2．完成如下程序,其功能删除std1.dbf~std5.dbf 记录
n=1 do while n<=5
do while I<=9
dbn='chj'+str(i,1)
bdbn= NH+DBN
use &dbn
copy to A:&BDBN
i=i+1
ENDDO
use * 15．下面程序的功能是通过字符串变量操作先横向显示“学习刻 苦”，后竖向显示“刻苦学习”，请填空？ 显示结果为： 学习刻苦 刻 苦 学 习 clear store "刻苦学习" to xy
do while K<=100
k=k+1 if MOD(K,2)=0
n= n+1
___ Байду номын сангаас=S+K _____
endif enddo ?n,s 5．对 stud表中数学及格的加5分，不及格的加10分。
set talk off use stud
do while .NOT.EOF()
if 数学<60
REPL 数学 WITH 数学+10
input “请输入存款年限：” to __ NX _____
_____ DO CASE _______
case nx<1 ll=0.02
CASE NX<3
ll=0.03 case nx<5
ll=0.04 otherwise
ll=0.05 endcase ?”存款利率是：”，ll 4．下面是计算100以内偶数之和的程序，N是偶数个数，S是偶数之 和。 clea all store 0 to k,n,s
&&取消关联
CLEA ALL
&&关闭表
第八章 表单设计 1．设计如下图所示的表单，表单运行时，在文本框中输入字符，单 击“红色”按钮，文本框中的文本变成红色；单击“蓝色”按钮，文本框 中的文本变成蓝色；单击“还原”按钮，将文本框中的文本颜色还原成 输入时的颜色。
以下为该表单设计的相关代码，有多处空，请补充完整： form的init事件代码为：
表单数据环境和相关对象属性设置已完成，相关代码设计如下，有多处 空，请补充完整：
VFP程序填空题（134空）
说明：
无标识 …… 基本题 （92个空） * …… 难度题 （42个空）
目录
第7章 第8章
正文
第七章 结构化程序设计 1．逐条显示学生注册表.dbf中所有女生的记录
use 学生注册表
do while .not. eof() if 性别=”男”
___ SKIP __ __
Store 0 to s,n
do while n<=100
IF N%3=0 AND N%7<>0 S=s+n
endif N=N+1
Enddo
?”s=”+str(s) return 11．逐条显示数据表stud.dbf中的所有女生记录：
clear use stud
do whil . not.eof()
USE KS
accep '请输入考生考号:' get kh
LOCA FOR 考号=KH if NOT EOF()
disp else
?'考号有误!!!'
ENDIF
use *14．有一“备份程序”如下，其功能是将硬盘上9个班的成绩数据表文 件复制到A盘上。数据表文件名分别为chj1.dbfchj2.dbf,...等，备份文 件名前面冠以年号，如97chj1.dbf, 97chj2.dbf,...。在c盘上运行该程 序 clear accept '输入年号' to nh &&两位年号 I=1
* ***
*****
*******
clea
i=
1
Do while i<=4
?space(10-i)
j=1
Do while j < =
2*i-1
??"*"
j=
j+1
enddo
i=i+1
enddo
19、以下程序在父表“学生”表与子表“选课”表间按学号建立关联，
按姓名查询学生情况。
SELE 1
&& 选择1号工作区
INDEX ON 职工号 TO ZGH
sele b use 工资表
REPL ALL实发工资 WITH 基本工资+奖金-扣款
SET RELA TO 职工号 INTO A
list a.职工号,姓名, 实发工资 FOR 实发工资<=1000______
close all * 7．循环输入学生的姓名,在学生表中查找，若找到则显示学生的情 况,若没有则显示”没有某某学生”,直到用户停止输入 use 学生 store “Y” to m DO WHILE .T. accept “请输入要查询的学生姓名:” to xm
INDEX ON 学号 to INX
select 2 use score
set relation to 学号 INTO A replace 成绩 with 成绩+5 for A->民族!=”汉” list 学号, A->姓名 ,成绩
set relation to close all return 10．填上适当的语句，求100以内能被3整除但不能被7整除的数字之 和，请填空。 clear clear all
db= "STD" +STR(N,1)____
use &db
_______ GO BOTTOM ________
dele pack
这五个表文件的末
______ N=N+1_________
enddo use
3．存款利率： 年限nx<1年，利率ll＝2% 年限nx>=1年或nx<3年，利率ll＝3% 年限nx>=3年或nx<5年，利率ll＝4% 年限nx>=5年，利率ll＝5% 根据输入存款年限,求出相应的利率
if 性别='男'
SKIP
LOOP endif disp wait '按任意键显示下一记录'
SKIP
endd use 12．打印如下乘法表，请填空：
12345 1) 1 2) 2 4 3) 3 6 9 4) 4 8 12 16 5) 5 10 15 20 25 程序如下： clear ?' 1 2 3 4 5' j=1
use da do while .t.
clear WAIT “A—全体女职工 B—全体男职工 X—退出” TO K do case
case k=’A’
LIST FOR 性别=”女” Case k=’B’
LIST FOR 性别=”男” case K=’X’
exit endcase
Enddo
use
18．下面是一个用“*”构成一个4行的金字塔形,第一行的“*”位于第 10列。
do while J<=5
?str(j,3)+')' i=1
do while I<=J ??STR(J*I,4)