6VFP读程序练习.docx
- 文档编号:12027783
- 上传时间:2023-04-16
- 格式:DOCX
- 页数:8
- 大小:17.53KB
6VFP读程序练习.docx
《6VFP读程序练习.docx》由会员分享,可在线阅读,更多相关《6VFP读程序练习.docx(8页珍藏版)》请在冰豆网上搜索。
6VFP读程序练习
1.阅读下列程序,该程序的运行结果是 ( )
SETTALKOFF
INPUT″请输入A,B:
″TOA,B
IFA
T=A
A=B
B=T
ENDIF
DOWHILEB<>0
T=MOD(A,B)
A=B
B=T
ENDDO
?
A
SETTALKON
RETURN
运行时输入:
12,8
A.2 B.4 C.12 D.8
答案:
B
2.有VisualFoxPro程序如下:
SETTALKOFF
USECJ
M.ZF=0
DOWHILE.NOT.EOF()
M.ZF=M.ZF+ZF
SKIP
ENDDO
?
M.ZF
RETURN
其中数据库文件CJ.DBF中有2条记录,内容如下:
XM ZF
1 李四 500.00
2 张三 600.00
运行该程序的结果应当是
A.1100 B.1000
C.1600 D.1200
答案:
A
3.有下列程序:
PARAMETERA,B,C,D
D=B*B-4*A*C
DOCASE
CASED<0
D=0
CASED>0
D=2
CASED=0
D=1
ENDCASE
在主程序中执行如下命令:
STORE1TOA,C
STORE2TOB,D
DOSUBWITHA,B,C,D
?
D
D的值为—————
答案:
1
4.有如下程序:
STORE0TON,S
DOWHILE.T.
N=N+1
S=S+N
IF N>=10
EXIT
ENDIF
ENDDO
?
”S=“+STR(S,2)
本程序的运行结果是—————
答案:
S=55
5.有如下程序:
*主程序:
MAIN。
PRG
SETTALKOFF
CLEAR
S=0
DOSUBWITH10,S
?
S
RETU
*子程序SUB.PRG
PARAMETERSD1,D2
D1=D1+D1
D2=D1*2
RETURN
执行主程序后S的值是__________。
答案:
40
6.设有一个名为GZ.DBF的表文件,包含以下字段:
姓名(C,8)、职务(C,10)、工资(N,6,2)、出生日期(D,8)和正式工(L,1)。
阅读以下程序:
USEGZ
DOWHILE.NOT.EOF()
IF职务="工程师".AND.出生日期>{10/20/60}
D=出生日期
NAME=姓名
SALARY=工资
EXIT
ENDIF
SKIP
ENDDO
Y=YEAR(DATE())-YEAR(D)
IF.NOT.EOF()
?
NAME,Y,SALARY
ELSE
?
"没查到!
"
ENDIF
USE
RETURN
该程序的功能是
A显示一位1960年月日10月20曰后出生的工程师姓名、年龄及工资
B显示一位1960年10月20曰后的工程师姓名、年龄
C显示1960年10月20曰后出生的工程师的姓名、年龄
7.给出以下程序的运行结果:
SET TALK OFF
X=0
Y=0
DO WHILE X<100
X=X+1
IF INT(X/2)=X/2
LOOP
ELSE
Y=Y+X
ENDIF
ENDDO
?
"Y=",Y
RETURN
运行结果为 ( )
A.Y=500 B.Y=1500 C.Y=2000 D.Y=2500
8.阅读程序,正确的运行结果是 ( )
SETTALKOFF
STORE100TOx,y,z
DOPROC1WITH(x),y
?
x,y,z
PROCEDUREprocl
PARAMETERm,n
m=m+100
n=n+100
RETURN
A:
100100100 B:
100200100
C:
200200100 D:
100100200
9.在VisualFoxPro中有如下程序:
*程序名:
TEST.PRG
*调用方法:
DOTEST
SETTALKOFF
CLOSEALL
CLEARALL
mX="VisualFoxPro"
mY="二级"
DOSUB1WITHmX
?
mY+mX
RETURN
*子程序:
SUB1.PRG
PROCEDURESUB1
PARAMETERSmX1
LOCALmX
mX="VisualFoxProDBMS考试"
mY="计算机等级"+mY
RETURN
执行命令DOTEST后,屏幕的显示结果为
A)二级VisualFoxPro
B)计算机等级二级VisualFoxProDBMS考试
C)二级VisualFoxProDBMS考试
D)计算机等级二级VisualFoxPro
10.设成绩库CJK.DBF中“数学”(数值型字段)这门课程的学分为4,其学分计算的方法如下:
数学>=90,学分值为4
80<=数学<90,学分值为3
70<=数学<80,学分值为2
60<=数学<70,学分值为1
数学<60,学分值为0
计算任一学生数学这门课程的学分值的程序如下:
SETTALKOFF
USECJK
ACCEPT "输入学号:
" TOXH
XF=0
LOCATEFOR学号=XH
DOCASE
CASE______
XH=40
CASE______
XH=3
CASE__________
XF=2
CASE__________
XF=1
OTHERWISE
XF=0
ENDCASE
?
"学号:
",XH
?
"数学的学分值:
",XF
USE
RETURN
答案:
数学>=90 数学>=80 数学>=70 数学>=60
11.填空完成下列程序,要求该程序能够三次从右向左显示变量S内容的字幕程序。
CLEAR
S=SPACE(80)+"关系数据库语言VFP计算机2级教程。
关系数据库."+SPACE(60)
N=0
______
I=1
DOWHILEI<160
@20,0SAYSUBSTR(S,I,80)
H=INKEY(0.1,"h")
I=I+2
_____
_____
ENDDO
分析:
表达式(1)是给出循环的条件,表达试(3)给出循环体的递增形式。
答案:
(1)DOWHILEN<3,
(2)ENDDO,(3)N=N+1
12.用两种循环步长值来求1+2+3+...50的值,请将程序填写完整。
程序一:
S=0
FOR__
(1)___
S=S+N
ENDFOR
?
S
RETURN
程序二:
S=0
FOR__
(2)___
S=S+N
ENDFOR
?
S
RETURN
分析:
这是一个计数循环的例子,由以上两种方法可以看出,初值和终值的设定是随步长值不同而变化
的,在程序一中,由于步长为1,所以省略了。
缺省时,步长值默认为1。
答案:
(1)N=1TO50,
(2)N=50TO1STEP-1
13.根据输入的半和径值,计算圆的面积,请将程序填写完整。
CLEAR
R=0
SM=0
@12,15SAY“输入圆半径”CETR
READ
IFR=0
EXIT
ENDIF
————
@16,16SAY“圆的面积为:
”+ALLTRIM(STR(SM))
ENDDO
RETURN
计算圆面积的函数:
FUNCTION AREA
PARAMETERSA
S=3.1415926*A*A
RETURN
答案:
SM=AREA(R)
14.填空完成下列程序,求数绝对值的程序。
INPTU’请输入一个数:
‘TOX
?
STR(X)+“它的绝对值是:
’+STR(f(x))
FUNCTIONF
(1)
———
IFT>=0
T=T
ELSE
T=-T
ENDIF
RETURNT
分析:
FUNCTION是一个子函数,语句PARAMETERS是定义子函数里面的变量。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP读程序练习 VFP 程序 练习
![提示](https://static.bdocx.com/images/bang_tan.gif)