1、VB笔试模拟试卷 194及答案与解析 1 下列成员中不属于主窗口的是 ( )。 （ A）最大化按钮 （ B）状态栏 （ C）系统菜单 （ D）工具栏 2 英文缩写 OLE的含义是 ( )。 （ A）面向对象程序设计 （ B）对象链接 （ C）对象嵌入 （ D）对象链接与嵌入 3 当一个对象 (如窗体或图片框 )被移动或改变大小之后，或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发 ( )事件来完成 图形的重画工作。 （ A） Paint （ B） Load （ C） Click （ D） Active 4 如果将 PassWord Char属性设置为一个字符
2、，如星号 (*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是 ( )。 （ A）文本框的 MulfiLine属性值为 True （ B）文本框的 Locbcd属性值为 True （ C）文本框的 MulfiLine属性值为 False （ D）文本框的 Lochcd属性值为 False 5 设在窗体上有两 个命令按钮，其中一个命令按钮的名称为 cmda,则另一命令按钮的名称可能是 ( )。 （ A） cmdc （ B） cmdb （ C） cmda （ D） Commandl 6 以下 ( )不能存入在资源文件里。 （ A）独立的字符串 （ B）位图 （ C）声音文件
3、（ D）事件过程 7 下列程序段的执行结果为 ( )， n=0 Fori=1 To 3 Forj=5 To 1Step-1 n=n+1 Nextj， i Printn;j;I （ A） 12 0 4 （ B） 15 04 （ C） 12 3 1 （ D） 15 31 8 在窗体上绘制一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox(“请输入一个整数 “) Print x+Text1.Text End Sub 程序运行时，在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击 “确定 ”按钮后，在窗体上显示的内 容为 (
4、)。 （ A） 123 （ B） 456 （ C） 579 （ D） 123456 9 下列各选项中，不是可视化编程方法特点的是 ( )。 （ A）不必运行程序就能看到所要做的界面 （ B）采用面向对象驱动事件的机制 （ C）使用工程的概念来建立应用程序 （ D）将代码和数据集成到一个独立的对象中去 10 运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的 Text属性进行赋值从而改变了文本框的 Text属性时，将触发文本框的 ( )事件。 （ A） Click （ B） DblClick （ C） GotFocus （ D） Change 11 下列叙述中正确的是 ( )。 （ A
5、）一个逻辑数据结构只能有一种存储结构 （ B）数据的逻辑结构属于线性结构，存储结构属于非线性结构 （ C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 （ D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 12 为了清除窗体上的一个控件，下列正确的操作是 ( )。 （ A）按回车键 （ B）按 Esc键 （ C）选择 (单击 )要清除的控件，然后按 Del键 （ D）选择 (单击 )要清除的控件，然后按回车键 13 在窗体上画一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub
6、Commandl_Click() Dimarrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti Text1.Text=array （ A） 12 （ B） 13 （ C） 14 （ D） 15 14 通过文本框的 ( )事件过程可以获取文本框中输入字符的 ASCII码值。 （ A） Change （ B） GotFocus （ C） LostFocus （ D） KeyPress 15 目录列表框的 Path属性的作用是 ( )。 （ A）显
7、 示当前驱动器或指定驱动器上的某目录下的文件名 （ B）显示当前驱动器或指定驱动器上的目录结构 （ C）显示根目录下的文件名 （ D）显示指定路径下的文件 16 设有如下语句： Dim a， b As Integer c=“VisualBasic“ d=#7/20/2005# 以下关于这段代码的叙述中，错误的是 ( )。 （ A） a被定义为 Integer类型变量 （ B） b被定义为 Integer类型变量 （ C） c中的数据是字符串 （ D） d中的数据是 日期类型 17 Mid(“HelloEveryone“， 7,3)的执行结果是 ( )。 （ A） ong （ B） every
8、（ C） Eve （ D） one 18 任何控件都具有 ( )属性。 （ A） Text （ B） Caption （ C） Name （ D） ForeCol0r 19 要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的 ( )属性。 （ A） Picture （ B） Aligmen （ C） Border （ D） Align 20 执行以下程序段后，变量 c$的值为 ( )。 S$=“VisualBasicProgramming“ b$=“Quick“ c$=b$&UCase(Mid$(a$， 7， 6)&Right$(a$， 12) （ A） VisualBASICProg
9、ramming （ B） QuickBasicProgramming （ C） QUICKBasicProgramming （ D） QuickBASICProgramming 21 下列 说法正确的是 ( )。 （ A）一个应用程序中只能创建一个窗体 （ B）一个应用程序中只能创建一个模块 （ C）一个应用程序中只能创建一个 MDI窗体 （ D）一个应用程序中只能创建一个 MDI子窗体 22 在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Commandl_click() CommonDialogl.Frite
10、r=“AllFiles(*.*)|*.*|Text Files“&_ “(*.txt)|*.txt|Executable Files(*.exe)|*.exe“ CommonDialog1.FilterIndex=3 CommonD （ A） AllFries(*.*) （ B） TextFiles(*.txt) （ C） Executable Fries(*.exe) （ D）不确定 23 假定有一个菜单项，名为 MenuItem，为了在运行时使该菜单项失效 (变灰 )，应使用的语句为 ( )。 （ A） Menultem.Enabled=False （ B） Menultem.Enable
11、d=True （ C） Menultem.Visible=Tme （ D） Menultem.Visible=Hase 24 单击命令按钮时，下列程序代码的执行结果为 ( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x， y) Printx； y End Sub （ A） 12 34 （ B） 2 34 （ C） 2 3 （ D） 12
12、 3 25 下面叙述中正确的是 ( )。 （ A） SW函数只能用于 Print方法中 （ B） Space函数既可以用于 Print方法中，也能用于表达式 （ C） Spc函数与 Space函数均生成空格， 没有区别 （ D）以上说法均不对 26 下面程序运行后的结果是 ( )。 Private Sub Form_Click() Dim s As Integer， k As Integer,i As Integer， n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End
13、Sub （ A） 6 （ B） 72 （ C） 144 （ D） 432 27 在数据管理技术的发展过程中，经历了人工管理阶段，文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是 ( )。 （ A）数据库系统 （ B）文件系统 （ C）人工管理 （ D）数据项管理 28 下列程序运行时输出的结果是 ( )。 Private Sub Form_Click() Dima a=Array(“天天向上 “， “清华大学 “， “天上人间 “， “程序设计 “) forI=Lbound(a， 1) to Ubound(a， 1) ifleft(a(i)， 1)=“天 “then print a(i
14、)； nextI End Sub （ A）天天向上 （ B）天天向上天上人间 （ C）出错信息 （ D）天天向上清华大学天上人间程序设计 29 下面程序运行后，输出结果是 ( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer， I As Integer Callmysub(a()， 5) Mysuba() ForI=1 to 4 Prin （ A）
15、5101520 （ B） 2468 （ C）出错 （ D） 0000 30 运行以下程序后，输出的图形是 ( )。 Forr=O To 150 Circle(320,240)， r Fori=1 To 1000 Nexti Nextr （ A）一个固定的空心圆 （ B）一个半径逐渐变大的空心圆 （ C）一个固定的实心圆 （ D）一个半径逐渐变大的实心圆 31 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 ( )。 （ A） MouseDown （ B） MouseUp （ C） Load （ D） Chck 32 以下关于 焦点的叙述中，错误的是 ( )。 （ A）如果文本框的 T
16、abStop属性为 False，则不能接收从键盘上输入的数据 （ B）当文本框失去焦点时，触发 LostFocus事件 （ C）当文本框的 Enabled属性为 False时，其 Tab顺序不起作用 （ D）可以用 Tab Index属性改变 Tab顺序 33 以下定义数组或给数组元素赋值的语句中，正确的是 ( )。34 执行语句 s=Len(Mid(“VisualBasic“,1,6)后， s的值是 ( )。 （ A） Visual （ B） Basic （ C） 6 （ D） 11 35 3下列语句中正确的是 ( )。 （ A） IfX 3*YAndX YThenY=X3 （ B） IfX
17、 3*YAndX YThenY=X3 （ C） IfX 3*Y:X YThenY=X3 （ D） IfX 3*YAndX YThenY=X*3 36 为同一种对象设置不同的属性，可以使一种对象具有不同的外观和不同的_。 37 快捷键 Ctrl+O的功能相当于执行文件菜单中的 _命令。 38 在 VB6.0中， InputBox函数用于产生 _对话框。 39 在面向对象的程序设计中，类描述的是具有相似性质的一组 _。 40 以下程序段的输出结果是 _。 num=0 Whilenum =2 nam=hum+1 Wend Printnam 41 在 C盘当前文件夹下建立一个名为 StuData.tx
18、t的顺序文件。要求用 InputBox函数输入 5名学生的学号 (StuNo)、姓名 (StuName)和英语成绩 (StuEng)。 Pfivate Sub Form_Click() Open“C:StuData.txt“ForOut PUt As#1 Fori=l To5 StuNo=InputBox(“请输入学号 “) StuName=InputBox(“请输入姓名 “) StuEng=Val(1nputBox 42 以下程序用于求 S=1+3+32+33+310 的值。 Private Sub Commandl_Click() S=1 T=1 ForI=1 To 10 T=_ S=S+
19、T NextI Print“S=“； S End Sub 43 滚动条响应的重要事件有 _和 Change。 44 阅读以下程序： Private Sub Form_Click() Dimk,n,m As Integer n=10 m=1 k=1 DoWhilek =n m=m+2 k=k+1 Loop Printm End Sub 单击窗体，程序的执行结果是 _。 45 语句 FontSize=FontSize*2的功能是 _。 46 以下是一个比赛评分程序。在窗体上建立一个名为 Text1的文本框数组，然后画一个名为 Text2的文本框和名为 Commandl的命令按钮。运行时在文本框数组
20、中输入 7个分数，单击 “计算得分 ”命令按钮，则最后得分显示在 Text2文本框中 (去掉一个最高分和一个最低分后的平均分即为最后得分 )，如下图所示。请填空。Pfivale Sub Commaildl_C1iCk() Dimk As hteger Dimsum As Single， maxAs Single， min As Single 47 有下面一个程序段，从文本框中输人数据，如果该数据满足条件 “除以 4余 1，除以 5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Commandl_Click() x=Val(Text1.Text) If
21、 9 Then PrintX Else Text1.Text=“ 10 End If End Sub 48 下面程序的功能是找出给定的 10个数中最大的一个数，最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。 Option Base 1 Private SubForm_Cfick() Dim X x=Array(23， -5,17,38， -31,46,11， 8， 5， -4) Max=1 k=1 10 k=k+1 ifx(k) x(max)then 13 End if VB笔试模拟试卷 194答案与解析 1 【正确答案】 B 2 【正确答案】 D
22、3 【正确答案】 A 4 【正确答案】 A 5 【正确答案】 D 6 【正确答案】 D 7 【正确答案】 B 8 【正确答案】 D 9 【正确答案】 C 10 【正确答案】 D 11 【正确答案】 D 12 【正确答案】 C 13 【正确答案】 A 14 【正确答案】 D 15 【正确答案】 B 16 【正确答案】 A 17 【正确答案】 C 18 【正确答案】 C 19 【正确答案】 D 20 【正确答案】 D 21 【正确答案】 C 22 【正确答案】 C 23 【正确答案】 A 24 【正确答案】 A 25 【正确答案】 B 26 【正确答案】 D 27 【正确答案】 A 28 【正确答
23、案】 B 29 【正确答案】 B 30 【正确答案】 D 31 【正确答案】 C 32 【正确答案】 A 33 【正确答案】 A 34 【正确答案】 C 35 【正确答案】 A 36 【正确答案】 内在性能 37 【正确答案】 打开工程 38 【正确答案】 输入 39 【正确答案】 对象 40 【正确答案】 3 41 【正确答案】 Whte#1,StuNo， StuNanne， StuEng 42 【正确答案】 T*3 43 【正确答案】 ScroU 44 【正确答案】 21 45 【正确答案】 将当前字体放大两倍 46 【正确答案】 sum或 max或 Text1(0)或 Text1(0).Text 47 【正确答案】 xMod4=1 AndxMod5=2,Tex(1.SetFocus 48 【正确答案】 Max=k,x(Max)
