考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题.docx
《考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题.docx》由会员分享，可在线阅读，更多相关《考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题.docx（9页珍藏版）》请在冰豆网上搜索。
考试复习题库精编合集全国计算机等级考试二级VB语言笔试试题
[考试复习题库精编合集]2021年4月全国计算机等级考试二级VB语言笔试试题
1、【单选题】
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）Move500，500EndSub程序运行后，单击命令按钮，执行的操作为[2分]
A、命令按钮移动到距窗体左边界、上边界各500的位置
B、窗体移动到距屏幕左边界、上边界各500的位置
C、命令按钮向左、上方向各移动500
D、窗体向左、上方向各移动500
答案：
B;
2、【单选题】
在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab顺序的属性是[2分]
A、TabStop
B、Enabled
C、Visible
D、TabIndex
答案：
D;
3、【单选题】
以下定义数组或给数组元素赋值的语句中，正确的是[2分]
A、DimaAsVarianta=Array（1,2,3,4,5）
B、Dima（10）AsIntegera=Array（1,2,3,4,5）
C、Dima%（10）a
（1）=ABCDE
D、Dima（3）,b（3）AsIntegera（0）=0a
（1）=1a
（2）=2b=a
答案：
A;
4、【单选题】
在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为[2分]
A、Fori=0ToList1.ListCount-1……Next
B、Fori=0ToListCount-1……Next
C、Fori=1ToList1.listCount……Next
D、Fori=1ToListCount……Next
答案：
A;
5、【单选题】
以下Case语句中错误的是[2分]
A、Case0To10
B、CaseIs>10
C、CaseIs>10AndIs10
答案：
C;
6、【单选题】
以下关于图片框控件的说法中，错误的是[2分]
A、可以通过Print方法在图片框中输出文本
B、清空图片框控件中图形的方法之一是加载一个空图形
C、图片框控件可以作为容器使用
D、用Stretch属性可以自动调整图片框中图形的大小
答案：
D;
7、【单选题】
执行语句s=Len（Mid（"VisualBasic",1,6））后，s的值是[2分]
A、Visual
B、Basic
C、6
D、11
答案：
C;
8、【单选题】
以下叙述中错误的是[2分]
A、下拉式菜单和弹出式菜单都用菜单编辑器建立
B、在多窗体程序中，每个窗体都可以建立自己的菜单系统
C、除分隔线外，所有菜单项都能接收Click事件
D、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
答案：
D;
9、【单选题】
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）a=12345PrintFormat$（a,"000.00"）EndSub程序运行后，单击命令按钮，窗体上显示的是[2分]
A、123.45
B、12345.00
C、12345
D、00123.45
答案：
B;
10、【单选题】
以下叙述中错误的是[2分]
A、一个工程可以包括多种类型的文件
B、VisualBasic应用程序既能以编译方式执行，也能以解释方式执行
C、程序运行后，在内存中只能驻留一个窗体
D、对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
答案：
C;
11、【单选题】
以下关于函数过程的叙述中，正确的是[2分]
A、函数过程形参的类型与函数返回值的类型没有关系
B、在函数过程中，过程的返回值可以有多个
C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D、如果不指明函数过程参数的类型，则该参数没有数据类型
答案：
A;
12、【单选题】
以下关于变量作用域的叙述中，正确的是[2分]
A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B、全局变量必须在标准模块中声明
C、模块级变量只能用Private关键字声明
D、Static类型变量的作用域是它所在的窗体或模块文件
答案：
B;
13、【单选题】
确定一个控件在窗体上的位置的属性是[2分]
A、Width和Height
B、Width或Height
C、Top和Left
D、Top或Left
答案：
C;
14、【单选题】
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程PrivateSubCommand1_Click（）Text1.Text="Visual"Me.Text1="Basic"Text1="Program"EndSub程序运行后，如果单击命令按钮，则在文本框中显示的是[2分]
A、Visual
B、Basic
C、Program
D、出错
答案：
D;
15、【单选题】
以下关系表达式中，其值为False的是[2分]
A、"ABC">"AbC"
B、"the""they"
C、"VISUAL"=UCase（"Visual"）
D、"Integer">"Int"
答案：
A;
16、【单选题】
语句Print5/4*6\5Mod2的输出结果是[2分]
A、0
B、1
C、2
D、3
答案：
B;
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
答案：
D;
18、【单选题】
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）x=-5IfSgn（x）Theny=Sgn（x^2）Elsey=Sgn（x）EndIfPrintyEndSub程序运行后，单击命令按钮，窗体上显示的是[2分]
A、-5
B、25
C、1
D、-1
答案：
C;
19、【单选题】
一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，则以下叙述中正确的是[2分]
A、变量X、Y的作用域相同
B、Y的作用域是Model1
C、在Form1中可以直接使用X
D、在Form2中可以直接使用X和Y
答案：
C;
20、【单选题】
在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
当改变当前驱动器时，目录列表框应该与之同步改变。
设置两个控件同步的命令放在一个事件过程中，这个事件过程是[2分]
A、Drive1_Change
B、Drive1_Click
C、Dir1_Click
D、Dir1_Change
答案：
A;
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
答案：
B;
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"请输入大写字母"EndIfEndSub
答案：
A;
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类型的两个数据元素写到文件中
答案：
C;
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
答案：
A;
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）
答案：
B;
26、【单选题】
在以下描述中正确的是[3分]
A、标准模块中的任何过程都可以在整个工程范围内被调用
B、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C、如果工程中包含SubMain过程，则程序将首先执行该过程
D、如果工程中不包含SubMain过程，则程序一定首先执行第一个建立的窗体
答案：
A;
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
答案：
C;
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
D、12
答案：
D;
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、出错信息
答案：
A;
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控件的______属性设置为______ 。
[每空2分]
答案：
["interval","500"]
33、【填空题】
与数学表达式对应的VisualBasic表达式是______ 。
[每空2分]
答案：
["（cos（a+b））^2/（3*x）+5"]
34、【填空题】
将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是______ 。
[每空2分]
答案：
["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）的值互换。
请填空。
[每空2分]
答案：
["a（）","ubound（b）","n=n-1"]
升级会员 