1、VB 笔试-试卷 71 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_2.下列成员中不属于主窗口的是( )。（分数：2.00）A.最大化按钮B.状态栏C.系统菜单D.工具栏3.英文缩写 OLE 的含义是( )。（分数：2.00）A.面向对象程序设计B.对象链接C.对象嵌入D.对象链接与嵌入4.当一个对象(如窗体或图片框)被移动或改变大小之后，或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可
2、以选择触发( )事件来完成图形的重画工作。（分数：2.00）A.PaintB.LoadC.ClickD.Active5.如果将 PassWord Char 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A.文本框的 MulfiLine 属性值为 TrueB.文本框的 Locbcd 属性值为 TrueC.文本框的 MulfiLine 属性值为 FalseD.文本框的 Lochcd 属性值为 False6.设在窗体上有两个命令按钮，其中一个命令按钮的名称为 cmda,则另一命令按钮的名称可能是( )。（分数：2.00）
3、A.cmdcB.cmdbC.cmdaD.Commandl7.以下( )不能存入在资源文件里。（分数：2.00）A.独立的字符串B.位图C.声音文件D.事件过程8.下列程序段的执行结果为( )， n=0 Fori=1 To 3 Forj=5 To 1Step-1 n=n+1 Nextj，i Printn;j;I（分数：2.00）A.12 0 4B.15 04C.12 3 1D.15 319.在窗体上绘制一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox(“请输入一个整数“) Print x+Text1.Text End Sub 程序运行时，
4、在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击“确定”按钮后，在窗体上显示的内容为( )。（分数：2.00）A.123B.456C.579D.12345610.下列各选项中，不是可视化编程方法特点的是( )。（分数：2.00）A.不必运行程序就能看到所要做的界面B.采用面向对象驱动事件的机制C.使用工程的概念来建立应用程序D.将代码和数据集成到一个独立的对象中去11.运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的 Text 属性进行赋值从而改变了文本框的 Text 属性时，将触发文本框的( )事件。（分数：2.00）A.ClickB.DblClickC.G
5、otFocusD.Change12.下列叙述中正确的是( )。（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率13.为了清除窗体上的一个控件，下列正确的操作是( )。（分数：2.00）A.按回车键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键D.选择(单击)要清除的控件，然后按回车键14.在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按
6、钮，然后编写如下事件过程： Private Sub 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（分数：2.00）A.12B.13C.14D.1515.通过文本框的( )事件过程可以获取文本框中输入字符的 ASCII 码值。（分数：2.00）A.ChangeB.GotFocusC.LostFocusD.KeyPress16.目录列表框的 Path 属性的作用是
7、( )。（分数：2.00）A.显示当前驱动器或指定驱动器上的某目录下的文件名B.显示当前驱动器或指定驱动器上的目录结构C.显示根目录下的文件名D.显示指定路径下的文件17.设有如下语句： Dim a，b As Integer c=“VisualBasic“ d=#7/20/2005# 以下关于这段代码的叙述中，错误的是( )。（分数：2.00）A.a 被定义为 Integer 类型变量B.b 被定义为 Integer 类型变量C.c 中的数据是字符串D.d 中的数据是日期类型18.Mid(“HelloEveryone“，7,3)的执行结果是( )。（分数：2.00）A.ongB.everyC.
8、EveD.one19.任何控件都具有( )属性。（分数：2.00）A.TextB.CaptionC.NameD.ForeCol0r20.要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的( )属性。（分数：2.00）A.PictureB.AligmenC.BorderD.Align21.执行以下程序段后，变量 c$的值为( )。 S$=“VisualBasicProgramming“ b$=“Quick“ c$=b$j;I（分数：2.00）A.12 0 4B.15 04 C.12 3 1D.15 31解析：9.在窗体上绘制一个文本框，然后编写如下事件过程： Private Sub Fo
9、rm_Click() x=InputBox(“请输入一个整数“) Print x+Text1.Text End Sub 程序运行时，在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击“确定”按钮后，在窗体上显示的内容为( )。（分数：2.00）A.123B.456C.579D.123456 解析：10.下列各选项中，不是可视化编程方法特点的是( )。（分数：2.00）A.不必运行程序就能看到所要做的界面B.采用面向对象驱动事件的机制C.使用工程的概念来建立应用程序 D.将代码和数据集成到一个独立的对象中去解析：11.运行时，当用户向文本框输入新的内容，或在程序代码中对文本框
10、的 Text 属性进行赋值从而改变了文本框的 Text 属性时，将触发文本框的( )事件。（分数：2.00）A.ClickB.DblClickC.GotFocusD.Change 解析：12.下列叙述中正确的是( )。（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 解析：13.为了清除窗体上的一个控件，下列正确的操作是( )。（分数：2.00）A.按回车键B.按 Esc 键C.选择(单击
11、)要清除的控件，然后按 Del 键 D.选择(单击)要清除的控件，然后按回车键解析：14.在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub 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（分数：2.00）A.12 B.13C.14D.15解析：15.通过文本框的( )事件过程可以
12、获取文本框中输入字符的 ASCII 码值。（分数：2.00）A.ChangeB.GotFocusC.LostFocusD.KeyPress 解析：16.目录列表框的 Path 属性的作用是( )。（分数：2.00）A.显示当前驱动器或指定驱动器上的某目录下的文件名B.显示当前驱动器或指定驱动器上的目录结构 C.显示根目录下的文件名D.显示指定路径下的文件解析：17.设有如下语句： Dim a，b As Integer c=“VisualBasic“ d=#7/20/2005# 以下关于这段代码的叙述中，错误的是( )。（分数：2.00）A.a 被定义为 Integer 类型变量 B.b 被定义
13、为 Integer 类型变量C.c 中的数据是字符串D.d 中的数据是日期类型解析：18.Mid(“HelloEveryone“，7,3)的执行结果是( )。（分数：2.00）A.ongB.everyC.Eve D.one解析：19.任何控件都具有( )属性。（分数：2.00）A.TextB.CaptionC.Name D.ForeCol0r解析：20.要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的( )属性。（分数：2.00）A.PictureB.AligmenC.BorderD.Align 解析：21.执行以下程序段后，变量 c$的值为( )。 S$=“VisualBasicP
14、rogramming“ b$=“Quick“ c$=b$&UCase(Mid$(a$，7，6)&Right$(a$，12)（分数：2.00）A.VisualBASICProgrammingB.QuickBasicProgrammingC.QUICKBasicProgrammingD.QuickBASICProgramming 解析：22.下列说法正确的是( )。（分数：2.00）A.一个应用程序中只能创建一个窗体B.一个应用程序中只能创建一个模块C.一个应用程序中只能创建一个 MDI 窗体 D.一个应用程序中只能创建一个 MDI 子窗体解析：23.在窗体上画一个通用对话框，其名称为 Commo
15、nDialogl，然后画一个命令按钮，并编写如下事件过程：Private Sub Commandl_click() CommonDialogl.Friter=“AllFiles(*.*)|*.*|Text Files“&_ “(*.txt)|*.txt|Executable Files(*.exe)|*.exe“ CommonDialog1.FilterIndex=3 CommonD（分数：2.00）A.AllFries(*.*)B.TextFiles(*.txt)C.Executable Fries(*.exe) D.不确定解析：24.假定有一个菜单项，名为 MenuItem，为了在运行时使
16、该菜单项失效(变灰)，应使用的语句为( )。（分数：2.00）A.Menultem.Enabled=False B.Menultem.Enabled=TrueC.Menultem.Visible=TmeD.Menultem.Visible=Hase解析：25.单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m/10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 Call
17、Procl(x，y) Printx；y End Sub（分数：2.00）A.12 34 B.2 34C.2 3D.12 3解析：26.下面叙述中正确的是( )。（分数：2.00）A.SW 函数只能用于 Print 方法中B.Space 函数既可以用于 Print 方法中，也能用于表达式 C.Spc 函数与 Space 函数均生成空格，没有区别D.以上说法均不对解析：27.下面程序运行后的结果是( )。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3
18、forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub（分数：2.00）A.6B.72C.144D.432 解析：28.在数据管理技术的发展过程中，经历了人工管理阶段，文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是( )。（分数：2.00）A.数据库系统 B.文件系统C.人工管理D.数据项管理解析：29.下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array(“天天向上“，“清华大学“，“天上人间“，“程序设计“) forI=Lbound(a，1) to Ub
19、ound(a，1) ifleft(a(i)，1)=“天“then print a(i)； nextI End Sub（分数：2.00）A.天天向上B.天天向上天上人间 C.出错信息D.天天向上清华大学天上人间程序设计解析：30.下面程序运行后，输出结果是( )。 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
20、(a()，5) Mysuba() ForI=1 to 4 Prin（分数：2.00）A.5101520B.2468 C.出错D.0000解析：31.运行以下程序后，输出的图形是( )。 Forr=O To 150 Circle(320,240)，r Fori=1 To 1000 Nexti Nextr（分数：2.00）A.一个固定的空心圆B.一个半径逐渐变大的空心圆C.一个固定的实心圆D.一个半径逐渐变大的实心圆 解析：32.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是( )。（分数：2.00）A.MouseDownB.MouseUpC.Load D.Chck解析：33.以下关于焦
21、点的叙述中，错误的是( )。（分数：2.00）A.如果文本框的 TabStop 属性为 False，则不能接收从键盘上输入的数据 B.当文本框失去焦点时，触发 LostFocus 事件C.当文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用D.可以用 Tab Index 属性改变 Tab 顺序解析：34.以下定义数组或给数组元素赋值的语句中，正确的是( )。 （分数：2.00）A. B.C.D.解析：35.执行语句 s=Len(Mid(“VisualBasic“,1,6)后，s 的值是( )。（分数：2.00）A.VisualB.BasicC.6 D.11解析：36.3
22、 下列语句中正确的是( )。（分数：2.00）A.IfX3*YAndXYThenY=X3 B.IfX3*YAndXYThenY=X3C.IfX3*Y:XYThenY=X3D.IfX3*YAndXYThenY=X*3解析：二、填空题(总题数：14，分数：28.00)37.填空题（每空）请将每一个空的正确答案写在答题卡上。注意：以命令关键字填空的必须拼写完整。（分数：2.00）_解析：38.为同一种对象设置不同的属性，可以使一种对象具有不同的外观和不同的 1。（分数：2.00）填空项 1:_ （正确答案：正确答案：内在性能）解析：39.快捷键 Ctrl+O 的功能相当于执行文件菜单中的 1 命令。
23、（分数：2.00）填空项 1:_ （正确答案：正确答案：打开工程）解析：40.在 VB6.0 中，InputBox 函数用于产生 1 对话框。（分数：2.00）填空项 1:_ （正确答案：正确答案：输入）解析：41.在面向对象的程序设计中，类描述的是具有相似性质的一组 1。（分数：2.00）填空项 1:_ （正确答案：正确答案：对象）解析：42.以下程序段的输出结果是 1。num=0 Whilenum=2 nam=hum+1 Wend Printnam（分数：2.00）填空项 1:_ （正确答案：正确答案：3）解析：43.在 C 盘当前文件夹下建立一个名为 StuData.txt 的顺序文件。
24、要求用 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（分数：2.00）填空项 1:_ （正确答案：正确答案：Whte#1,StuNo，StuNanne，StuEng）解析：44.以下程序用于求 S=1+3+32+33+310 的值。Private Sub
25、 Commandl_Click() S=1 T=1 ForI=1 To 10 T= 1 S=S+T NextI Print“S=“；S End Sub（分数：2.00）填空项 1:_ （正确答案：正确答案：T*3）解析：45.滚动条响应的重要事件有 1 和 Change。（分数：2.00）填空项 1:_ （正确答案：正确答案：ScroU）解析：46.阅读以下程序：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 单击窗体，程序的执行结果是 1。
26、（分数：2.00）填空项 1:_ （正确答案：正确答案：21）解析：47.语句 FontSize=FontSize*2 的功能是 1。（分数：2.00）填空项 1:_ （正确答案：正确答案：将当前字体放大两倍）解析：48.以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Commandl 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所示。请填空。 （分数：2.00）填空项 1:_ （正确答案：正确答案
27、：sum 或 max 或 Text1(0)或 Text1(0).Text）解析：49.有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以 4 余 1，除以 5 余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Commandl_Click() x=Val(Text1.Text) If 9 Then PrintX Else Text1.Text=“ 10 End If End Sub（分数：2.00）填空项 1:_ （正确答案：正确答案：xMod4=1 AndxMod5=2,Tex(1.SetFocus）解析：50.下面程序的功能是找出给定的 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（分数：2.00）填空项 1:_ （正确答案：正确答案：Max=k,x(Max)）解析：
