一．单项选择题（每小题 1 分，共 40 分）
每题给出四个答案，用 A ， B ， C ， D 标出，其中只有一个是正确的。请你做出选择 并将 答题卡上相应的字母涂黑 。
1-10 |
B |
B |
C |
A |
B |
A |
B |
C |
B |
D |
11-20 |
A |
B |
C |
A |
C |
C |
B |
D |
B |
C |
21-30 |
C |
A |
D |
A |
B |
B |
C |
C |
D |
C |
31-40 |
D |
B |
A |
C |
B |
D |
A |
B |
B |
A |
二 ． 阅读程序题 （ 每小题 2 分 ， 共 14 分 ）
阅读程序，在 A 、 B 、 C 、 D 四个选项中选择正确的运行结果，并将 答题卡上相应的字母涂黑 。
三．完善程序题（每小题 2 分，共 16 分）
在 A 、 B 、 C 、 D 四个选项中，选择正确的选项填在程序的 处，使程序完整正确，并将 答题卡上相应的字母涂黑 。
四、操作题 （每小题 5 分，共 10 分）
1 ． 建立一个程序 文件 XS.PRG ， 显示“学生情况 .DBF ”表的前 3 条记录，并运行此程序。
操作步骤：
（ 1 ） 建立 XS.PRG 程序 文件，在命令窗口中输入命令：（ 1 分）
modify command xs
（ 2 ）在程序编辑窗口中输入程序语句：（ 3 分）
USE 学生情况
LIST NEXT 3
USE
（ 3 ） 运行程序 , 在命令窗口中输入命令：（ 1 分）
do xs 注 ：使用菜单操作 ( 略 ) 。
2 ．要求完善表单初始化事件（ Init ）和按钮单击事件（ Click ）中的代码，并运行表单。
• Form1 表单初始化事件（ Init ）过程代码：
ThisForm.Caption= ” 练习 ”
（ 1 ） ThisForm. Label1.Caption=” ” && 标签设置为空 （ 1 分）
（ 2 ） ThisForm.Command1.Caption=” 开始 ”
&& 命令按钮的标题为“开始” （ 1 分）
• Command1 按钮单击事件（ Click ）过程代码：
（ 3 ） ThisForm. Label1.Caption=” 欢迎使用！ ”
&& 单击 Command1 按钮后，标签上显示“欢迎使用！”。 （ 1 分）
• 运行表单 （ 2 分）
（ 4 ） ① DO FORM 表单 1.SCX
②程序 / 运行
③表单窗口未关闭时，单击“运行”工具按钮
五．程序设计题（每小题 5 分，共 20 分）
1 ．用循环结构，显示学生情况 .DBF 表中计算机专业的男生的记录。
2 ．计算 1+3+5+7+.....+99 的值。
3 ．任意输入三个数，按由小到大的顺序输出。
4 ．求一元二次方程 AX 2 +BX+C=0 的两个实根。
求根公式如下： X 1,2 = 
1 ． USE 学生情况
DO WHILE NOT EOF( )
IF 专业 =" 计算机 " AND 性别 =" 男 "
DISP
ENDIF
SKIP
ENDDO
USE
2. SET TALK OFF
S=0
FOR N=1 TO 99 STEP 2
S=S+N
ENDFOR
? "N=", N, "S=", S
SET TALK ON
3. INPUT " 请输入第一个数： " TO X
INPUT " 请输入第二个数： " TO Y
INPUT " 请输入第三个数： " TO Z
IF X>Y
T=X
X=Y
Y=T
ENDIF
IF X>Z
T=X
X=Z
Z=T
ENDIF
IF Y>Z
T=Y
Y=Z
Z=T
ENDIF
?" 由小到大的顺序为： ",X,Y,Z
4. INPUT " A=" TO A
INPUT " B=" TO B
INPUT " C=" TO C
D=B*B-4*A*C
IF A<>0
IF D>=0
X1=(-B+SQRT(D))/(2*A)
X2=(-B-SQRT(D))/(2*A)
?X1,X2
ELSE
？ " 此一元二次方程无实根！ "
ENDIF
ENDIF
|
