二级VB考试模拟练习题1附答案及解析.docx

1、二级VB考试模拟练习题1附答案及解析2009年9月二级VB考试模拟练习题1(附答案及解析)一 、选择题(1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private SubCommand1_Click()Move 500,500End Sub程序运行后，单击命令按钮，执行的操作为A)命令按钮移动到距窗体左边界、上边界各500的位置B)窗体移动到距屏幕左边界、上边界各500的位置C)命令按钮向左、上方向各移动500D)窗体向左、上方向各移动500正确答案: B(2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是A)TabSt

2、opB)EnabledC)Visible D)TabIndex正确答案: D(3)以下定义数组或给数组元素赋值的语句中，正确的是A)Dim a As Varianta=Array(1,2,3,4,5)B)Dima(10)As Integera=Array(1,2,3,4,5)C)Dim a%(10)a(1)=ABCDED)Dim a(3),b(3)As Integera(0)=0a(1)=1a(2)=2b=a正确答案: A(4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A)For i=0 ToList1.ListCount-1NextB)F

3、or i=0 To List1.Count-1NextC)For i=1 To List.ListCountNextD)For i=1 ToList1.CountNext正确答案: A(5)以下Case语句中错误的是A)Case 0 To10B)Case Is10C)Case Is10 And Is10正确答案: C(6)以下关于图片框控件的说法中，错误的是A)可以通过Print方法在图片框中输出文本B)清空图片框控件中图形的方法之一是加载一个空图形C)图片框控件可以作为容器使用D)用Stretch属性可以自动调整图片框中图形的大小正确答案: D(7)执行语句s=Len(Mid(VisualB

4、asic,1,6)后，s的值是A)Visual B)BasicC)6D)11正确答案: C(8)以下叙述中错误的是A)下拉式菜单和弹出式菜单都用菜单编辑器建立B)在多窗体程序中，每个窗体都可以建立自己的菜单系统C)除分隔线外，所有菜单项都能接收Click事件D)如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见正确答案: D(9)在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程：Private Sub Command1_Click()a=12345Print Format(a,000.00)EndSub程序运行后，单击命令按钮，窗体上显示的是A)123

5、.45B)12345.00C)12345 D)00123.45正确答案: B(10)以下叙述中错误的是A)一个工程可以包括多种类型的文件B)Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C)程序运行后，在内存中只能驻留一个窗体D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样正确答案: C(11)以下关于函数过程的叙述中，正确的是A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中，过程的返回值可以有多个C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D)如果不指明函数过程参数的类型，则该参数没有数据类型正确答案: A(12)以

6、下关于变量作用域的叙述中，正确的是A)窗体中凡被声明为Private的变量只能在某个指定的过程中使用B)全局变量必须在标准模块中声明C)模块级变量只能用Private关键字声明D)Static类型变量的作用域是它所在的窗体或模块文件正确答案: B(13)确定一个控件在窗体上的位置的属性是A)Width和HeightB)Width或HeightC)Top和LeftD)Top或Left正确答案: C(14)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private SubCommand1_Click()Text1.Text=VisualMe.

7、Text1=BasicText1=ProgramEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A)Visual B)BasicC)ProgramD)出错正确答案: C(15)以下关系表达式中，其值为False的是A)ABCAbCB)thetheyC)VISUAL=UCase(Visual)D)IntegerInt正确答案: A(16)语句Print5/4*65 Mod 2的输出结果是A)0B)1C)2D)3正确答案: B(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程：Private Sub

8、Command1_Click()strText=InputBox(请输入)Text1.Text=strTextEndSubPrivate Sub Text1_Change()Label1.Caption=Right(Trim(Text1.Text),3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef,则在标签中显示的内容是A)空 B)abcdefC)abc D)def正确答案: D(18)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=-5If Sgn(x)Theny=Sgn(x2)E

9、lsey=Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A)-5 B)25C)1D)-1正确答案: C(19)一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Public X AsInteger,在Model1中有语句Public Y As Integer。则以下叙述中正确的是A)变量X、Y的作用域相同B)Y的作用域是Model1C)在Form1中可以直接使用XD)在Form2中可以直接使用X和Y正确答案: C(20)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱

10、动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是A)Drive1_ChangeB)Drive1_ClickC)Dir1_ClickD)Dir1_Change正确答案: A(21)在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dimas=0a=Array(1,2,3,4); j=1For i=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPrint sEndSub运行上面的程序，单击命令按钮，其输出结果是A)4321

11、 B)1234C)34 D)12正确答案: B(22)在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A)Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii90 ThenMsgBox请输入大写字母KeyAscii=0EndIfEnd SubB)Private Sub Text1_KeyDown(KeyCode As Integer, Shift AsInteger)If KeyCode90 ThenMsgBox请输入大写字母KeyCode=0End IfEnd SubC)Pr

12、ivate SubText1_MouseDown(Button As Integer,_Shift As Integer, X As Single, YAs Single)If Asc(Text1.Text)90ThenMsgBox请输入大写字母End IfEnd SubD)Private SubText1_Change()If Asc(Text1.Text)64 And Asc(Text1.Text)Sqr(i)Then Print iNext iEnd Sub该事件过程的功能是A)输出n 以内的奇数 B)输出n 以内的偶数C)输出n 以内的素数 D)输出n以内能被j整除的数正确答案: C(

13、27)以下描述中正确的是A)标准模块中的任何过程都可以在整个工程范围内被调用B)在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程C)如果工程中包含Sub Main过程，则程序将首先执行该过程D)如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体正确答案: B(28)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m AsInteger)If m Mod 2=0 Thenf=mElsef=1End IfEnd FunctionPrivate Sub Command1_Click

14、()Dim i AsIntegers=0For i=1 To 5s=s+f(i)NextPrintsEnd Sub程序运行后，单击命令按钮，在窗体上显示的是A)11 B)10C)9D)8正确答案: C(29)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private SubCommand1_Click()Dim array1(10,10)As IntegerDim i As Integer, jAs IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext iText1.Text=a

15、rray1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A)15 B)14C)13 D)12正确答案: D(30)在窗体上画4个文本框(如图所示)并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click()For Each TextBox In Text1Text1(i)=Text1(i) Indexi=i+1NextEndSub程序运行后，单击命令按钮，4个文本框中显示的内容分别为A)0 1 2 3B)1 2 3 4C)0 1 3 2D)出

16、错信息正确答案: A二 、填空题(1)VisualBasic应用程序中标准模块文件的扩展名是 【1】 。正确答案: 1.(.bas)(2)在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit,Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。PrivateSub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Then【3】 mnuEditEnd IfEnd Sub正确答案: 1.(

17、MouseDown)2.(PopupMenu)(3)为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】 属性设置为 【5】 。正确答案: 1.(Interval)2.(500)(4)与数学表达式 对应的Visual Basic表达式是 【6】。正确答案: 1.(Cos(a+B)2)/(3*x）+5)(5)将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是 【7】 。正确答案: 1.(Picture1.Picture=LoadPicture(c:moon.jpg)(6)在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并

18、用这3个单选按钮建立一个控件数组，名数为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。 Private Sub Option1_Click(Index As Integer)Select Case 【8】Case 0a=宋体Case 1a=黑体Case2a=楷体End SelectText1 【9】 =aEndSub正确答案: 1.(Index)2.(FontName)(7)在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示。程序运行后，如果在某个组合框中

19、选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。Private Sub Combo1_Click()Call ShowItem(Combo1,Label1)EndSubPrivate Sub Combo2_Click()Call ShowItem(Combo2,Label2)EndSubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)【10】 Caption= 【11】 TextEnd Sub正确答案: 1.(tmpLabel)2.(tmpCombo)(8)在窗体上画一个名称为Command1的命令按钮，然

20、后编写如下事件过程：Private Sub Command1_Click()n=5f=1s=0For i=1 To nf=f 【12】s=s+fNextPrint sEnd Sub该事件过程的功能是计算的值。请填空。正确答案: 1.(/i)(9)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private SubCommand1_Click()Dim a(10)As IntegerFor i=1 To 10a(i)=iNextCall swap ( 【13】 )For i=1 To 10Print a(i);NextEnd SubSub swap(b()As Integer)n= 【14】For i=1To n/2t=b(i)b(i)=b(n)b(n)=t【15】NextEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，a(5)与a(6)的值互换。请填空。正确答案: 1.(a)2.(UBound(B)3.(n=n-1)