考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题Word下载.docx

考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题Word下载.docx

《考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题Word下载.docx》由会员分享，可在线阅读，更多相关《考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题Word下载.docx（9页珍藏版）》请在冰豆网上搜索。

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

A、Fori=0ToList1.ListCount-1……Next

B、Fori=0ToListCount-1……Next

C、Fori=1ToList1.listCount……Next

D、Fori=1ToListCount……Next

5、【单选题】

以下Case语句中错误的是[2分]

A、Case0To10

B、CaseIs>

10

C、CaseIs>

10AndIs10

C;

6、【单选题】

以下关于图片框控件的说法中，错误的是[2分]

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

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

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

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

7、【单选题】

执行语句s=Len（Mid（"

VisualBasic"

1,6））后，s的值是[2分]

A、Visual

B、Basic

C、6

D、11

8、【单选题】

以下叙述中错误的是[2分]

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

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

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

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

9、【单选题】

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

PrivateSubCommand1_Click（）a=12345PrintFormat$（a,"

000.00"

）EndSub程序运行后，单击命令按钮，窗体上显示的是[2分]

A、123.45

B、12345.00

C、12345

D、00123.45

10、【单选题】

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

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

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

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

11、【单选题】

以下关于函数过程的叙述中，正确的是[2分]

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

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

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

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

12、【单选题】

以下关于变量作用域的叙述中，正确的是[2分]

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

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

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

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

13、【单选题】

确定一个控件在窗体上的位置的属性是[2分]

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程序运行后，如果单击命令按钮，则在文本框中显示的是[2分]

C、Program

D、出错

15、【单选题】

以下关系表达式中，其值为False的是[2分]

A、"

ABC"

>

"

AbC"

B、"

the"

they"

C、"

VISUAL"

=UCase（"

）

D、"

Integer"

Int"

16、【单选题】

语句Print5/4*6\5Mod2的输出结果是[2分]

A、0

B、1

C、2

D、3

17、【单选题】

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

PrivateSubCommand1_Click（）strText=InputBox（"

请输入"

）Text1.Text=strTextEndSubPrivateSubText1_Change（）Label1.Caption=Right（Trim（Text1.Text）,3）EndSub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是[2分]

A、空

B、abcdef

C、abc

D、def

18、【单选题】

PrivateSubCommand1_Click（）x=-5IfSgn（x）Theny=Sgn（x^2）Elsey=Sgn（x）EndIfPrintyEndSub程序运行后，单击命令按钮，窗体上显示的是[2分]

A、-5

B、25

C、1

D、-1

19、【单选题】

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

A、变量X、Y的作用域相同

B、Y的作用域是Model1

C、在Form1中可以直接使用X

D、在Form2中可以直接使用X和Y

20、【单选题】

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

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

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

A、Drive1_Change

B、Drive1_Click

C、Dir1_Click

D、Dir1_Change

21、【单选题】

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

OptionBase1PrivateSubCommand1_Click（）Dimas=0a=Array（1,2,3,4）j=1Fori=4To1Step-1s=s+a（i）*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是[3分]

A、4321

B、1234

C、34

D、12

22、【单选题】

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

以下能实现该操作的事件过程是[3分]

A、PrivateSubText1_KeyPress（KeyAsciiAsInteger）IfKeyAscii90ThenMsgBox"

请输入大写字母"

KeyAscii=0EndIfEndSub

B、PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）IfKeyCode90ThenMsgBox"

KeyCode=0EndIfEndSub

C、PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）IfAsc（Text1.Text）90ThenMsgBox"

EndIfEndSub

D、PrivateSubText1_Change（）IfAsc（Text1.Text）>

64AndAsc（Text1.Text）<

91ThenMsgBox"

23、【单选题】

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

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

PrivateSubCommand1_Click（）DimrecAsanimalOpen"

c:

\vbTest.dat"

ForRandomAs#1Len=Len（rec）rec.animalName="

Cat"

rec.aColor="

White"

Put#1,,recClose#1EndSub则以下叙述中正确的是[3分]

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/2Thenf=f1（n）Elsef=f2（n）EndIfPrintf;

nEndSubPublicFunctionf1（ByRefx）x=x*xf1=x+xEndFunctionPublicFunctionf2（ByValx）x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是[3分]

A、7236

B、10836

C、726

D、1086

25、【单选题】

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

PrivateSubCommand1_Click（）c=1234c1=Trim（Str（c））Fori=1To4PrintNextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为[3分]

A、Right（c1,i）

B、Left（c1,i）

C、Mid（c1,i,1）

D、Mid（c1,i,i）

26、【单选题】

在以下描述中正确的是[3分]

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

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

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

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

27、【单选题】

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

PrivateFunctionf（mAsInteger）IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click（）DimiAsIntegers=0Fori=1To5s=s+f（i）NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是[3分]

A、11

B、10

C、9

D、8

28、【单选题】

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

PrivateSubCommand1_Click（）Dimarray1（10,10）AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1（i,j）=i+jNextjNextiText1.Text=array1（2,3）+array1（3,4）EndSub程序运行后，单击命令按钮，在文本框中显示的值是[3分]

A、15

B、14

C、13

29、【单选题】

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

PrivateSubCommand1_Click（）ForEachTextBoxInText1Text1（i）=Text1（i）.Indexi=i+1NextEndSub程序运行后，单击命令按钮，四个文本框中显示的内容分别为[3分]

A、0　1　2　3

B、1　2　3　4

C、0　1　3　2

D、出错信息

30、【填空题】

VisualBasic应用程序中标准模块文件的扩展名是______。

[每空2分]

["

.bas"

]

31、【填空题】

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

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

PrivateSubForm______（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）IfButton=2Then______mnuEditEndIfEndSub[每空2分]

mousedown"

"

popupmenu"

32、【填空题】

为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的______属性设置为______　。

interval"

500"

33、【填空题】

与数学表达式对应的VisualBasic表达式是______　。

（cos（a+b））^2/（3*x）+5"

34、【填空题】

将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是______　。

Picture1.picture=loadpicture（“c:

\moon.jpg”）"

35、【填空题】

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

PrivateSubOption1_Click（IndexAsInteger）SelectCase______Case0a="

宋体"

Case1a="

黑体"

Case2a="

楷体＿GB2312"

EndSelecttext1.______　=aEndSub[每空2分]

index"

font"

36、【填空题】

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

OptionBase1PrivateSubCommand1_Click（）Dima（10）AsIntegerFori=1To10a（i）=iNextCallswap（______）Fori=1To10Printa（i）;

NextEndSubSubswap（b（）AsInteger）n=______Fori=1Ton/2t=b（i）b（i）=b（n）b（n）=t______NextEndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a

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

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

请填空。

a（）"

ubound（b）"

n=n-1"