1、VB笔试模拟试卷 203及答案与解析 1 下列关于属性设置的叙述错误的是 ( )。 （ A）一个控件具有什么属性是 Visual Basic预先设计好的，用户不能改变 （ B）一个控件具有什么属性是 Visual Basic预先设计好的，用户可以改变 （ C）一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置 （ D）一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值 2 表达式 2+3*45-Sin(x+1)/2中最先进行的运算是 ( )。 （ A） 45 （ B） 3*4 （ C） x+1 （ D） Sin(x+1) 3 以下叙述中错误的是 ( )。 （ A） Vis
2、ual Basic是事件驱动型可视化编程工具 （ B） Visual Basic应用程序不具有明显的开始和结束语句 （ C） Visual Basic52具箱中的所有控件都具有宽度 (Width)和高度 (Height)属性 （ D） Visual Basic中控件的某些属性只能在运行时设置 4 设 a=10， b=5， c=1，执行语句 Print a b c后，窗体上显示的是 ( )。 （ A） True （ B） False （ C） 1 （ D）出错信息 5 下面子过程语句说明合法的是 ( )。 （ A） Function f1(By Valn%) （ B） Sub f1(n%)As
3、Integer （ C） Function f1%(f1%) （ D） Sub f1(ByValn%() 6 执行如下语句： a=InputBox(“Today“， “Tomorrow“， “Yesterday“，“Daybeforeyesterday“,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 ( )。 （ A） Today （ B） Tomorrow （ C） Yesterday （ D） Day before yesterday 7 以下 Case语句中错误的是 ( )。 （ A） Case 0 To 10 （ B） Case Is 10 （ C） Casels 10
4、And Is 50 （ D） Case3， 5， Is 10 8 下列程序的功能是：依次将列表框 List2中的项目移入列表框 Listl中，并将列表框 List2中移走的项目删除，给程序的空白行选择适当的语句 ( )。 List1.Addltem List2.List(0) List2.ReMoveltem 0 Loop （ A） Do Until List2.ListCount （ B） Do While List2.ListCount （ C） Do Until List1.ListCount （ D） Do While List1.ListCount 9 下面 ( )语句执行后，窗体
5、Forml从内存退出。 （ A） UnLoad Forml （ B） Load Forml （ C） Forml.Hide （ D） Forml.Visiable=False 10 在窗体上画一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box(“Input“) Select Case x Case 1,3 Print“分支 1“ Case Is 4 Print“分支 2“ Case Else Print“Else分支 “ End Select End Sub 程序运行后，如果在输入对话 （ A）分支
6、1 （ B）分支 2 （ C） Else分支 （ D）程序出错 11 设窗体上有一个文本框，名称为 Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是 ( )。 （ A） Textl.MaxLength=0 （ B） Textl.Enabled=False （ C） Textl.Visible=False （ D） Textl.Width=0 12 以下合法的 VisualBasic标识符是 ( )。 （ A） ForLoop （ B） Const （ C） 9abc （ D） a#x 13 在窗体上画一个名称为 CommonDialogl的通用对话
7、框，一个名称为 Commandl的命令按钮。然后编写如下事件过程： Private Commandl_Click() CommonDialogl.FileName=“ CommonDialogl.Filter=“Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialogl.Filterlndex=2 CommonDialogl.DialogTifle=“VBTest （ A）该对话框被设置为 “打开 ”对话框 （ B）在该对话框中指定的默认文件名为空 （ C）该对话框的标题为 VBTest （ D）在该对话框中指定的默认文件类型为文本文件 (*.
8、Txt) 14 下列程序段的执行结果为 ( )。 a=1 b=5 Do a=a+b b=b+1 Loop While a 10 Printa； b （ A） 115 （ B） 127 （ C） ab （ D） 1025 15 以下 ( )程序段可以实施 X、 Y变量值的交换。 （ A） Y=X： X=Y （ B） Z=X： Y=Z： X=Y （ C） Z=X： X=Y： Y=Z （ D） Z=X： W=Y： Y=Z： X=Y 16 下列定义语句中不能定义为字符型数据的是 ( )。 （ A） Defstr c （ B） c （ C） StadC c As String （ D） Dim c As
9、 Single 17 实现字符串 Unicode编码方式与州 SI编码方式相互转换的函数是 ( )。 （ A） Str （ B） Sbconv （ C） Trim （ D） Mid 18 运行以下程序后，输出的图案是 ( )。 Forml.ClS ForA=1 To5 Ptintf Space(5-A)；StdnS(A， “*“) NextA 19 在窗体上画一个命令按钮，名称 为 Commandl，然后编写如下事件过程： Prirate Sub Commandl_click() a$=“software and hardware“ b$=Right(a$,8) c$=Mid(a$,1,8)
10、MsgBoxa$,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是 ( )。 （ A） software andhardware （ B） software （ C） hardware （ D） 1 20 有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2 0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为 ( )。 （ A
11、） 12 （ B） 30 （ C） 24 （ D） 18 21 能够获得一个文本框中被选取文本的内容的属性是 ( )。 （ A） Text （ B） Length （ C） Seltext （ D） SelStart 22 在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下事件过程： Prirate Sub Form_Loab() List.Addltem“357“ Llst.Addltem“246“ List.Addltem“123“ List.Addltem“456“ TEXTl.Text=“ End ub Private Sub Commandl_Click() List.LiSd
12、ndex=3 Print List.Text+Textl.Text （ A） 789123 （ B） 456789 （ C） 789456 （ D） 1245 23 有如下的一个函数过程： Function fn(By Val hum AS Long) Dim k As Long k=l num=Abs(nam) Do While nnm k=k*(nnm Mod 10) num=num10 Loop fn=k End Function 以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字 “123”，该过程的运行结果是 ( )。 Private （ A） 12 （ B） 6 （
13、C） 3 （ D） 1 24 在 DblClick事件发生时，不会同时发生的事件是 ( )。 （ A） Mouse Down （ B） Mouse Up （ C） Click （ D） Change 25 窗体上有名称分别为 Textl、 Text2的 2个文本框，要求文本框 Textl中输入的数据小于 500，文本框 Text2中输入的数据小于 1000，否则重新输入。为了实现上述功能，在下 划线处应填入的内容是 ( )。 Private Sub Textl_ostFocus() Call Checklnput(Textl,500) End Sub Private Sub Text2_Los
14、tFocus() Call Checklnput(Text2,1000) （ A） Text （ B） SelText （ C） Control （ D） Form 26 有如下程序： infocase$=InputBox(“Inputoneletter:“) Select Case infocase$ case“a“ grade$=“Verygood“ case“b“ grade$=“Good“ case“C“ grade$=“OK“ case“d“ grade$=“Qualified“ case Else grade$=“Bab“ End Select （ A） Very good （ B
15、） Good （ C） Bad （ D） Qualified 27 在窗体上画一个命令按钮和一个标签，其名称分别为 Commandl和 Labell，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显 示的内容是 （ A） 11 （ B） 12 （ C） 16 （ D） 20 28 下列程序运行后，单击命令按钮，窗体显示的
16、结果为 ( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click() （ A） 23 （ B） 19 （ C） 21 （ D） 22 29 以下叙述中错误的是 ( )。 （ A）顺序文件中的数据只能按顺序读写 （ B）对同一个文件，可以用不同的方
17、式和不同的文件号打开 （ C）执行 Close语句，可将文件缓冲区中的数据写到文件中 （ D）随机文件中各记录的长度是随机的 30 下列程序的执行结果为 ( )。 A=“1“ B=“2“ A=Val(A)+Val(B) B=Val(“12“) IfA BThenPrint A-B Else Print B-A （ A） -9 （ B） 9 （ C） -12 （ D） 0 31 如果将窗体中文本框的 Password Char属性设置为一个字符，如星号 (*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是 ( )。 （ A）文本框的 MultiLine属性值为 True （
18、 B）文本框的 Looked属性值为 True （ C）文本框的 MultiLine属性值为 False （ D）文本框的 Looked属性值为 False 32 Int(100*Rnd(1)产生的随机整数的闭区间是 ( )。 （ A） 0,99 （ B） 1,100 （ C） 0,100 （ D） 1,99 33 以下关于窗体的描述中，错误的是 ( )。 （ A）执行 UnLoad Forml语句后，窗体 Forml消失，但仍在内存中 （ B）窗体的 Load事件在加载窗体时发生 （ C）当窗体的 Enabled属性为 False时，通过鼠标和键盘对窗体的操作都被禁止 （ D）窗体的 Hei
19、ght、 Width属性用于设置窗体的高和宽 34 Right(“ABCDEFG“,3)的执行结果是 ( )。 （ A） ABC （ B） EFG （ C） DEF （ D） CDE 35 以下程序运行后，输出结果是 ( )。 Forj=1 T0 3 PrintTab(3*j)； 2*(j-1)*2*(j-1) Nextj Print 36 对象的方法是指 _。 37 计时器事件时间的间隔通过 _属性设置。 38 在代码窗口中输入某行代码并按回车键后，如果代码变成红色，表示 _。 39 在窗体上画 1个命令按钮和 1个文本框，其名称分别为 Commandl和 Textl，然后编写如下代码： D
20、im Save All As String Private Sub Commandl_C1iCk() Text1.Text=Left(UCase(SaveAU)， 4) End Sub Private Sub Textl_KeyPress(KeyAscii As Intege) SaveA11=Save All+Chr(KeyAscii) End Sub 程序 40 下列程序段的运行结果是 _。 Dimnum As Integer， a As Integer,b As Integer a=88： b=24 Do While b 0 num=a Modb a=b b=num Wend Print
21、a Loop 41 若要求输入密码时文本框中只显示 “*”号，则应当在文本框的属性窗口中设置_属性。 42 设置状态栏控件的 _属性可以改变状态栏在窗体上的位置。 VB笔试模拟试卷 203答案与解析 1 【正确答案】 A 2 【正确答案】 C 3 【正确答案】 C 4 【正确答案】 B 5 【正确答案】 A 6 【正确答案】 C 7 【正确答案】 C 8 【正确答案】 B 9 【正确答案】 A 10 【正确答案】 C 11 【正确答案】 B 12 【正确答案】 B 13 【正确答案】 D 14 【正确答案】 B 15 【正确 答案】 C 16 【正确答案】 D 17 【正确答案】 B 18 【
22、正确答案】 A 19 【正确答案】 C 20 【正确答案】 A 21 【正确答案】 C 22 【正确答案】 B 23 【正确答案】 B 24 【正确答案】 D 25 【正确答案】 C 26 【正确答案】 D 27 【正确答案】 B 28 【正确答案】 A 29 【正确答案】 D 30 【正确答案】 A 31 【正确答案】 A 32 【正确答案】 A 33 【正确答案】 A 34 【正确答案】 B 35 【正确答案】 C 36 【正确答案】 对象的动作和行为 37 【正确答案】 InterVal 38 【正确答案】 该行代码有语法错误 39 【正确答案】 ABCD 40 【正确答案】 8 41 【正确答案】 Password 42 【正确答案】 Align
