1、二级 VISUAL+BASIC 笔试-228 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dimarrayl(10，10)As IntegerDimi As Integer,j As IntegerFori=1 To 3Forj=2 To 4arrayl(i，j)=i+jNextjNextiText1.Text=axvayl(2，3)+arrayl(3，4)End Sub程序
2、运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.15B.14C.13D.122.在窗体上画一个名称为 Commandl 的命令按钮，一个名称为 Labell 的标签，然后编写如下事件过程：Private Sub Commandl_Click()S=0Fori=1 To 15x=2*i-1If x Mod3=0 Thens=S+1NextiLabe11.Caption=SEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是( )。（分数：2.00）A.1B.5C.27D.453.若想使时钟控件每隔 0.25 秒触发一次 Timer()事件，则可将 Interval
3、 属性值设为( )。（分数：2.00）A.Interval=0.25B.Interval=25C.Interval=250D.Interval=25004.在窗体上添加一个命令按钮，然后编写如下事件过程：Phvate Sub Commanl_Click()Dima(10)As IntegerDimp(3)As InteSerk=5Fori=1 To 10a(i)=iNextiFori=1 To 3p(i)=a(i*i)NextiFori=1 To 3k=k+p(i)*2NextiPrintkEnd Sub该程序的运行结果为( )。（分数：2.00）A.35B.33C.31D.295.For-N
4、ext 循环的初值、终值与步长( )。（分数：2.00）A.只能是具体的数值B.只能是表达式C.可以是数值表达式D.可以是任何类型的表达式6.为了使模块尽可能独立，要求( )。（分数：2.00）A.模块的内聚程序要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强7.单击命令按钮时，下列程序的执行结果为( )。Private Sub Commandl_Click()Dimx As Integer，y As Integerx=12： y=32C
5、allPCS(x，y)PrintX；yEnd SubPubUc Sub PCS(ByValn As Integer，ByValm As Integer)n=nMod 10m=mMod 10End Sub（分数：2.00）A.1232B.232C.23D.1238.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“SaveFile”；在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是( )（分数：2.00）A.Private Sub Com
6、mand_Cilck()CommonDialOR1.P11eName=“SaveFile“CommonDialOg1.Filter=“AllFiles|*.*|(*.txt)|(*.doc)|*.doc“CommonDialOg1.P11terlndex=2CommonDialOg1.DialogTitle=“Save“CommonDialOg1.Action=2End SubB.Private Sub Commandl_Click()CommonDial021.FileName：“SaveFile“CommonDialog1.Pnter 二”AllFlleS 卜刮(*txt)陡 txtHdO
7、c 卜 doc”CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=“Save“CommonDialog1.Action=2End SubC.Private Sub Commandl_Cilck()CommonDialog1.FileName=“Save“CommonDialog1.Filter=“AllFileS|*.*|(*.txt)|*.txt|(*.doc)|*.doc“CommonDialog1.Filterlndex=2C0mmonDialoZ1.DialogTitle=“SaveFlle“CommonDialog1.Actio
8、n=2End SubD.Private Sub Commandl_Click()CommonOialoR1.FlleName=“SaveFile“CommonDialog1.Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc“CommonDialog1.Filterlndex=1CommonDialog1.DialogTitle=“Save“CommonDialog1.Action=1End Sub9.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：Private Sub Commandl_Click()Dimi As Int
9、eger,j As IntegerDima(10,10)As IntegerFori=1 To 3Forj=1 To 3a(i，j)=(i-1)*3+jPrinta(i，j)；NextjPrintNextiEnd Sub程序运行后，单击命令按钮，窗体上显示的是( )。（分数：2.00）A.B.C.D.10.模拟方形骰子投掷的表达式是( )。（分数：2.00）A.Int(6*Rnd(1)B.Int(1+6*Rud(1)C.Int(6*Rnd(1)-1)D.Int(7*Rnd(1)-1)11.CommonDialog 控件可以显示( )对话框。（分数：2.00）A.4 种B.5 种C.6 种D.7
10、 种12.执行下面的程序段后，x 的值为( )。x=50Fori=1 To 20 Step2x=X+i/5Next i（分数：2.00）A.66B.67C.68D.6913.下列关于栈的描述正确的是( )。（分数：2.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素14.在文本框 Textl 中输入一个键盘键，将会发生 4 个事件，这 4 个事件的顺序是( )。（分数：2.00）A.Text1_KeyDown、Text1_KeyPress、Text1_Chan
11、ge、Text1_KeyUpB.Text1_KeyDown、Text1_KeyUp、Text1_KeyPress、Text1_ChangeC.Text1_KeyDown、Texd1_KeyPress、Texd1_Change、Textl_KeyPressD.Text1_KeyDown、Text1_Change、Text1_KeyPress、Test1_KeyUp15.“商品”与“顾客”两个实体集之间的联系一般是( )。（分数：2.00）A.一对一B.一对多C.多对一D.多对多16.下列各项中，不是通用过程特点的是( )。（分数：2.00）A.通用过程不与任何特定事件相联系B.通用过程完成特定任
12、务C.通用过程由用户创建D.通用过程可以由鼠标激发17.VB6.0 集成开发环境可以( )。（分数：2.00）A.编辑、调试、运行程序，但不能生成可执行程序B.编辑、生成可执行程序、运行程序，但不能调试程序C.编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成可执行程序18.如果逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是( )。（分数：2.00）A.前一个为“真”，后一个为“假”B.前一个为“假”，后一个也为“假”C.前一个为真，后一个也为真D.前一个为假，后一个为真19.数据库设计的根本目标是要解决( )。（分数：2.00）A.数据共享问题B.数
13、据安全问题C.大量数据存储问题D.简化数据维护20.控件是( )。（分数：2.00）A.建立对象的工具B.设置对象属性的工具C.编写程序的编辑器D.建立图形界面的编辑窗口21.以下语句的输出结果是( )。PrintFormat(32548.5,“000,000.00“)（分数：2.00）A.32548.5B.32,548.5C.032,548.50D.32,548.5022.表示滚动条控件取值范围最大值的属性是( )。（分数：2.00）A.MaxB.LargeChangeC.ValueD.Max-Min23.假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，
14、并且有下面的事件过程，计算机将发出( )beep 声。Sub Timer1_Timer()Fori=1 to 10BeepNextiEnd Sub（分数：2.00）A.1000 次B.10000 次C.10 次D.以上都不对24.下列语句中正确的是( )。（分数：2.00）A.txt1Text+txt2Text=txtSTextB.Commandl.Name=cmdOKC.12LabelCaption=1234D.A=InputBox(Hello)25.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是( )。（分数：2.00）A.Commondialog1.
15、Filter=All Files|*.*|Pictures(*.Bmp)|*.BmpB.Commondialog1.Filter=“AllFiles“|*.*|Pictures(*Bmp)|*.BmpC.Commondialog1.Filter=AllFilesP|*.*|Pictures(*Bmp)|*.Bmp|D.Commondialog1.Filter=“AllFiles|*.*|Pictures(*Bmp)|*.Bmp“26.在运行程序的过程中，当执行“复制”(mnuEditCopy)命令时，使“粘贴”(munEditPaste)命令变为可用，则应做如下处理( )。（分数：2.00）A
16、.Private Sub nuEditPaste_Click()mun EditPaste.Enable=TrueEnd SubB.Private Sub mnuEditCopy clickmuEditPaste.Enable=TrueEnd SubC.Privat Sub munEditPaste_Click()mnuEditPaste.Visible=TmeEnd SubD.Private Sub munEditCopy_ClicK()munEditPaste.Visible=TmeEnd Sub27.当滚动条位于最左端或最上端时，Value 属性被设置为( )。（分数：2.00）A.Mi
17、nB.MaxC.Max 和 Min 之间D.Max 和 Min 之外28.使用 CommonDialog 控件的( )方法可显示“打印”对话框。（分数：2.00）A.ShowOpenB.ShowSaveC.ShowColorD.ShowPrinter29.当一个复选框被选中时，它的 Value 属性的值是( )。（分数：2.00）A.3B.2C.1D.030.对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于( )。（分数：2.00）A.输入对话框B.输出对话框C.模式(模态)对话框D.无模式对话框31.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课
18、程成绩(百分制)组成，下列程序段正确的是( )。（分数：2.00）A.Typepestudlno As Integername As Stringscore(1 To 3)As SingleEnd TypeB.Typestudlno As Integerno As Integername As String*10score()As SingleEnd TypeC.Typestudlno As Integername As String*10score(1 To 3)As SingleEnd TypeD.Typestudlno As Integername As Stringscore(1 To
19、 3)As SingleEnd Type32.以下叙述中，错误的是( )。（分数：2.00）A.在 Visual Basic 中，对象所能响应的事件是由系统定义的B.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C.VisualBasic 中允许不同对象使用相同名称的方法D.VisualBasic 中的对象具有自己的属性和方法33.下列符号常量的声明中，( )是不合法的。（分数：2.00）A.Consta As Single=1.1B.Consta As Integer=“12“C.Consta As Double=Sin(1)D.Consta=“OK“34.下列程序运行时输出的
20、结果是( )。Option Base 1Private Sub Form_Click()Dimx(10)As Integer,y(5) As IntegerForI=1 to 10x(i)=10-I+1NextIForI=1 to 5y(i)cx(2*-1)+x(2*I)NextIForI=1 to 5Printy(i)；NextIEnd Sub（分数：2.00）A.3 7 11 45 19B.17 13 9 5 1C.1 3 5 7 9D.不确定的值35.建立一个新的标准模块，应该选择( )的“添加模块”命令。（分数：2.00）A.“工程”菜单B.“文件”菜单C.“工具”菜单D.“编辑”菜单
21、二、填空题(总题数：13，分数：30.00)36.在面向对象方法中，类的实例称为 1。（分数：2.00）填空项 1:_37.窗体设计器窗口简称 1，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。（分数：2.00）填空项 1:_38.VisualBasic 使用的是 1 字符集。（分数：2.00）填空项 1:_39.若 A=20,B=80，C=70，D=30，则表达式 A+B1600r(B*C200AndNotd60)的值是 1。（分数：2.00）填空项 1:_40.以下过程的作用是将 26 个小写字母逆序打印出来，请填空。
22、Sub Inverse()Fori=122 To_PrintChr$(i)；NextiEnd Sub（分数：2.00）填空项 1:_41.要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了 1 的属性为True。（分数：2.00）填空项 1:_42.下列程序弹出对话框中按钮的个数为_。MsgBox“确认!“，vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,“提示：/（分数：2.00）填空项 1:_如下图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框(即“查找对象”右边的文本框)
23、输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。（分数：4.00）填空项 1:_填空项 1:_43.启动 VB6.0 默认的工程类型是 1。（分数：2.00）填空项 1:_44.GUI 是指 1。（分数：2.00）填空项 1:_在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程：PriVate Sub Commandl_CUck()Dimalt(1 To 100)As IntegerFori=1 To 1
24、00arr(i)=Int(Rnd*1000)NextiMax=arr(1)Min=arr(1)Fori=1 To 100If 12 ThenMax=arr(i)End IfIf 13 ThenMin=arr(i)End IfNextiPrint“Max=“；Max，“Min=“；MinEnd Sub程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，放入数组 alt 中，然后查找并输出这100 个数中的最大值 Max 和最小值 Min，请填空。（分数：4.00）填空项 1:_填空项 1:_45.执行 inputbox 函数后，会产生一个对话框，对话框上通常有两个按钮，它们是
25、 1 按钮和取消按钮。（分数：2.00）填空项 1:_46.下列程序的运行结果是_。Sub abcd(ByValn As Integer)n=n+5End SubPrivate Sub Form_Click()nx%=3Callabcd(nx%)Printnx%End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-228 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command
26、l_Click()Dimarrayl(10，10)As IntegerDimi As Integer,j As IntegerFori=1 To 3Forj=2 To 4arrayl(i，j)=i+jNextjNextiText1.Text=axvayl(2，3)+arrayl(3，4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.15B.14C.13D.12 解析：2.在窗体上画一个名称为 Commandl 的命令按钮，一个名称为 Labell 的标签，然后编写如下事件过程：Private Sub Commandl_Click()S=0Fori=1
27、 To 15x=2*i-1If x Mod3=0 Thens=S+1NextiLabe11.Caption=SEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是( )。（分数：2.00）A.1B.5 C.27D.45解析：3.若想使时钟控件每隔 0.25 秒触发一次 Timer()事件，则可将 Interval 属性值设为( )。（分数：2.00）A.Interval=0.25B.Interval=25C.Interval=250 D.Interval=2500解析：4.在窗体上添加一个命令按钮，然后编写如下事件过程：Phvate Sub Commanl_Click()Dima(10
28、)As IntegerDimp(3)As InteSerk=5Fori=1 To 10a(i)=iNextiFori=1 To 3p(i)=a(i*i)NextiFori=1 To 3k=k+p(i)*2NextiPrintkEnd Sub该程序的运行结果为( )。（分数：2.00）A.35B.33 C.31D.29解析：5.For-Next 循环的初值、终值与步长( )。（分数：2.00）A.只能是具体的数值B.只能是表达式C.可以是数值表达式 D.可以是任何类型的表达式解析：6.为了使模块尽可能独立，要求( )。（分数：2.00）A.模块的内聚程序要尽量高，且各模块间的耦合程度要尽量强B.
29、模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强解析：7.单击命令按钮时，下列程序的执行结果为( )。Private Sub Commandl_Click()Dimx As Integer，y As Integerx=12： y=32CallPCS(x，y)PrintX；yEnd SubPubUc Sub PCS(ByValn As Integer，ByValm As Integer)n=nMod 10m=mMod 10End Sub（分数：2.00）A.1232 B.232C
30、.23D.123解析：8.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“SaveFile”；在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是( )（分数：2.00）A.Private Sub Command_Cilck()CommonDialOR1.P11eName=“SaveFile“CommonDialOg1.Filter=“AllFiles|*.*|(*.txt)|(*.doc)|*.doc“CommonDialOg1.P11
31、terlndex=2CommonDialOg1.DialogTitle=“Save“CommonDialOg1.Action=2End Sub B.Private Sub Commandl_Click()CommonDial021.FileName：“SaveFile“CommonDialog1.Pnter 二”AllFlleS 卜刮(*txt)陡 txtHdOc 卜 doc”CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=“Save“CommonDialog1.Action=2End SubC.Private Sub Commandl
32、_Cilck()CommonDialog1.FileName=“Save“CommonDialog1.Filter=“AllFileS|*.*|(*.txt)|*.txt|(*.doc)|*.doc“CommonDialog1.Filterlndex=2C0mmonDialoZ1.DialogTitle=“SaveFlle“CommonDialog1.Action=2End SubD.Private Sub Commandl_Click()CommonOialoR1.FlleName=“SaveFile“CommonDialog1.Filter=“AllFiles|*.*|(*.txt)|*.
33、txt|(*.doc)|*.doc“CommonDialog1.Filterlndex=1CommonDialog1.DialogTitle=“Save“CommonDialog1.Action=1End Sub解析：9.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：Private Sub Commandl_Click()Dimi As Integer,j As IntegerDima(10,10)As IntegerFori=1 To 3Forj=1 To 3a(i，j)=(i-1)*3+jPrinta(i，j)；NextjPrintNextiEnd Sub程序运行后
34、，单击命令按钮，窗体上显示的是( )。（分数：2.00）A.B.C.D. 解析：10.模拟方形骰子投掷的表达式是( )。（分数：2.00）A.Int(6*Rnd(1)B.Int(1+6*Rud(1) C.Int(6*Rnd(1)-1)D.Int(7*Rnd(1)-1)解析：11.CommonDialog 控件可以显示( )对话框。（分数：2.00）A.4 种B.5 种C.6 种 D.7 种解析：12.执行下面的程序段后，x 的值为( )。x=50Fori=1 To 20 Step2x=X+i/5Next i（分数：2.00）A.66 B.67C.68D.69解析：13.下列关于栈的描述正确的是
35、( )。（分数：2.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素 D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素解析：14.在文本框 Textl 中输入一个键盘键，将会发生 4 个事件，这 4 个事件的顺序是( )。（分数：2.00）A.Text1_KeyDown、Text1_KeyPress、Text1_Change、Text1_KeyUp B.Text1_KeyDown、Text1_KeyUp、Text1_KeyPress、Text1_ChangeC.Text1_KeyDown、Texd1_Key
36、Press、Texd1_Change、Textl_KeyPressD.Text1_KeyDown、Text1_Change、Text1_KeyPress、Test1_KeyUp解析：15.“商品”与“顾客”两个实体集之间的联系一般是( )。（分数：2.00）A.一对一B.一对多C.多对一D.多对多 解析：16.下列各项中，不是通用过程特点的是( )。（分数：2.00）A.通用过程不与任何特定事件相联系B.通用过程完成特定任务 C.通用过程由用户创建D.通用过程可以由鼠标激发解析：17.VB6.0 集成开发环境可以( )。（分数：2.00）A.编辑、调试、运行程序，但不能生成可执行程序B.编辑、
37、生成可执行程序、运行程序，但不能调试程序C.编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成可执行程序 解析：18.如果逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是( )。（分数：2.00）A.前一个为“真”，后一个为“假”B.前一个为“假”，后一个也为“假”C.前一个为真，后一个也为真 D.前一个为假，后一个为真解析：19.数据库设计的根本目标是要解决( )。（分数：2.00）A.数据共享问题 B.数据安全问题C.大量数据存储问题D.简化数据维护解析：20.控件是( )。（分数：2.00）A.建立对象的工具 B.设置对象属性的工具C.编写程序的编
38、辑器D.建立图形界面的编辑窗口解析：21.以下语句的输出结果是( )。PrintFormat(32548.5,“000,000.00“)（分数：2.00）A.32548.5B.32,548.5C.032,548.50 D.32,548.50解析：22.表示滚动条控件取值范围最大值的属性是( )。（分数：2.00）A.Max B.LargeChangeC.ValueD.Max-Min解析：23.假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，计算机将发出( )beep 声。Sub Timer1_Timer()Fori=1 to 10Be
39、epNextiEnd Sub（分数：2.00）A.1000 次B.10000 次C.10 次D.以上都不对 解析：24.下列语句中正确的是( )。（分数：2.00）A.txt1Text+txt2Text=txtSTextB.Commandl.Name=cmdOKC.12LabelCaption=1234D.A=InputBox(Hello) 解析：25.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是( )。（分数：2.00）A.Commondialog1.Filter=All Files|*.*|Pictures(*.Bmp)|*.BmpB.Commond
40、ialog1.Filter=“AllFiles“|*.*|Pictures(*Bmp)|*.BmpC.Commondialog1.Filter=AllFilesP|*.*|Pictures(*Bmp)|*.Bmp|D.Commondialog1.Filter=“AllFiles|*.*|Pictures(*Bmp)|*.Bmp“ 解析：26.在运行程序的过程中，当执行“复制”(mnuEditCopy)命令时，使“粘贴”(munEditPaste)命令变为可用，则应做如下处理( )。（分数：2.00）A.Private Sub nuEditPaste_Click()mun EditPaste.E
41、nable=TrueEnd SubB.Private Sub mnuEditCopy clickmuEditPaste.Enable=TrueEnd Sub C.Privat Sub munEditPaste_Click()mnuEditPaste.Visible=TmeEnd SubD.Private Sub munEditCopy_ClicK()munEditPaste.Visible=TmeEnd Sub解析：27.当滚动条位于最左端或最上端时，Value 属性被设置为( )。（分数：2.00）A.Min B.MaxC.Max 和 Min 之间D.Max 和 Min 之外解析：28.使用
42、 CommonDialog 控件的( )方法可显示“打印”对话框。（分数：2.00）A.ShowOpenB.ShowSaveC.ShowColorD.ShowPrinter 解析：29.当一个复选框被选中时，它的 Value 属性的值是( )。（分数：2.00）A.3B.2C.1 D.0解析：30.对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于( )。（分数：2.00）A.输入对话框B.输出对话框C.模式(模态)对话框 D.无模式对话框解析：31.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩(百分制)组成，下列程序段正确的是( )。（分数
43、：2.00）A.Typepestudlno As Integername As Stringscore(1 To 3)As SingleEnd TypeB.Typestudlno As Integerno As Integername As String*10score()As SingleEnd TypeC.Typestudlno As Integername As String*10score(1 To 3)As SingleEnd Type D.Typestudlno As Integername As Stringscore(1 To 3)As SingleEnd Type解析：32.
44、以下叙述中，错误的是( )。（分数：2.00）A.在 Visual Basic 中，对象所能响应的事件是由系统定义的B.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C.VisualBasic 中允许不同对象使用相同名称的方法D.VisualBasic 中的对象具有自己的属性和方法解析：33.下列符号常量的声明中，( )是不合法的。（分数：2.00）A.Consta As Single=1.1B.Consta As Integer=“12“C.Consta As Double=Sin(1) D.Consta=“OK“解析：34.下列程序运行时输出的结果是( )。Option B
45、ase 1Private Sub Form_Click()Dimx(10)As Integer,y(5) As IntegerForI=1 to 10x(i)=10-I+1NextIForI=1 to 5y(i)cx(2*-1)+x(2*I)NextIForI=1 to 5Printy(i)；NextIEnd Sub（分数：2.00）A.3 7 11 45 19B.17 13 9 5 1 C.1 3 5 7 9D.不确定的值解析：35.建立一个新的标准模块，应该选择( )的“添加模块”命令。（分数：2.00）A.“工程”菜单 B.“文件”菜单C.“工具”菜单D.“编辑”菜单解析：二、填空题(总
46、题数：13，分数：30.00)36.在面向对象方法中，类的实例称为 1。（分数：2.00）填空项 1:_ （正确答案：对象）解析：37.窗体设计器窗口简称 1，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。（分数：2.00）填空项 1:_ （正确答案：窗体(Form)）解析：38.VisualBasic 使用的是 1 字符集。（分数：2.00）填空项 1:_ （正确答案：Unicode）解析：39.若 A=20,B=80，C=70，D=30，则表达式 A+B1600r(B*C200AndNotd60)的值是 1。（分数：2
47、.00）填空项 1:_ （正确答案：True）解析：40.以下过程的作用是将 26 个小写字母逆序打印出来，请填空。Sub Inverse()Fori=122 To_PrintChr$(i)；NextiEnd Sub（分数：2.00）填空项 1:_ （正确答案：97Step-1）解析：41.要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了 1 的属性为True。（分数：2.00）填空项 1:_ （正确答案：Locked）解析：42.下列程序弹出对话框中按钮的个数为_。MsgBox“确认!“，vbAbortRetryignore+vbMsgBoxHelpButton+
48、vbinformation,“提示：/（分数：2.00）填空项 1:_ （正确答案：4）解析：如下图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。（分数：4.00）填空项 1:_ （正确答案：Text1 或 Text1.Text）解析：填空项 1:_ （正确答案：List1.List(k)）解析：43.启动 VB6.0 默认的工程类型是 1。（分数：2.00）填空项 1:_ （正确答案：标准 EXE 程序）解析：44.GUI 是指 1。（分数：2.00）填空项
