vb文档格式.docx

vb文档格式.docx

《vb文档格式.docx》由会员分享，可在线阅读，更多相关《vb文档格式.docx（12页珍藏版）》请在冰豆网上搜索。

D）软件维护是指修复程序中被破坏的指令

（8）数据库设计的根本目标是要解决

A）数据共享问题

B）数据安全问题

C）大量数据存储问题

D）简化数据维护

（9）设有如下关系表:

（注此题干格式可能有误）

RSTABCABCABC112313112223223313

则下列操作中正确的是

A）T＝R∩S

B）T＝R∪S

C）T＝R×

S

D）T＝R/S

（10）数据库系统的核心是

A）数据模型

B）数据库管理系统

C）数据库

D）数据库管理员

（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。

为了保存该应用程序，以下正确的操作是

A）只保存窗体模块文件

B）分别保存窗体模块、标准模块和工程文件

C）只保存窗体模块和标准模块文件

D）只保存工程文件

（12）为了清除窗体上的一个控件，下列正确的操作是

A）按回车键

B）按Esc键

C）选择（单击）要清除的控件，然后按Del键

D）选择（单击）要清除的控件，然后按回车键

（13）以下叙述中错误的是

A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件

C）VisualBasic应用程序只能以解释方式执行

D）事件可以由用户引发，也可以由系统引发

（14）设a=2,b=3,c=4,d=5,

下列表达式的值是Nota<

=cOr4*c=b^2Andb<

>

a+c

A）-1

B）1

C）True

D）False

（15）设a=5，b=10，

则执行c=Int（（b-a）*Rnd+a）+1后，c值的范围为

A）5～10

B）6～9C）

6～10

D）5～9

（16）在窗体上画一个命令按钮，名称为Command1，

然后编写如下事件过程：

PrivateSubCommand1_Click（）

a$="

softwareandhardware"

b$=Right（a$,8）

c$=Mid（a$,1,8）

MsgBoxa$,,b$,c$,1

EndSub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

A）softwareandhardware

B）software

C）hardware

D）1

（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，

把文本框的Text属性设置为空白，然后编写如下事件过程：

PrivateSubCommand1_Click（）

a=InputBox（"

Enteraninteger"

）

b=InputBox（"

Text1.Text=b+a

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是

A）108

B）18

C）810

D）出错

（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

PrivateSubForm_Load（）

Text1.Text="

"

Text2.Text="

Text1.SetFocus

PrivateSubText1_Change（）

Text2.Text=Mid（Text1.Text,8）

EndSub

程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是

A）BeijingChina

B）China

C）Beijing

D）BeijingC

（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：

PrivateSubForm_Load（）

Show

List1.AddItem"

Item1"

List1.AddItem"

Item2"

Item3"

List1.List（List1.ListCount）="

AAAA"

程序运行后，单击命令按钮，其结果为

A）把字符串“AAAA”添加到列表框中，但位置不能确定

B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）

C）把列表框中原有的最后一项改为“AAAA”

D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）

（20）假定有如下事件过程：

PrivateSubForm_Click（）

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<

28

x=x*3

n=n+1

Loop

Printx,n

程序运行后，单击窗体，输出结果是

A）814

B）563

C）281

D）2435

（21）有如下程序：

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<

20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

LoopUntilCheck=False

PrintCounter,Check

EndSub

程序运行后，单击窗体，输出结果为

A）150

B）20-1

C）10True

D）10False

（22）有如下程序：

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod2<

0AndiMod3=0Then

sum=sum+i

Nexti

Printsum

程序运行后，单击窗体，输出结果为

A）12

B）30

C）24

D）18

（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，

Dimarray1（10,10）AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

array1（i,j）=i+j

Nextj

Text1.Text=array1（2,3）+array1（3,4）

程序运行后，单击命令按钮，在文本框中显示的值是

B）13

C）14

D）15

（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Dima1（4,4）,a2（4,4）

Fori=1To4

Forj=1To4

a1（i,j）=i+j

a2（i,j）=a1（i,j）+i+j

Printa1（3,3）;

a2（3,3）

程序运行后，单击命令按钮，在窗体上输出的是

A）66

B）105

C）721

D）612

（25）有如下程序：

OptionBase1

Dimarr,Sum

Sum=0

arr=Array（1,3,5,7,9,11,13,15,17,19）

Fori=1To10

Ifarr（i）/3=arr（i）\3Then

Sum=Sum+arr（i）

PrintSum

A）25

B）26

C）27

D）28

（26）在窗体上画一个命令按钮，然后编写如下事件过程：

Dima（5）AsString

Fori=1To5

a（i）=Chr（Asc（"

A"

）+（i-1））

ForEachbIna

Printb;

Next

程序运行后，单击命令按钮，输出结果是

A）ABCDE

B）12345

C）abcde

D）出错信息

（27）以下关于函数过程的叙述中，正确的是

A）如果不指明函数过程参数的类型，则该参数没有数据类型

B）函数过程的返回值可以有多个

C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

D）函数过程形参的类型与函数返回值的类型没有关系

（28）函数过程F1的功能是：

如果参数b为奇数，则返回值为1，否则返回值为0。

以下能正确实现上述功能的代码是

A）FunctionF1（bAsInteger）

IfbMod2=0Then

Return0

Else

Return1

EndIf

EndFunction

B）FunctionF1（bAsInteger）

F1=0

F1=1

C）FunctionF1（bAsInteger）

D）FunctionF1（bAsInteger）

IfbMod2<

0Then

EndFunction

（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是

A）KeyAscii参数是所按键的ASCII码

B）KeyAscii参数的数据类型为字符串

C）KeyAscii参数可以省略

D）KeyAscii参数是所按键上标注的字符

（30）设窗体上有一个名为Text1的文本框，并编写如下程序：

Show

Text1.Text="

PrivateSubForm_MouseUp（ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle）

Print"

程序设计"

PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

VisualBasic"

;

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是

A）VisualBasic

B）程序设计

C）VisualBasic程序设计

D）a程序设计

（31）假定有下表所列的菜单结构：

━━━━━━━━━━━━━━━━━━━━标题名称层次

────────────────────显示appear1（主菜单）

大图标bigicon2（子菜单）

小图标smallicon2（子菜单）

━━━━━━━━━━━━━━━━━━━━

要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个"

√"

。

以下正确的事件过程是

A）PrivateSubbigicon_Click（）

bigicon.Checked=False

B）PrivateSubbigicon_Click（）

Me.appear.bigicon.Checked=True

C）PrivateSubbigicon_Click（）

bigicon.Checked=True

D）PrivateSubbigicon_Click（）

appear.bigicon.Checked=True

EndSub

（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，

则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是

A）PrivateSubCommand1_Click（）

CommonDialog1.DialogTitle="

NewTitle"

CommonDialog1.ShowPrinter

B）PrivateSubCommand1_Click（）

CommonDialog1.ShowFont

C）PrivateSubCommand1_Click（）

CommonDialog1.ShowOpen

D）PrivateSubCommand1_Click（）

CommonDialog1.ShowColor

EndSub

（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

A）任何时刻最多只有一个窗体是活动窗体

B）不能把标准模块设置为启动模块

C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

D）如果工程中含有SubMain过程，则程序一定首先执行该过程

（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。

下列能够完成该操作的事件过程是

DimBAsBooks

Open"

c:

\Person.txt"

ForOutputAs#1

B.Name=InputBox（"

输入姓名"

）

B.TelNum=InputBox（"

输入电话号码"

Write#1,B.Name,B.TelNum

Close#1

ForInputAs#1

Print#1,B.Name,B.TelNum

Name=InputBox（"

TelNum=InputBox（"

Write#1,BClose#1

DimBAsBook

（35）目录列表框的Path属性的作用是

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

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

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

D）显示指定路径下的文件

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

请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】。

（2）算法复杂度主要包括时间复杂度和【2】复杂度。

（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：

驱动模块和承接模块（桩模块）。

其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。

（4）一棵二叉树第六层（根结点为第一层）的结点数最多为【4】个。

（5）数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。

（6）设有以下函数过程：

Functionfun（mAsInteger）AsInteger

DimkAsInteger,sumAsInteger

Fork=mTo1Step-2

sum=sum+k

Nextk

fun=sum

若在程序中用语句s=fun（10）调用此函数，则s的值为【6】。

（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。

程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，

程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。

例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。

请填空。

PrivateSubCommand1_Click（）

DimstrAsString,sAsString,cAsString

str=UCase（Text1）

s="

c="

Z"

Whilec>

="

IfInStr（str,c）=0Then

s=【7】

c=Chr$（Asc（c）【8】）

Wend

Ifs<

"

Then

Text1=s

（8）在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。

下图窗体中3个文本框的名称依次是Text1、Text2、Tex