VB第三次作业 (8 ~ 10章)

VB第三次作业(8~10章)

一、选择题(每题2分，共2x20=40分)

1、要获得当前驱动器应使用驱动器列表框的属性是

A.Path

B.Drive

C.Dir

D.Pattern

2,设在窗体上有个文本框，然后编写如下的事件过程：

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

ConstAlt=4

ConstKey_F2=&H71

altdown%=(ShiftAndAlt)>0

f2down%=(KeyCode=Key_F2)

Ifaltdown%Andf2down%Then

Textl.Text=nBBBBBu

EndIf

EndSub

上述程序运行后，如果按【Shift+F2］，则在文本框中显示得是

A.Alt+F2

B.BBBBB

C.随机出几个数

D.文本框平均内容无变化

3、下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel

键退出对话框，则

PrivateSubCommand1_Click()

CommonDialog1.CancelError=True

CommonDialogl.Flags=cdlCFEffectsOrcdlDFBoth

CommonDialog1.Action=4

CommonDialogl.ShowFont

Textl.Font.Name=CommonDialogl.FontName

Text1.Font.Size=CommonDialogl.FontSize

Textl,Font.Bold=CommonDialogl.FontBold

Textl.Font.Italic=CommonDialog1.Fontltalic

Textl.Font.Underline=CommonDialogl.FontUnderline

Text1.FontStrikethru=CommonDialog1.FontStrikethru

Textl.ForeColor=CommonDialog1.Color

EndSub

A.Textl的字体不发生变化

B.Textl的字体发生变化

C.Textl的字体和颜色发生变化

D.程序出错！

4、以下叙述中错误的是

A)在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相

同的KeyCode)

B)在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数

字(具有不同的KeyCode)

C)KeyPress事件中不能识别键盘上某个键的按下与释放

D)KeyPress事件中可以识别键盘上某个键的按下与释放

5、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列

出的文件类型是文本文件(即.txt文件)，则正确的描述格式是

A)“text(.txt)l(*.txt)”B)”文本文件(.txt)I(.txt)”

C)“text(.txt)ll(*.txt)"D)"text(.txt)(*.txt)”

6、以下叙述中正确的是

A)一个记录中所包含的各个元素的数据类型必须相同

B)随机文件中每个记录的长度是固定的

C)Open命令的作用是打开一个已经存在的文件

D)使用Input#语句可以从随机文件中读取数据

7、目录列表框的Path属性的作用是

A)显示当前驱动器或指定驱动器上的目录结构

B)显示当前驱动器或指定驱动器上的某目录下的文件名

C)显示根目录下的文件名

D)显示该路径下的文件

8、设有语句

open"c：\Test.Dat"ForOutPutAs#l

则以下错误的叙述是

A)该语句打开C盘根目录下一个己存在的文件Test.Dat

B)该语句在C盘根目录下建立一个名为Test.Dat的文件

C)该语句建立的文件的文件号为1

D)执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息

9、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：

PrivateSubTxta_KeyPress(keyasciiasinteger)

EndSub

若焦点位于文本框中，则能够触发KeyPress事件的操作是

A)单击鼠标B)双击文本框

C)鼠标滑过文本框D)按下键盘上的某个键

10、假定有如下事件过程：

PriVateSubForm_MouseDown(buttonAsInteger,ShiftAsInteger,xAsSingle,YAs

Single)

IfButton=2then

PopupMenupopForm

Endif

EndSub

则以下描述中错误的是

A)该过程的功能是弹出一个菜单

B)popForm是在菜单编辑器中定义的弹出式菜单的名称

C）参数X、Y指明鼠标的当前位置

D）Button=2表示按卜的是鼠标左键

11、当函数EOF（）的返回值为真时，表示文件的指针指向（）。

A、开头B、尾部C、第一个记录D、最后一个记录

12、在VisualBasic中按文件的访问方式不同，可以将文件分为（）

（A）顺序文件、随机文件和二进制文件（B）文本文件和数据文件

（C）数据文件和可执行文件（D）ASCH文件和二进制文件

13、在顺序文件中（）

（A）每条记录的记录号接从小到大排序

（B）每条记录的长度按从小到大排序

（C）按记录的某个关键数据项的排序顺序组织文件

（D）记录按写入的先后顺序存放，并按写入的先后顺序读出

14、下列（）组关键字是Select语句中不可缺少的。

（A）Select、From（B）Select、All

（C）From、OlrBy（D）Select、here

15、下面关于随机文件的描述，不正确的是：

A、每条记录的长度必须相同

B、一个文件中记录号不必惟一

C、可通过编程对文件中的某条记录方便地修改

D、文件的组织结构比顺序文件复杂

16、以下说法错误的是（）。

A、一个表可以构成•个数据库

B、多个表可以构成一个数据库

C、一个表的每一条记录中的各数据项具有相同的类型

D、同一个字段的数据具有相同的类型

17、MicrisiftAccess数据库文件的扩展名是（）。

A、.dbfB、.AccC、.mdbD、.db

18、以下说法正确的是（）。

A、使用Data控件可以直接显示数据库中的数据

B、使用数据绑定控件可以直接访问数据库中的数据

C、使用Data控件可以对数据库中的数据进行操作，却不能显示数据库中的数据

D、Data控件只有通过数据绑定控件才可以访问数据库中的数据

19、SQL语句Select学号，姓名，专业From学生Where专业="计算机”，所查询的表

名称是（）。

A、所有表B、学生C、计算机D、学号，姓名，专业

20、语句“Select*From学生基本Where性别="男"中的“*”号表示（）。

A、所有表B、所有指定条件的记录

C、所有记录D、指定表中的所有字段

二、填空题（每题2分，共2x15=30分）

1、要关闭所有已打开的文件，可以使用的语句为（）。Close

2、一个数据库可以有表，表中的称为记录，表中的称为字段。

个到多个；行；列

3、随机文件以为单位读写，二进制文件以为单位读写。记录；字节

4、若要在3号通道上建立顺序文件“c:\dirl.dat”,使用的语句为（）。Open"c:\dirl.dat”

ForOutputAs#3

5、把当前驱动器设置为e,使用的语句为（）。ChDrive“e:"

6、要删除文件“c:\dirl.txt”使用的命令为（）。Kill“c:\dirl.txt”

7、执行扩展名为.exe的可执行文件使用（）函数。Shell

8、按数据的组织方式不同，数据库可以分为3种类型，即数据库、数据

库和数据库。层次、网状、关系

9^记录集的属性用于指示Recordset对象中记录的总数。RecordCount

10、作为一个集编辑、编译与运行于一体的集成环境，VB的工作状态可分为、

和三种模式。设计模式、运行模式、中断模式

11、VisculBasic提供捕获错误的语句是。OnError语句

12、要在当前窗口输出字符串“VisualBasic6.0”使用的Print方法分别是。Print

''VisualBasic6.0”

13、要在立即窗口输出字符串“VisualBasic6.0”使用的Print方法分别是。

Debug.Print''VisualBasic6.0”

14、VB程序的错误一般分为、和__________三类。编译错误，运行

时错误，逻辑错误

15、删除“总成绩”表中“成绩”字段值小于60分的记录,相应的Delete语句为:。

Delete*from总成绩Where成绩＜60

三、程序阅读（每题5分，共5x4=20分）

1、下面事件过程的功能是读取文件“c:\tst.txt”中的内容，在横线上填上适当内容。

PrivateSubCommand1_Click()

DimlinetextAsString

DimfilenoAsInteger

fileno=FreeFile

Open'c:\tst.txt"ForInputAs#fileno

Whi1e____________(1)____________

(2)

Printlinetext

Wend

Close#fileno

EndSub

答案：(l)NotEOF(fileno)

(2)LineInput#fileno,linetext

2、下面事件过程的功能是将学生的课程成绩保存到文件“c:\chengji.txt”中，在横线上填上

适当内容。

PrivateSubCommand1_C1ick()

Dimn%,i%,score!

n=InputBox(〃输入学生人数：〃)

Open"c:\chengji.txt"(1)As#1

Fori=1Ton

score=InputBox(〃输入第〃&Str(i)&〃个学生的成绩：”)

(2)

Nexti

Close#1

EndSub

答案：(1)ForOutput

(2)Write#1,score

3、下面事件过程的功能是把某人每个月的收入存到二进制文件“C:\gz.bng”中，在横线上

填上适当内容。

PrivateSubCommand1_C1ick()

Dimi%,sr!,k%

(1)

k=1

Fori=1To12

sr=InputBox(〃输入第〃&Str(i)&〃个月工资：〃)

Put#1,k,sr

(2)

Nexti

Close#1

EndSub

答案：(1)OpenKC:\gz.bng"ForBinaryAs#1

(2)k=4*i+1

4、写出以下程序段的运行结果。

PrivateSubForm_Click()

Dimi%

Dimf(2)

Fori=0To2

f(i)=sq(i*i+1)

Nexti

DoUntili=0

i=i-1

Print"Ff;i;〃)=〃；f(i)

Loop

EndSub

PublicFunctionsq(x)

x=x+2

sq=x*4-5

EndFunction

答案：F(2)=23