1、考试复习题库精编合集2021年4月全国计算机等级考试二级VB语言笔试试题1、【单选题】在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Move500，500EndSub程序运行后，单击命令按钮，执行的操作为2分A、命令按钮移动到距窗体左边界、上边界各500的位置B、窗体移动到距屏幕左边界、上边界各500的位置C、命令按钮向左、上方向各移动500D、窗体向左、上方向各移动500答案：B;2、【单选题】在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是2分A、TabStopB、Enab
2、ledC、VisibleD、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)=ABCDED、Dima(3),b(3)AsIntegera(0)=0a(1)=1a(2)=2b=a答案：A;4、【单选题】在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为2分A、Fori=0ToList1.ListCount-1NextB、Fori=0ToLis
3、tCount-1NextC、Fori=1ToList1.listCountNextD、Fori=1ToListCountNext答案：A;5、【单选题】以下Case语句中错误的是2分A、Case0To10B、CaseIs10C、CaseIs10AndIs10答案：C;6、【单选题】以下关于图片框控件的说法中，错误的是2分A、可以通过Print方法在图片框中输出文本B、清空图片框控件中图形的方法之一是加载一个空图形C、图片框控件可以作为容器使用D、用Stretch属性可以自动调整图片框中图形的大小答案：D;7、【单选题】执行语句s=Len(Mid(VisualBasic,1,6)后，s的值是2分
4、A、VisualB、BasicC、6D、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.45B、12345
5、.00C、12345D、00123.45答案：B;10、【单选题】以下叙述中错误的是2分A、一个工程可以包括多种类型的文件B、VisualBasic应用程序既能以编译方式执行，也能以解释方式执行C、程序运行后，在内存中只能驻留一个窗体D、对于事件驱动型应用程序，每次运行时的执行顺序可以不一样答案：C;11、【单选题】以下关于函数过程的叙述中，正确的是2分A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，过程的返回值可以有多个C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D、如果不指明函数过程参数的类型，则该参数没有数据类型答案：A;12、【单选题】以下关
6、于变量作用域的叙述中，正确的是2分A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用B、全局变量必须在标准模块中声明C、模块级变量只能用Private关键字声明D、Static类型变量的作用域是它所在的窗体或模块文件答案：B;13、【单选题】确定一个控件在窗体上的位置的属性是2分A、Width和HeightB、Width或HeightC、Top和LeftD、Top或Left答案：C;14、【单选题】在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程PrivateSubCommand1_Click()Text1.Text=Visua
7、lMe.Text1=BasicText1=ProgramEndSub程序运行后，如果单击命令按钮，则在文本框中显示的是2分A、VisualB、BasicC、ProgramD、出错答案：D;15、【单选题】以下关系表达式中，其值为False的是2分A、ABCAbCB、thetheyC、VISUAL=UCase(Visual)D、IntegerInt答案：A;16、【单选题】语句Print5/4*65Mod2的输出结果是2分A、0B、1C、2D、3答案：B;17、【单选题】在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程
8、：PrivateSubCommand1_Click()strText=InputBox(请输入)Text1.Text=strTextEndSubPrivateSubText1_Change()Label1.Caption=Right(Trim(Text1.Text),3)EndSub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是2分A、空B、abcdefC、abcD、def答案：D;18、【单选题】在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=-5IfSgn(x)Theny=S
9、gn(x2)Elsey=Sgn(x)EndIfPrintyEndSub程序运行后，单击命令按钮，窗体上显示的是2分A、-5B、25C、1D、-1答案：C;19、【单选题】一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，则以下叙述中正确的是2分A、变量X、Y的作用域相同B、Y的作用域是Model1C、在Form1中可以直接使用XD、在Form2中可以直接使用X和Y答案：C;20、【单选题】在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
10、当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是2分A、Drive1_ChangeB、Drive1_ClickC、Dir1_ClickD、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
11、B、1234C、34D、12答案：B;22、【单选题】在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是3分A、PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii90ThenMsgBox请输入大写字母KeyAscii=0EndIfEndSubB、PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode90ThenMsgBox请输入大写字母KeyCode=0EndIfEndSubC、PrivateSubText1_M
12、ouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Text1.Text)90ThenMsgBox请输入大写字母EndIfEndSubD、PrivateSubText1_Change()IfAsc(Text1.Text)64AndAsc(Text1.Text)91ThenMsgBox请输入大写字母EndIfEndSub答案：A;23、【单选题】假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：PrivateTypeanimalAnimalNameAsString*20AColorAsString*10En
13、dType在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()DimrecAsanimalOpenc:vbTest.datForRandomAs#1Len=Len(rec)rec.animalName=Catrec.aColor=WhitePut#1,recClose#1EndSub则以下叙述中正确的是3分A、记录类型animal不能在Form1中定义，必须在标准模块中定义B、如果文件c:vbTest.dat不存在，则Open命令执行失败C、由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D、语句“Put#1,
14、rec”将animal类型的两个数据元素写到文件中答案：C;24、【单选题】在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入6，然后单击命令
15、按钮，窗体上显示的是3分A、7236B、10836C、726D、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、标准模块中的任何过程都可以在整个工程
16、范围内被调用B、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程C、如果工程中包含SubMain过程，则程序将首先执行该过程D、如果工程中不包含SubMain过程，则程序一定首先执行第一个建立的窗体答案：A;27、【单选题】在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrin
17、tsEndSub程序运行后，单击命令按钮，在窗体上显示的是3分A、11B、10C、9D、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、15B、14C
18、、13D、12答案：D;29、【单选题】在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：PrivateSubCommand1_Click()ForEachTextBoxInText1Text1(i)=Text1(i).Indexi=i+1NextEndSub程序运行后，单击命令按钮，四个文本框中显示的内容分别为3分A、0123B、1234C、0132D、出错信息答案：A;30、【填空题】VisualBasic应用程序中标准模块文件的扩展名是_。每空2分答案：.bas31、【填空题】在菜单编辑器中建立一个菜单，其主
19、菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。PrivateSubForm_(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then_mnuEditEndIfEndSub每空2分答案：mousedown,popupmenu32、【填空题】为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的_属性设置为_。每空2分答案：interval,50033、【填空题】与数学表达
20、式对应的VisualBasic表达式是_。每空2分答案：(cos(a+b)2/(3*x)+534、【填空题】将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是_。每空2分答案：Picture1.picture=loadpicture(“c:moon.jpg”)35、【填空题】在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请填空。PrivateSubOption1_Click(IndexAsInteger)SelectCas
21、e_Case0a=宋体Case1a=黑体Case2a=楷体GB2312EndSelecttext1._=aEndSub每空2分答案：index,font36、【填空题】在窗体上画一个名称为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
