填空后1115.docx
《填空后1115.docx》由会员分享，可在线阅读，更多相关《填空后1115.docx（21页珍藏版）》请在冰豆网上搜索。
填空后1115
11.计算XS2．DBF中平均分。
USEXS2
DOWHILENOTEOF（）
REPL总分WITHC语言＋计算机网络＋电子技术
＿＿＿＿＿＿＿＿＿
SKIP
ENDD
LIST平均分
RETURN
12.求1~10以内能被3整除的数之和及不能被3整除的数的个数
S=0
N=0
＿＿＿＿＿＿＿＿＿
IFINT（I/3）=I/3
S=S+I
ELSE
N=N+1
ENDIF
ENDFOR
?
S,N
RETU
13.在XS2．DBF中，删除指定的记录。
USEXS2
LIST
ACCEPT“请输入要删除的学生的学号”TOXH
LOCAFOR学号＝XH
DISP
ACCEP“是否删除Y／N”TOYN
IFUPPER（YN）＝“Y”
＿＿＿＿＿＿＿＿
PACK
ENDIF
RETURN
14.将内存变量X的值从1开始逐次加1，加到100后输出
SETTALKOFF
X=1
DOWHILE．T．
IFX＞＝100
＿＿＿＿＿＿
ENDIF
X＝X＋1
ENDDO
？
“X＝”＋STR（X，3）
RETU
15.任意输入若干个非零数，分别计算其正负数的和并统计它们的个数，然后输出。
SETTALKOFF
STORE0TOA，B，C，D
DOWHILE．T．
INPUT“请输入一个数（0－结束）”TON
DOCASE
＿＿＿＿＿＿＿
EXIT
CASEN＞0
A＝A＋N
B＝B＋1
CASEN＜0
C＝C＋N
D＝D＋1
ENDCASE
ENDDO
？
A，B，C，D
SETTALKON
RETURN
11..给数组A（4,5）的各元素赋值，赋值后各元素的值如下图所示：
10000
11000
11100
11110
SETTALKOFF
DIMENSIONA（4,5）
I=1
DOWHILEI＜=4
J=1
DOWHILEJ＜=5
IF
A（I,J）=1
ELSE
A（I,J）=0
ENDIF
J=J+1
ENDDO
I=I+1
ENDDO
SETTALKON
RETURN
12.显示数据库ZC.DBF中的全部记录，并且可以修改
SETTALKOFF
CLEAR
USEZC
USE
SETTALKON
RETURN
13.将ZC.DBF中的教授、副教授、讲师、助教的职称工资分别增加200元、150元、100元、50元。
SETTALKOFF
USEZC
DOWHILE.NOT.EOF（）
DOCASE
CASE职称号="01"
REPL职称工资WITH职称工资+200
CASE职称号="02"
REPL职称工资WITH职称工资+150
CASE职称号="03"
REPL职称工资WITH职称工资+100
CASE职称号="04"
REPL职称工资WITH职称工资+50
ENDCASE
ENDDO
USE
SETTALKON
RETURN
14.检索RSDA.DBF中工龄小于10年的职工，逐个显示这些职工的编号、姓名、籍贯和工龄。
SETTALKOFF
USERSDA
CLEAR
DOWHILE.NOT.EOF（）
IF工龄<10
DISP
ENDIF
SKIP
ENDDO
USE
SETTALKON
RETURN
15.要求为数据库RSDA.DBF建立以籍贯为关键字的单索引文件RSDAJ.IDX，快速检查并显示籍贯为“上海”的第一名职工的情况。
SETTALKOFF
CLEAR
USERSDA
INDEXON籍贯TORSDAJ
SEEK
DISP
USE
SETTALKON
RETRUN
11.用函数检查输入的文件名中是否有空格,如无空格,则文件名输入正确,跳出循环.
settalkoff
clea
dowhile.t.
acce“请输入文件名：
”tofname
if__________
？
“文件名中间不能有空格!
”
？
“请重新输入文件名！
”
fname=””
else
exit
endif
enddo
retu
12.显示数据库gzgl1.dbf中的前4个记录的姓名和总收入各字段数据,但姓孔者除外.
settalkoff
setexactoff
usegzgl1
dowhilerecn（）<=4
if姓名=“孔”
skip
_________
endif
?
姓名,总收入
skip
enddo
use
retu
13．用适当的函数把输入的人名的前置空格和末尾空格去掉,在gzgl2.dbf中查找且显示该记录。
usegzgl2
name=space（8）
acce“请输入要查找的姓名?
”toname
name=alltrim（name）
__________
ifeof（）
?
“查无此人”
wait
endif
dispoff
retu
14．物理删除数据库gzgl1.dbf中指定编号的记录
settalkoff
clea
store“”tobh,jx
usegzgl1
indexon编号toggzz
clea
inpu“请输入编号”tobh
seekbh
iffound（）
?
“编号:
”+编号
wait”删除吗（y/n）?
”tojx
ifupper（jx）=”Y”
________
pack
endif
else
?
”无此编号!
”
endif
use
retu
15.输入一个字符串,如果该字符串前20个字符内含有“y”，则输入这个字符串，否则输出“no”
settalkoff
clea
acce“输入字符串”toword
no=at（＿＿＿＿＿＿）
ifno>0.and.no<=20
?
word
else
?
”no”
endif
retu
11.计算s=1+2+3+…….+n
settalkoff
inputton
s=0
i=1
_______________
s=s+i
i=i+1
enddo
settalkon
return
12.一个数列，它的前三项依次为0，0，1从第四项开始，以后每一项是它前三项之和，求这个数列的前30项。
settalkoff
stor0toa，b
stor1toi，c
？
？
a，b，c
dowhilei〈10
a=a+b+c
？
？
a
b=b+c+a
？
？
b
c=c+a+b
？
？
c
_______________
enddo
settalkon
return
13.在rs.dbf中求职工的平均年龄。
settalkoff
users
countton
s=0
_______
dowhile.not.eof（）
s=s+（year（date（））-year（出生日期））
skip
enddo
?
’平均年龄为：
’,str（s/n,2）
use
return
14.求未婚职工的平均标准工资和部门2标准工资的总和。
settalkoff
sele2
usegz
indexon编号toizg1
sele1
users
setrelationto编号intob
______b->标准工资for.not.婚否tos1
sumb->标准工资forsubs（编号,1,1）=’2’tos2
?
s1,s2
closeall
return
15、在rs.dbf和gz.dbf中对副教授以上职称的职工增加津贴50元。
settalkoff
selea
usegz
indexon编号toigz1
seleb
users
setrelato编号intoa
dowhile.not.eof（）
if职称=‘教授’.or.职称=‘副教授’
_______________
endif
skip
enddo
closeall
return
11.将zg.dbf文件中的基本工资字段值求和,并在该文件末尾增加一条记录,其中基本工资字段的值用求和结果取代.
settalkoff
usezg
sum基本工资togzh
appendblan
gobottom
disp
use
settalkon
return
12.一个数列，它的前两项依次为0，1，从第三项开始，以后每一项是它前两项之和、输出这个数的前十项。
settalkoff
a=0
storltob，i
？
a，b
dowhilei〈=4
a=a+b
？
？
a，b
i=i+1
enddo
return
13.共有四个数据库,文件名分别为zg1.dbf—zg4.dbf,下面程序的功能是删除每个数据库文件的第一条记录.
settalkoff
i=1
dowhilei<=4
db=_____
use&db
gotop
delete
pack
i=i+1
enddo
return
14．求数据库zg.dbf中所有职工的平均工资。
settalkoff
usezg
countton
m=0
gotop
dowhile.not.eof（）
m=____
skip
enddo
?
”m=”,str（m/n,4）
use
return
15．显示zg.dbf中女职工的记录。
settalkoff
usezg
dowhile.not.eof（）
if性别<>“女”
skip
loop
endif
disp
wait“按任意键继续显示”
enddo
use
settalkon
return
11.显示xjk中的后5个记录。
settalkoff
usexjk
gobottom
skip-4
list
wait
use
return
12.求xscj库中的计算机的平均成绩。
settalkoff
usexscj
n=0
s=0
scan
n=n+1
endscan
?
"计算机的平均成绩为：
",s/n
closeall
settalkon
return
13.将xscj库和xjk库按学号进行连接。
settalkoff
select1
usexscj
select2
usexjk
joinwithAtollkfields姓名，系别，A.总分
usellk
list
closeall
return
14任意输入10个数,求其和。
settalkoff
k=1
s=0
dowhile.t.
input“请输入X的值：
”tox
s=s+x
__________
ifk<=10
loop
endif
exit
enddo
?
s
retu
15．输出1000到1500之间能被7整除的数，每行输出5个。
settalkoff
x=1000
n=0
dowhilex<=1500
ifmod（________）=0
?
?
x
n=n+1
ifint（n/5）=n/5
?
endif
endif
x=x+1
enddo
return
11．求0-20之间的偶数和
settalkoff
x=0
y=0
dowhilex<=20
if_________
y=y+x
endif
x=x+1
enddo
?
"y＝",y
return
12.输入一个字符串,如果该字符串前20个字符内含有“y”，则输入这个字符串，否则输出“no”
settalkoff
clea
acce“输入字符串”toword
no=at（＿＿＿＿＿＿）
ifno>0.and.no<=20
?
word
else
?
”no”
endif
retu
13.求10个数中非负数的个数
settalkoff
k=0
fori=1to10
inputtox
ifx<0
_______
endif
k=k+1
endfor
?
'k=',k
return
14.求1~100以内能被3整除的数之和及不能被3整除的数的个数
s=0
n=0
fori＝1to100
if＿＿＿＿＿＿＿＿＿
s=s+i
else
n=n+1
endif
endfor
?
s,n
retu
15．求财务部门的平均工资
settalkoff
usezgda2
__________
scanfor部门=”财务”
n=n+1
t=t+工资
endscan
？
”平均工资=”，t/n
use
return
11.下面程序实现从键盘上输入1个字符串,统计其中含有几个大写字母D
settalkoff
s=0
accept"请输入一串字符"tox
L=len（x）
k=1
dowhilk<=L
if________
s=s+1
endif
k=k+1
endd
?
s
return
12．编写一程序，使它具有对任意一个数据库都有追加记录的功能。
settalkoff
acce”请输入库名：
”tofilename
use______
dowhile.t.
clea
text
1．追加记录
2．退出
endtext
acce“请输入1或2：
”toxz
ifxz=’1’
appe
else
use
return
endi
endd
13．下面程序的运行结果为：
123
246
369
settalkoff
cleaall
__________
i=1
dowhili<4
j=1
dowhilj<4
a（i,j）=i*j
?
?
a（i,j）
j=j+1
endd
?
i=i+1
endd
return
14．按考号查询成绩。
settalkoff
clea
sele1
usebmk
indeon考号tobmk
sele2
usefsk
indeon考号tofsk
_________
acce”请输入查询考号：
”tokh
seekkh
iffound（）
disp考号，a.姓名，笔试，上机
else
？
”无此人”
endi
use
return
15．在fsk.dbf中，查找笔试与上机之和最高者，并显示其姓名、笔试和上机字段值。
settalkoff
sele1
usebmk
indeon考号tobmk
sele2
usefsk
setrelato考号intoa
xm=a.姓名
bs=笔试
sj=上机
dowhile.not.eof（）
skip
if________
xm=a.姓名
bs=笔试
sj=上机
endif
enddo
clear
？
xm,b,sj
return
11．下面程序段是求1到100以内奇数的平方和。
S=0
FORI=lTO100STEP2
____________
ENDFOR
?
”奇数平方和为：
”，S
12．下面程序显示“教师”表中系号为1的所有记录信息。
SETHEADOFF
CLEAR
USE教师
SCAN____________
DISP
EDNSCAN
USE
13．下面程序段是某表单单击事件代码，功能是在表单的标签中显示”教师”表中最后条记录的姓名及职称信息。
USE教师
GOBOTTOM
S=姓名
M=职称
USE
This.Label1.Caption=____________
14．下面程序将”教师”表中l、2、3系的职工分别增加工资100元、200元、300元。
SETTALKOFF
USE教师
DOWHILENOTEOF（）
DOCASE
CASE系号=1
REPLACE工资WITH工资+100
CASE系号=2
REPLACE工资WITH工资+200
CASE系号=3
REPLACE工资WITH工资+300
____________
SKIP
ENDDO
USE
8x+7（X≥0）
15．下面程序段是计算分段函数y=
2x-3（X<0）
SETTALKOFF
INPUT“请输入X的值：
”TOX
IFX>=0
___________
ELSE
Y=2*X-3
ENDIF
?
Y
RETURN
升级会员 