全国计算机等级考试二级VB笔试试题.docx

全国计算机等级考试二级VB笔试试题.docx

《全国计算机等级考试二级VB笔试试题.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB笔试试题.docx（10页珍藏版）》请在冰豆网上搜索。

全国计算机等级考试二级VB笔试试题

一、选择题（

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

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

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

　　PrivateSubCommand1_Click（）

　　Move500，500

　　EndSub

　　程序运行后，单击命令按钮，执行的操作为

　　A）命令按钮移动到距窗体左边界、上边界各500的位置

　　B）窗体移动到距屏幕左边界、上边界各500的位置

　　C）命令按钮向左、上方向各移动500

　　D）窗体向左、上方向各移动500

（2）在窗体上有若干控件，其中有一个名称为Text1的文本框。

影响Text1的Tab顺序的属性是

　　A）TabStop         B）Enabled

　　C）Visible            D）TabIndex

　　（3）以下定义数组或给数组元素赋值的语句中，正确的是

　　（4）在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为

　　A）Fori=0ToList1.ListCount-1

　　……

　　Next

　　B）Fori=0ToListCount-1

　　……

　　Next

　　C）Fori=1ToList1.listCount

　　……

　　Next

　　D）Fori=1ToListCount

　　……

　　Next

　　（5）以下Case语句中错误的是

　　A）Case0To10                B）CaseIs>10

　　C）CaseIs>10AndIs<50  D）Case3,5,Is>10

　　（6）以下关于图片框控件的说法中，错误的是

　　A）可以通过Print方法在图片框中输出文本

　　B）清空图片框控件中图形的方法之一是加载一个空图形

　　C）图片框控件可以作为容器使用

　　D）用Stretch属性可以自动调整图片框中图形的大小

　　（7）执行语句s=Len（Mid（"VisualBasic",1,6））后，s的值是

　　A）Visual        B）Basic        C）6        D）11

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

　　A）下拉式菜单和弹出式菜单都用菜单编辑器建立

　　B）在多窗体程序中，每个窗体都可以建立自己的菜单系统

　　C）除分隔线外，所有菜单项都能接收Click事件

　　D）如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见

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

　　PrivateSubCommand1_Click（）

　　a=12345

　　PrintFormat$（a,"000.00"）

　　EndSub

　　程序运行后，单击命令按钮，窗体上显示的是

　　A）123.45        B）12345.00       C）12345         D）00123.45

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

　　A）一个工程可以包括多种类型的文件

　　B）VisualBasic应用程序既能以编译方式执行，也能以解释方式执行

　　C）程序运行后，在内存中只能驻留一个窗体

　　D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

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

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

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

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

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

　　（12）以下关于变量作用域的叙述中，正确的是

　　A）窗体中凡被声明为Private的变量只能在某个指定的过程中使用

　　B）全局变量必须在标准模块中声明

　　C）模块级变量只能用Private关键字声明

　　D）Static类型变量的作用域是它所在的窗体或模块文件

　　（13）确定一个控件在窗体上的位置的属性是

　　A）Width和Height          B）Width或Height

　　C）Top和Left                 D）Top或Left

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

　　PrivateSubCommand1_Click（）

　　Text1.Text="Visual"

　　Me.Text1="Basic"

　　Text1="Program"

　　EndSub

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

　　A）Visual         B）Basic          C）Program         D）出错

　　（15）以下关系表达式中，其值为False的是

　　A）"ABC">"AbC"                             B）"the"<>"they"

　　C）"VISUAL"=UCase（"Visual"）        D）"Integer">"Int"

　　（16）语句Print5/4*6\5Mod2的输出结果是

　　A）0             B）　1            C）2             D）3

　　（17）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

　　PrivateSubCommand1_Click（）

　　　　strText=InputBox（"请输入"）

　　　　Text1.Text=strText

　　EndSub

　　PrivateSubText1_Change（）

　　　　Label1.Caption=Right（Trim（Text1.Text）,3）

　　EndSub

　　程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

　　A）空            B）abcdef             C）abc              D）def

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

　　PrivateSubCommand1_Click（）

　　x=-5

　　IfSgn（x）Then

　　　　y=Sgn（x^2）

　　Else

　　　　y=Sgn（x）

　　EndIf

　　Printy

　　EndSub

　　程序运行后，单击命令按钮，窗体上显示的是

　　A）-5              B）25            C）1            D）-1

　　（19）一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，则以下叙述中正确的是

　　A）变量X、Y的作用域相同                 B）Y的作用域是Model1

　　C）在Form1中可以直接使用X               D）在Form2中可以直接使用X和Y

　　（20）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。

当改变当前驱动器时，目录列表框应该与之同步改变。

设置两个控件同步的命令放在一个事件过程中，这个事件过程是

　　A）Drive1_Change               B）Drive1_Click

　　C）Dir1_Click                        D）Dir1_Change

       （21）在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:

　　OptionBase1

　　PrivateSubCommand1_Click（）

　　Dima

　　s=0

　　a=Array（1,2,3,4）

　　j=1

　　Fori=4To1Step-1

　　s=s+a（i）*j

　　j=j*10

　　Nexti

　　Prints

　　EndSub

　　运行上面的程序，单击命令按钮，其输出结果是

　　A）4321               B）1234              C）34                 D）12

　　（22）在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。

以下能实现该操作的事件过程是

　　A）PrivateSubText1_KeyPress（KeyAsciiAsInteger）

　　IfKeyAscii<65OrKeyAscii>90Then

　　MsgBox"请输入大写字母"

　　KeyAscii=0

　　EndIf

　　EndSub

　　B）PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

　　IfKeyCode<65OrKeyCode>90Then

　　MsgBox"请输入大写字母"

　　KeyCode=0

　　EndIf

　　EndSub

　　C）PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,  YAsSingle）

　　IfAsc（Text1.Text）<65OrAsc（Text1.Text）>90Then

　　MsgBox"请输入大写字母"

　　EndIf

　　 EndSub

　　D）PrivateSubText1_Change（）

　　IfAsc（Text1.Text）>64AndAsc（Text1.Text）<91Then

　　MsgBox"请输入大写字母"

　　EndIf

　　EndSub

　　（23）假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：

　　PrivateTypeanimal

　　AnimalNameAsString*20

　　AColorAsString*10

　　EndType

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

　　PrivateSubCommand1_Click（）

　　DimrecAsanimal

　　Open"c:

\vbTest.dat"ForRandomAs#1Len=Len（rec）

　　rec.animalName="Cat"

　　rec.aColor="White"

　　Put#1,,rec

　　Close#1

　　EndSub

　　则以下叙述中正确的是

　　A）记录类型animal不能在Form1中定义，必须在标准模块中定义

　　B）如果文件c:

\vbTest.dat不存在，则Open命令执行失败

　　C）由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

　　D）语句“Put#1,,rec”将animal类型的两个数据元素写到文件中

　　（24）在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：

　　PrivateSubCommand1_Click（）

　　n=Val（Text1.Text）

　　Ifn\2=n/2Then

　　f=f1（n）

　　Else

　　f=f2（n）

　　EndIf

　　Printf;n

　　EndSub

　　PublicFunctionf1（ByRefx）

　　x=x*x

　　f1=x+x

　　EndFunction

　　PublicFunctionf2（ByValx）

　　x=x*x

　　f2=x+x+x

　　EndFunction

　　程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是

　　A）7236            B）10836           C）726            D）1086

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

　　PrivateSubCommand1_Click（）

　　c=1234

　　c1=Trim（Str（c））

　　Fori=1To4

　　Print　 

　　Next

　　EndSub

　　程序运行后，单击命令按钮，要求在窗体上显示如下内容

　　1

　　12

　　123

　　1234

　　则在下划线处应填入的内容为

　　A）Right（c1,i）           B）Left（c1,i）            C）Mid（c1,i,1）             D）Mid（c1,i,i）

　　（26）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

东方教育网提供Http:

//

　　PrivateSubCommand1_Click（）

　　n=Val（Text1.Text）

　　Fori=2Ton

　　Forj=2Tosqr（i）

　　IfiModj=0ThenExitFor

　　Nextj

　　Ifj>Sqr（i）ThenPrinti

　　Nexti

　　EndSub

　　该事件过程的功能是

　　A）输出n以内的奇数B）输出n以内的偶数

　　C）输出n以内的素数D）输出n以内能被j整除的数

　　（27）在以下描述中正确的是

　　A）标准模块中的任何过程都可以在整个工程范围内被调用

　　B）在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程

　　C）如果工程中包含SubMain过程，则程序将首先执行该过程

　　D）如果工程中不包含SubMain过程，则程序一定首先执行第一个建立的窗体

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

　　PrivateFunctionf（mAsInteger）

　　IfmMod2=0Then

　　f=m

　　Else

　　f=1

　　EndIf

　　EndFunction

　　PrivateSubCommand1_Click（）

　　DimiAsInteger

　　s=0

　　Fori=1To5

　　s=s+f（i）

　　Next

　　Prints

　　EndSub

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

　　A）11          B）10            C）9            D）8

　　（29）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　PrivateSubCommand1_Click（）

　　Dimarray1（10,10）AsInteger

　　DimiAsInteger,jAsInteger

　　Fori=1To3

　　Forj=2To4

　　array1（i,j）=i+j

　　Nextj

　　Nexti

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

　　EndSub

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

　　A）15           B）14           C）13             D）12

　　（30）在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：

　　PrivateSubCommand1_Click（）

　　ForEachTextBoxInText1

　　Text1（i）=Text1（i）.Index

　　i=i+1

　　Next

　　EndSub

　　程序运行后，单击命令按钮，四个文本框中显示的内容分别为

　　A）0　1　2　3              B）1　2　3　4

　　C）0　1　3　2              D）出错信息

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

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

（1）VisualBasic应用程序中标准模块文件的扩展名是【1】。

（2）在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。

以下是实现上述功能的程序，请填空。

　　PrivateSubForm【2】（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

　　IfButton=2Then

　　【3】mnuEdit

　　EndIf

　　EndSub

　　（3）为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】　。

　　（4）与数学表达式对应的VisualBasic表达式是【6】　。

　　（5）将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】　。

　　（6）在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。

　　PrivateSubOption1_Click（IndexAsInteger）

　　SelectCase【8】

　　Case0

　　a="宋体"

　　Case1

　　a="黑体"

　　Case2

　　a="楷体＿GB2312"

　　EndSelect

　　text1.【9】　=a

　　EndSub

　　（7）在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。

请填空。

　　PrivateSubCombo1_Click（）

　　CallShowItem（Combo1,Label1）

　　EndSub

　　PrivateSubCombo2_Click（）

　　CallShowItem（Combo2,Label2）

　　EndSub

　　PublicSubShowItem（tmpComboAsComboBox,tmpLabelAsLabel）

　　【10】.Caption=【11】.Text

　　EndSub

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

　　PrivateSubCommand1_Click（）

　　n=5

　　f=1

　　s=0

　　Fori=1Ton

　　f=f【12】

　　s=s+f

　　Next

　　Prints

　　EndSub

　　该事件过程的功能是计算的值。

请填空。

　　（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

　　OptionBase1

　　PrivateSubCommand1_Click（）

　　Dima（10）AsInteger

　　Fori=1To10

　　a（i）=i

　　Next

　　Callswap（　【13】　）

　　Fori=1To10

　　Printa（i）;

　　Next

　　EndSub

　　Subswap（b（）AsInteger）

　　n=【14】

　　Fori=1Ton/2

　　t=b（i）

　　b（i）=b（n）

　　b（n）=t

　　【15】

　　Next

　　EndSub

　　上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a

（1）与a（10）的值互换，a

（2）与a（9）的值互换，……，a（5）与a（6）的值互换。

请填空。

参考答案

　　一、选择题（

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

（1）B

（2）D（3）A（4）A（5）C

　　（6）D（7）C（8）D（9）B（10）C

　　（11）A（12）B（13）C（14）D（15）A

　　（16）B（17）D（18）C（19）C（20）A

　　（21）B（22）A（23）C（24）A（25）B

　　（26）C（27）A（28）C（29）D（30）A

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

（1）〖1〗.bas 

（2）〖2〗mousedown

　　     〖3〗popupmenu

　　（3）〖4〗interval