全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题 模拟真题.docx

全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题 模拟真题.docx

《全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题 模拟真题.docx》由会员分享，可在线阅读，更多相关《全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题 模拟真题.docx（18页珍藏版）》请在冰豆网上搜索。

全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题模拟真题

计算机等级考试二级VisualBasic语言程序设计笔试试卷

一、选择题（

（1）一（20）每小题2分，（21）一（30）每小题3分，共30题，70分）

下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。

（1）以下不能在“工程资源管理器”窗口中列出的文件类型是

A）．basB）．resC）．fnnD）．ocx

（2）以下关于窗体的描述中，错误的是

A）执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中

B）窗体的Ioad事件在加载窗体时发生

C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止

D）窗体的Height、width属性用于设置窗体的高和宽

（3）下列可作为VisualBasic变量名的是

A）A#AB）4AC）?

xYD）constA

（4）设有如下的记录类型

TypeStudent

numberAsstring

nameAsString

ageAsInteger

EndType

则正确引用该记录类型变量的代码是

A）Student．name=”张红”B）DimAsStudent

s．name＝”张红”

C）DimsAsTypeStudentD）DimsAsType

S．name=”张红”s.Dame＝”张红”

（5）函数String（n，“str”）的功能是

A）把数值型数据转换为字符串

B）返回由n个字符组成的字符串

C）从字符串中取出n个字符

D）从字符串中第n个字符的位置开始取子字符串

（6）将数学表达式Cos2（a+b）+5e2写成VisualBasic的表达式，其正确的形式是

A）Cos（a+b）A2十5*exp

（2）B）Cos^2（a+b）+5*exp

（2）

C）Cos（a+b）^2十5*ln

（2）D）Cos^2（a+b）+5*ln

（2）

（7）在窗体上画一个命令按钮，名称为Commandl。

单击命令按钮时，执行如下事件过

程：

PrlVateSubCommandl—C1icko

a$="softwareandhardware"

b$＝Right（a$,8）

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

Msgboxa$,,b$,c$,1

EndSub

则在弹出的信息框的标题栏中显示的信息是

A）softWareandhardwareB）softwareC）hardwafeD）1

（8）执行如下语句：

a＝inutBox（”Today”，”TomorroW，”Yesterday”,,,"Daybeforeyesterday"，5）

将显示一个输入对话框，在对话框的输入区中显示的信息是

A）TodayB）TomorrowC）YesterdayD）Daybeforeyesterday

（9）表示滚动条控件取值范围最大值的属性是

A）MaxB）LargeChangeC）ValueD）Max—Min

（10）在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。

列表框中显示

若干城市的名称。

当单击列表框中的某个城市名时，在标签中显示选中城市的名称。

下列能正确实现上述功能的程序是

A）PrivateSublistl_Click（）

Labell．Caption＝list1.listlndex

EndSub．

B）PrivateSubListl_C1ick（）

Labell．Nanle＝Listl．listindex

EndSub

C）PrivateSubList1_Click（）

Label1.Name=List1.Text

EndSub

D）PrivateSubList1_Click（）

Label1.Caption=List1.Text

EndSub

（11）在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

PrivateSubCommand1_Click（）

x=0

n=InputBox（""）

Fori=1Ton

Forj=1Toi

x=x+1

Nextj

Nexti

Printx

EndSub

程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是______。

A）3B）4C）5D）6

（12）以下关于菜单的叙述中,错误的是______。

A）在程序运行过程中可以增加或减少菜单项

B）如果把一个菜单的Enabled属性设置为False,则可删除该菜单项

C）弹出式菜单在菜单编辑器中设计

D）利用控件数组可以实现菜单项的增加或减少

（13）在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。

用于标识各个控件数组元素的参数是______。

A）Tag

B）Index

C）ListIndex

D）Name

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

OptionBase0

PrivateSubCommand1_Click（）

DimcityAsVariant

city=Array（"北京","上海","天津","重庆"）

Printcity

（1）

EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。

A）空白

B）错误提示

C）北京

D）上海

（15）假定有以下函数过程：

FunctionFun（SAsString）AsString

Dims1AsString

Fori=1ToLen（S）

s1＝UCase（Mid（S，i，1））十s1

Nexti

Fun＝s1

EndFunction

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

PrlvateSubCommmldl_Click（）

DimStr1AsString，Str2AsString

Strl＝inputbox（”请输入一个字符串”）

Str2=Fun（Strl）

PrintStr2

EndSub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

A）abcdefgB）ABCDEFGC）gfedcbaD）GFEDCBA

（16）设有语句

open"c：

Test．Dat"ForOutPutAs#1

则以下错误的叙述是

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

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

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

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

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

A）用Shell函数可以调用能够在Windows下运行的应用程序

B）用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数

C）调用Shell函数的格式应为：

<变量名>＝Shell（……）

D）用Shell函数不能执行DoS命令

（18）以下关于过程及过程参数的描述中，错误的是

A）过程的参数可以是控件名称

B）用数组作为过程的参数时，使用的是“传地址”方式

C）只有函数过程能够将过程中处理的信息传回到调用的程序中

D）窗体可以作为过程的参数

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

PrivateSubTxta_KeyPress（keyasciiasinteger）

EndSub

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

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

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

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

A）显示当前驱动器或指定驱动器上的路径

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

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

D）只显示当前路径下的文件

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

PriVateSubForm_MouseDown（buttonAsInteger,ShiftAsInteger,xAs

Single，YAs

Single）

IfButton＝2then

PopupMenupopForm

Endif

EndSub

则以下描述中错误的是

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

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

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

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

（22）以下能够正确计算n!

的程序是

A）PrivateSubCommandl_ClicK（）

n＝5:

x＝1

Do

X=x*1

i＝i十1

LoopWhilei＜n

Printx

EndSub

B）PrivateSubCommandl_Click（）

n＝5:

x＝1：

i=1

Do

X＝X*1

i＝i十1

LoopWhilei＜n

Printx

EndSub

C）PrivateSubCommandl_Click（）

n=5：

x＝1：

i＝1

Do

X=X*1

i＝i十1

Loopwhilei<=n

Printx

EndSub

D）PrivateSubCommandl_C1ick（）

n＝5：

x＝1：

i=1

Do

X=X*l

i=i十1

loopWhilei＞n

Printx

EndSub

（23）在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：

PrivatexAsInteger

PrivateSubCommandl—Click（）

X＝5：

Y＝3

Callproc（x,Y）

Labell．Caption＝X

Label2．Caption＝Y

EndSub

PrivateSubproc（ByValaAsInteger，ByValbAshteger）

x＝a*a

Y=b十b

EndSub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是

A）5和3B）25和3C）25和6D）5和6

（24）在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后

编写如下事件过程：

PrivateSubCommandl_C1ick（）

S＝0

Fori＝1T015

x＝2*i一1

1fxMod3＝0Thens＝s十1

Nexti

Labell．Caption=s

EndSub

．程序运行后，单击命令按钮，则标签中显示的内容是

A）1B）5C）27D）45

（25）在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、

Label3的标签，然后编写如下代码：

PrivatexAs