VF程序设计考试题

Vf程序设计 1．一个“判定等级”表单如下图所示，包含一个文本框（Text1）、二个标签（Label1，Label2）和二个命令按钮（Command1，Command2）。此表单的功能是：在文本框Text1中输入一个成绩后，当按下“判定等级Command1”按钮后，会根据输入的成绩判定该同学的成绩级别并在Label2标签处显示；当按下“清空Command2”按钮后，会自动清除Text1和Labe12中的内容。请写出这两个命令按钮对应的Click事件代码。（注：成绩在90～100分之间，级别为“优秀”；成绩在80～89分之间，级别为“良好”；成绩在70～79分之间，级别为“中等”；成绩在60～69分之间，级别为“及格”；成绩在0～59分之间，级别为“不及格”。）

Connamd1的单击事件代码 Ma=val(thisform.text1.value) s1=\该同学的成绩级别为：\do case

case Ma>=90 s2=\优秀\ case Ma>=80 s2=\良好\ case Ma>=70 s2=\中等\ case Ma>=60 s2=\及格\ other

s2=\不及格\ endcase

thisform.label2.caption=s1+s2 Command2的单击事件代码 thisform.text1.value=\thisform.text1.setfocus thisform.label2.caption=\

2．一个显示“九九乘法表”的表单如下图所示。此表单的功能是：鼠标单击表单时，界面上会显示出“九九乘法表”。请写出该表单（Form1）的C1ick事件代码。

表单的单击事件代码 for i=1 to 9 for j=1 to 9 if i*j<10 then

??str(i,1)+\ else

??str(i,1)+\ endif next j ? next i

3．一个“标签文本互换”表单如图所示，包含三个标签：Label1、Label2、Label3，它们的

文本是：信息技术，生物工程，自动控制。当用鼠标单击任一标签时，都会使其它两个标签的标题文本互换。请写出这三个标签的Click事件代码。

Label1的单击事件代码 t=thisform.label2.caption

thisform.label2.caption=thisform.label3.caption thisform.label3.caption=t Label2的单击事件代码 t=thisform.label1.caption

thisform.label1.caption=thisform.label3.caption thisform.label3.caption=t Label3的单击事件代码 t=thisform.label2.caption

thisform.label2.caption=thisform.label1.caption thisform.label1.caption=t

4．设计一个名称为“各种背景色”的表单，在表单中，有一个命令按钮组，4个命令按钮的标题依次为“红色、黄色、黑色、白色”，当鼠标单击不同的命令按钮时，表单的背景颜色也随之变化，写出命令按钮组的单击CLick事件代码。 提示：4种颜色的表示方法：

红色RGB（255，0，0）黄色RGB（255，255，128） 黑色RGB（0，0，0） 白色RGB（255，255，255）。

命令按钮组的事件代码

k=thisform.commandgroup1.value do case

case k=1

thisform.label1.forecolor=rgb(255,0,0) case k=2

thisform.label1.forecolor=rgb(255,255,128) case k=3

thisform.label1.forecolor=rgb(0,0,0) case k=4

thisform.label1.forecolor=rgb(255,255,255) endcase

5.下图所示的表单包括2个标签控件、2个文本框控件和1个命令按钮控件，表单的功能是：当用户输入用户名（8个字符：ABCDEFGH）和口令（6位数字：123456），并单击“确定”按钮后，检验输入是否正确，如正确，则显示“欢迎使用！”字样并关闭表单；若不正确，则显示“用户名或口令不对，请重新输入！”。所有控件属性都已设置好，请编写命令按钮的Click事件代码。

命令按钮的单击事件代码 Xm=alltrim(thisform.text1.value) Mm=alltrim(thisform.text2.value)

if Xm=\

messagebox(\欢迎使用!\ thisform.release else

messagebox(\用户名或口令不对，请重新输入!\ thisform.text1.value=\ thisform.text2.value=\ thisform.text1.setfocus endif

vf程序阅读选择题：

1．下面程序的功能是：输入8个字符，如果第三到第六个字符为“OKOK”，则执行命令文件pass，否则重新输入，若输入超过三次则退出程序运行，请将程序补充完整。 SET TALK OFF SET EXACT ON CLEAR

PASSWORD=SPACE（8） I=3

DO WHILE .T.

@10，10 SAY 〞请输入口令：〞GET PASSWORD （ 56 A ）

IF（ 57 B ）=〞OKOK〞

（ 58 D） ＆＆退出循环 ELSE

I=I-1

IF （ 59 C ） RETURN ENDIF ENDIF ENDIF DO pass RETURN

（56） A．READ B．PUT C．GET D．WRITE （57） A． STR（PASSWORD，3，4） B． SUBSTR（PASSWORD，3，4）

C． RIGHT（PASSWORD，3，4） D． LEFT（PASSWORD，3，4）

（58） A．END B．RETURN C．QUET D．EXIT （59） A．I=.F. B．I=.T. C．I=0 D．I= -1

2．下面程序的功能是：对图书管理数据库中的表SMDE.DBF按书名进行查询。请将程序补充完整。

USE SMDB

INDEX ON 书名 TAG 书名 NY=〞Y〞

DO WHILE （ 60 D ） GO TOP

ACCEPT 〞请输入书名：〞TO SM SEEK （ 61 A ） IF （ 62 B ） DISPLAY ELSE

？〞查无此书〞 ENDIF

WAIT 〞继续吗？（Y/N）〞TO NY NY=（ 63 C ） ENDDO

（60） A．NY B．NOT NY C．NY=.T. D．NY=〞Y〞 （61） A．SM B．〞SM〞 C．&SM D．$SM （62） A．EOF（） B．FOUND（） C． .T. D． .F. （63） A．N/Y B．n/y C．UPPER(NY) D．T=1 第（64）-（67）选择题基于下面给定的关系：

学生关系S（S#，SNAME，SEX，AGE，SDEPT），其字段分别表示学号、姓名、性别、年龄、所在系别

课程关系C（C#，CNAME，TEACHER），其字段分别表示课程号、课程名、授课教师 学生选课关系SC（S#，C#，GRADE），其字段分别表示学号、课程号、成绩 3．下面查询语句实现检索学生姓名及其所选修课程的课程号和成绩。。 SELECT S.SNAME，SC.C#,SC.GRADE； FROM （ 64 C ）； WHERE S.S#=SC.S#

（64） A．S，C B．C，SC C．S，SC D．S

4．下面查询语句实现检索所有比“王华”年龄大的学生姓名、年龄和性别。 SELECT SNAME，AGE，SEX； FROM S；

WHERE AGE>（ 65 A ） （65） A．（SELECT AGE FROM S WHERE SNAME=〞王华〞） B．（SELECT AGE WHERE SNAME=〞王华〞） C．王华 AGE D．王华. AGE

5．下面查询语句实现检索选修四门以上课程的学生总成绩（不统计不及格的课程），并要求按总成绩的降序排列出来。 SELECT S#，SUM（GRADE）； FROM SC；

WHERE GRADE>=60 （ 66 B ）

（66）A．ORDER BY 2 DESC HAVING COUNT（*）=4

B．GROUP BY S# HAVING COUNT（*）>=4 ORDER BY 2 DESC C．HAVING COUNT(*)>=4 GROUP BY S#

D．ORDER BY 2 DESC GROUP BY S# HAVING COUNT(*)>=4 6．下面查询语句实现检索“信息系”学生选修了的所有课程名。 SELECT CNAME；

FROM S，C，SC； WHERE（ 67 A ）

（67） A．S.S#=SC.S# AND SC.C#=C.C# AND S.SDEPT=〞信息系〞 B．S.S#=SC.S# AND S.SDEPT=〞信息系〞 C．SC.C#=C.C# AND S.SDEPT=〞信息系〞 D．S.SDEPT=〞信息系〞

7．下面程序的功能是完成图书查询，用户输入书名后，从图书表（图书.dbf）中给定的书目的信息。若用户没有输入书名则要求用户重新输入，若用户输入字符串“000”，则结束查询。

DO WHILE .T.

ACCEPT ”请输入书名：”TO SM IF LEN(ALLTRIM(SM))=0 ( 68 A ) ENDIF

IF ALLTRIM(SM)=”000” ( 69 D ) ENDIF

LOCALTE ALL FOR 书名=ALLTRIM(SM) IF FOUND()

DO WHILE NOT EOF() DISPLAY ( 70 D ) ENDDO ELSE

?”查无此书” ENDIF ENDDO

（68）A．LOOP B．EXIT C．QUIT D．RETURN （69）A．LOOP B．EXIT C．QUIT D．REUTRN （70）A．LOOP B．EXIT C．SKIP D．CONTINUE 第（56）-（61）选择题使用如下三个数据库表： 学生.DBF：学号C（8），姓名C （12），性别C （2）， 出生日期D ，院系C（8） 课程.DBF：课程编号C（4），课程名称C（10），开课院系C（8） 学生成绩.DBF：学号C（8），课程编号C（4），成绩 N（5,1）

1 .下面语句实现查询每门课程的最高分，要求得到的信息包括课程名称和分数。 SELECT 课程名称，（ 56 A ）FROM（ 57 B ） WHERE 课程.课程编号=学生成绩.课程编号； GROUP BY （ 58 B ）

（56）A. MAX（成绩）AS 分数 B. MAX （成绩）LIKE 分数

C. SUM （成绩）分数 D. SUM（成绩）AS 分数

（57）A. 学生，课程 B. 课程，学生成绩 C. 学生，学生成绩 D. 学生成绩

本文来源：https://www.bwwdw.com/article/m4mv.html