1、二级 VISUAL+BASIC 笔试-363 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.如果逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是( )。（分数：2.00）A.前一个为“真”，后一个为“假”B.前一个为“假”，后一个也为“假”C.前一个为真，后一个也为真D.前一个为假，后一个为真2.为了使模块尽可能独立，要求( )。（分数：2.00）A.模块的内聚程序要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模
2、块的内聚程度要尽量低，且各模块间的耦合程度要尽量强3.下列语句中正确的是( )。（分数：2.00）A.txt1Text+txt2Text=txtTextB.CommandName=cmdOKC.12LabeCaption=1234D.A=InputBox(Hell4.假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，计算机将发出( )beep 声。 Sub Timer1_Timer() Fori=1 to 10 Beep Nexti End Sub（分数：2.00）A.1000 次B.10000 次C.10 次D.以上都不对5.表示滚动
3、条控件取值范围最大值的属性是( )。（分数：2.00）A.MaxB.LargeChangeC.ValueD.Max-Min6.“商品”与“顾客”两个实体集之间的联系一般是( )。（分数：2.00）A.一对一B.一对多C.多对一D.多对多7.For-Next 循环的初值、终值与步长( )。（分数：2.00）A.只能是具体的数值B.只能是表达式C.可以是数值表达式D.可以是任何类型的表达式8.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是( )。（分数：2.00）A.Commondialog1.Filter=All Files|*.*|Pictures(*.B
4、m|*.BmpB.Commondialog1.Filter=“AllFiles“|*.*|Pictures(*Bm|*.BmpC.Commondialog1.Filter=AllFilesP|*.*|Pictures(*Bm|*.Bmp|D.Commondialog1.Filter=“AllFiles|*.*|Pictures(*Bm|*.Bmp“9.下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI
5、ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI End Sub（分数：2.00）A.3 7 11 45 19B.17 13 9 5 1C.1 3 5 7 9D.不确定的值10.下列符号常量的声明中，( )是不合法的。（分数：2.00）A.Consta As Single=1.1B.Consta As Integer=“12“C.Consta As Double=Sin(1)D.Consta=“OK“11.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程
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=axvayl(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.15B.14C.13D.1212.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Private Sub Commandl_Click(
7、) Dimi As Integer,j As Integer Dima(10,10)As Integer Fori=1 To 3 Forj=1 To 3 a(i，j)=(i-1)*3+j Printa(i，j)； Nextj Print Nexti End Sub 程序运行后，单击命令按钮，窗体上显示的是( )。 （分数：2.00）A.B.C.D.13.数据库设计的根本目标是要解决( )。（分数：2.00）A.数据共享问题B.数据安全问题C.大量数据存储问题D.简化数据维护14.建立一个新的标准模块，应该选择( )的“添加模块”命令。（分数：2.00）A.“工程”菜单B.“文件”菜单C.“工具
8、”菜单D.“编辑”菜单15.VB6.0 集成开发环境可以( )。（分数：2.00）A.编辑、调试、运行程序，但不能生成可执行程序B.编辑、生成可执行程序、运行程序，但不能调试程序C.编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成可执行程序16.控件是( )。（分数：2.00）A.建立对象的工具B.设置对象属性的工具C.编写程序的编辑器D.建立图形界面的编辑窗口17.下列关于栈的描述正确的是( )。（分数：2.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素D.栈是特殊的线性表，只能在一端插
9、入元素，而在另一端删除元素18.使用 CommonDialog 控件的( )方法可显示“打印”对话框。（分数：2.00）A.ShowOpenB.ShowSaveC.ShowColorD.ShowPrinter19.单击命令按钮时，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=12： y=32 CallPCS(x，y) PrintX；y End Sub PubUc Sub PCS(ByValn As Integer，ByValm As Integer) n=nMod 10 m=mMod 10
10、End Sub（分数：2.00）A.1232B.232C.23D.12320.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课 程成绩(百分制)组成，下列程序段正确的是( )。（分数：2.00）A.Typepestudl no As Integer name As String score(1 To 3)As Single End TypeB.Typestudl no As Integer no As Integer name As String*10 score()As Single End TypeC.Typestudl no As Integer name A
11、s String*10 score(1 To 3)As Single End TypeD.Typestudl no As Integer name As String score(1 To 3)As Single End Type21.对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于( )。（分数：2.00）A.输入对话框B.输出对话框C.模式(模态)对话框D.无模式对话框22.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Sa
12、veFile”；在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是( )（分数：2.00）A.Private Sub Command_Cilck() CommonDialOR1.P11eName=“SaveFile“ CommonDialOg1.Filter=“AllFiles|*.*|(*.tx|(*.do|*.doc“ CommonDialOg1.P11terlndex=2 CommonDialOg1.DialogTitle=“Save“ CommonDialOg1.Action=2 End SubB.Private Sub Commandl_Click() CommonDial
13、021.FileName：“SaveFile“ CommonDialog1.Pnter 二”AllFlleS 卜刮(*tx 陡 txtHdOc 卜 doc” CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle=“Save“ CommonDialog1.Action=2 End SubC.Private Sub Commandl_Cilck() CommonDialog1.FileName=“Save“ CommonDialog1.Filter=“AllFileS|*.*|(*.tx|*.txt|(*.do|*.doc“ CommonDia
14、log1.Filterlndex=2 C0mmonDialoZ1.DialogTitle=“SaveFlle“ CommonDialog1.Action=2 End SubD.Private Sub Commandl_Click() CommonOialoR1.FlleName=“SaveFile“ CommonDialog1.Filter=“AllFiles|*.*|(*.tx|*.txt|(*.do|*.doc“ CommonDialog1.Filterlndex=1 CommonDialog1.DialogTitle=“Save“ CommonDialog1.Action=1 End S
15、ub23.当滚动条位于最左端或最上端时，Value 属性被设置为( )。（分数：2.00）A.MinB.MaxC.Max 和 Min 之间D.Max 和 Min 之外24.若想使时钟控件每隔 0.25 秒触发一次 Timer()事件，则可将 Interval 属性值设为( )。（分数：2.00）A.Interval=0.25B.Interval=25C.Interval=250D.Interval=250025.在窗体上画一个名称为 Commandl 的命令按钮，一个名称为 Labell 的标签，然后编写如下事件过程： Private Sub Commandl_Click() S=0 Fori
16、=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是( )。（分数：2.00）A.1B.5C.27D.4526.模拟方形骰子投掷的表达式是( )。（分数：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)27.CommonDialog 控件可以显示( )对话框。（分数：2.00）A.4 种B.5 种C.6 种D.7 种28.以下叙述中，错误的是( )。（分数：2.00）A.在
17、 Visual Basic 中，对象所能响应的事件是由系统定义的B.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C.VisualBasic 中允许不同对象使用相同名称的方法D.VisualBasic 中的对象具有自己的属性和方法29.在运行程序的过程中，当执行“复制”(mnuEditCopy)命令时，使“粘贴”(munEditPaste)命令变为可用，则应做如下处理( )。（分数：2.00）A.Private Sub nuEditPaste_Click() mun EditPastEnable=True End SubB.Private Sub mnuEditCopy clic
18、k muEditPastEnable=True End SubC.Privat Sub munEditPaste_Click() mnuEditPastVisible=Tme End SubD.Private Sub munEditCopy_ClicK() munEditPastVisible=Tme End Sub30.在文本框 Textl 中输入一个键盘键，将会发生 4 个事件，这 4 个事件的顺序是( )。（分数：2.00）A.Text1_KeyDown、Text1_KeyPress、Text1_Change、Text1_KeyUpB.Text1_KeyDown、Text1_KeyUp、
19、Text1_KeyPress、Text1_ChangeC.Text1_KeyDown、Texd1_KeyPress、Texd1_Change、Textl_KeyPressD.Text1_KeyDown、Text1_Change、Text1_KeyPress、Test1_KeyUp31.当一个复选框被选中时，它的 Value 属性的值是( )。（分数：2.00）A.3B.2C.1D.032.在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 1
20、0 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程序的运行结果为( )。（分数：2.00）A.35B.33C.31D.2933.下列各项中，不是通用过程特点的是( )。（分数：2.00）A.通用过程不与任何特定事件相联系B.通用过程完成特定任务C.通用过程由用户创建D.通用过程可以由鼠标激发34.执行下面的程序段后，x 的值为( )。 x=50 Fori=1 To 20 Step2 x=X+i/5 Next i（分数：2.00）A.66B.67C.68D.6935
21、.以下语句的输出结果是( )。 PrintFormat(32548.5,“000,000.00“)（分数：2.00）A.32548.5B.32,548.5C.032,548.50D.32,548.50二、B填空题/B(总题数：13，分数：30.00)36.在面向对象方法中，类的实例称为 1。（分数：2.00）填空项 1:_37.窗体设计器窗口简称 1，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。（分数：2.00）填空项 1:_38.VisualBasic 使用的是 1 字符集。（分数：2.00）填空项 1:_39.若 A
22、=20,B=80，C=70，D=30，则表达式 A+B1600r(B*C200AndNotd60)的值是 1。（分数：2.00）填空项 1:_40.以下过程的作用是将 26 个小写字母逆序打印出来，请填空。 Sub Inverse() Fori=122 To_ PrintChr$(i)； Nexti End Sub（分数：2.00）填空项 1:_41.要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了 1 的属性为True。（分数：2.00）填空项 1:_42.下列程序弹出对话框中按钮的个数为_。 MsgBox“确认!“，vbAbortRetryignore+vbMs
23、gBoxHelpButton+vbinformation,“提示：“（分数：2.00）填空项 1:_如下图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。Private Sub Commandl_CliCk()Dimk As Integer，n As Integer，found As Booleanfound=False
24、n=LenU 8 /Uk=0WhlekLiStl.ListCount And Not foundIf Text1=Left$(Listl.List(k)，n)ThenTex2=U 9 /Ufound=TrueEnd Ifk=k+1WendIf Not found ThenText2=“查无此人”End IfEnd Sub（分数：4.00）(1).（分数：2.00）填空项 1:_43.启动 VB6.0 默认的工程类型是 1。（分数：2.00）填空项 1:_44.GUI 是指 1。（分数：2.00）填空项 1:_在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程：PriV
25、ate Sub Commandl_CUck()Dimalt(1 To 100)As IntegerFori=1 To 100arr(i)=Int(Rnd*1000)NextiMax=arr(1)Min=arr(1)Fori=1 To 100IfU 12 /UThenMax=arr(i)End IfIfU 13 /UThenMin=arr(i)End IfNextiPrint“Max=“；Max，“Min=“；MinEnd Sub程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，放入数组 alt 中，然后查找并输出这100 个数中的最大值 Max 和最小值 Min，请填空。
26、（分数：4.00）(1).（分数：2.00）填空项 1:_45.执行 inputbox 函数后，会产生一个对话框，对话框上通常有两个按钮，它们是 1 按钮和取消按钮。（分数：2.00）填空项 1:_46.下列程序的运行结果是_。 Sub abcd(ByValn As Integer) n=n+5 End Sub Private Sub Form_Click() nx%=3 Callabcd(nx%) Printnx% End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-363 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分
27、数：70.00)1.如果逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是( )。（分数：2.00）A.前一个为“真”，后一个为“假”B.前一个为“假”，后一个也为“假”C.前一个为真，后一个也为真 D.前一个为假，后一个为真解析：2.为了使模块尽可能独立，要求( )。（分数：2.00）A.模块的内聚程序要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强解析：3.下列语句中正确的是( )。（分数：2.00）A.txt1Text
28、+txt2Text=txtTextB.CommandName=cmdOKC.12LabeCaption=1234D.A=InputBox(Hell 解析：4.假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，计算机将发出( )beep 声。 Sub Timer1_Timer() Fori=1 to 10 Beep Nexti End Sub（分数：2.00）A.1000 次B.10000 次C.10 次D.以上都不对 解析：5.表示滚动条控件取值范围最大值的属性是( )。（分数：2.00）A.Max B.LargeChangeC.Val
29、ueD.Max-Min解析：6.“商品”与“顾客”两个实体集之间的联系一般是( )。（分数：2.00）A.一对一B.一对多C.多对一D.多对多 解析：7.For-Next 循环的初值、终值与步长( )。（分数：2.00）A.只能是具体的数值B.只能是表达式C.可以是数值表达式 D.可以是任何类型的表达式解析：8.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下正确的语句是( )。（分数：2.00）A.Commondialog1.Filter=All Files|*.*|Pictures(*.Bm|*.BmpB.Commondialog1.Filter=“AllFiles
30、“|*.*|Pictures(*Bm|*.BmpC.Commondialog1.Filter=AllFilesP|*.*|Pictures(*Bm|*.Bmp|D.Commondialog1.Filter=“AllFiles|*.*|Pictures(*Bm|*.Bmp“ 解析：9.下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) Nex
31、tI ForI=1 to 5 Printy(i)； NextI End Sub（分数：2.00）A.3 7 11 45 19B.17 13 9 5 1 C.1 3 5 7 9D.不确定的值解析：10.下列符号常量的声明中，( )是不合法的。（分数：2.00）A.Consta As Single=1.1B.Consta As Integer=“12“C.Consta As Double=Sin(1) D.Consta=“OK“解析：11.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Clic
32、k() 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=axvayl(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.15B.14C.13D.12 解析：12.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Private Sub Commandl_Click() Dimi As Integer,j As
33、Integer Dima(10,10)As Integer Fori=1 To 3 Forj=1 To 3 a(i，j)=(i-1)*3+j Printa(i，j)； Nextj Print Nexti End Sub 程序运行后，单击命令按钮，窗体上显示的是( )。 （分数：2.00）A.B.C.D. 解析：13.数据库设计的根本目标是要解决( )。（分数：2.00）A.数据共享问题 B.数据安全问题C.大量数据存储问题D.简化数据维护解析：14.建立一个新的标准模块，应该选择( )的“添加模块”命令。（分数：2.00）A.“工程”菜单 B.“文件”菜单C.“工具”菜单D.“编辑”菜单解析：
34、15.VB6.0 集成开发环境可以( )。（分数：2.00）A.编辑、调试、运行程序，但不能生成可执行程序B.编辑、生成可执行程序、运行程序，但不能调试程序C.编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成可执行程序 解析：16.控件是( )。（分数：2.00）A.建立对象的工具 B.设置对象属性的工具C.编写程序的编辑器D.建立图形界面的编辑窗口解析：17.下列关于栈的描述正确的是( )。（分数：2.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素 D.栈是特殊的线性表，只能在一端插入元
35、素，而在另一端删除元素解析：18.使用 CommonDialog 控件的( )方法可显示“打印”对话框。（分数：2.00）A.ShowOpenB.ShowSaveC.ShowColorD.ShowPrinter 解析：19.单击命令按钮时，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=12： y=32 CallPCS(x，y) PrintX；y End Sub PubUc Sub PCS(ByValn As Integer，ByValm As Integer) n=nMod 10 m=mMo
36、d 10 End Sub（分数：2.00）A.1232 B.232C.23D.123解析：20.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课 程成绩(百分制)组成，下列程序段正确的是( )。（分数：2.00）A.Typepestudl no As Integer name As String score(1 To 3)As Single End TypeB.Typestudl no As Integer no As Integer name As String*10 score()As Single End TypeC.Typestudl no As Integ
37、er name As String*10 score(1 To 3)As Single End Type D.Typestudl no As Integer name As String score(1 To 3)As Single End Type解析：21.对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于( )。（分数：2.00）A.输入对话框B.输出对话框C.模式(模态)对话框 D.无模式对话框解析：22.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题
38、为“Save”，缺省文件名为“SaveFile”；在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是( )（分数：2.00）A.Private Sub Command_Cilck() CommonDialOR1.P11eName=“SaveFile“ CommonDialOg1.Filter=“AllFiles|*.*|(*.tx|(*.do|*.doc“ CommonDialOg1.P11terlndex=2 CommonDialOg1.DialogTitle=“Save“ CommonDialOg1.Action=2 End Sub B.Private Sub Commandl_
39、Click() CommonDial021.FileName：“SaveFile“ CommonDialog1.Pnter 二”AllFlleS 卜刮(*tx 陡 txtHdOc 卜 doc” CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle=“Save“ CommonDialog1.Action=2 End SubC.Private Sub Commandl_Cilck() CommonDialog1.FileName=“Save“ CommonDialog1.Filter=“AllFileS|*.*|(*.tx|*.txt|(*.d
40、o|*.doc“ CommonDialog1.Filterlndex=2 C0mmonDialoZ1.DialogTitle=“SaveFlle“ CommonDialog1.Action=2 End SubD.Private Sub Commandl_Click() CommonOialoR1.FlleName=“SaveFile“ CommonDialog1.Filter=“AllFiles|*.*|(*.tx|*.txt|(*.do|*.doc“ CommonDialog1.Filterlndex=1 CommonDialog1.DialogTitle=“Save“ CommonDial
41、og1.Action=1 End Sub解析：23.当滚动条位于最左端或最上端时，Value 属性被设置为( )。（分数：2.00）A.Min B.MaxC.Max 和 Min 之间D.Max 和 Min 之外解析：24.若想使时钟控件每隔 0.25 秒触发一次 Timer()事件，则可将 Interval 属性值设为( )。（分数：2.00）A.Interval=0.25B.Interval=25C.Interval=250 D.Interval=2500解析：25.在窗体上画一个名称为 Commandl 的命令按钮，一个名称为 Labell 的标签，然后编写如下事件过程： Private
42、Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是( )。（分数：2.00）A.1B.5 C.27D.45解析：26.模拟方形骰子投掷的表达式是( )。（分数：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)解析：27.CommonDialog 控件可以显示( )对话框。（分数：2.00）A.4 种B.5 种C.
43、6 种 D.7 种解析：28.以下叙述中，错误的是( )。（分数：2.00）A.在 Visual Basic 中，对象所能响应的事件是由系统定义的B.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C.VisualBasic 中允许不同对象使用相同名称的方法D.VisualBasic 中的对象具有自己的属性和方法解析：29.在运行程序的过程中，当执行“复制”(mnuEditCopy)命令时，使“粘贴”(munEditPaste)命令变为可用，则应做如下处理( )。（分数：2.00）A.Private Sub nuEditPaste_Click() mun EditPastEnab
44、le=True End SubB.Private Sub mnuEditCopy click muEditPastEnable=True End Sub C.Privat Sub munEditPaste_Click() mnuEditPastVisible=Tme End SubD.Private Sub munEditCopy_ClicK() munEditPastVisible=Tme End Sub解析：30.在文本框 Textl 中输入一个键盘键，将会发生 4 个事件，这 4 个事件的顺序是( )。（分数：2.00）A.Text1_KeyDown、Text1_KeyPress、Tex
45、t1_Change、Text1_KeyUp B.Text1_KeyDown、Text1_KeyUp、Text1_KeyPress、Text1_ChangeC.Text1_KeyDown、Texd1_KeyPress、Texd1_Change、Textl_KeyPressD.Text1_KeyDown、Text1_Change、Text1_KeyPress、Test1_KeyUp解析：31.当一个复选框被选中时，它的 Value 属性的值是( )。（分数：2.00）A.3B.2C.1 D.0解析：32.在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Cli
46、ck() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程序的运行结果为( )。（分数：2.00）A.35B.33 C.31D.29解析：33.下列各项中，不是通用过程特点的是( )。（分数：2.00）A.通用过程不与任何特定事件相联系B.通用过程完成特定任务 C.通用过程由用户创建D.通用过程可以由鼠标激发解析：34.执行下面的程序段后，x 的值为( )。
47、x=50 Fori=1 To 20 Step2 x=X+i/5 Next i（分数：2.00）A.66 B.67C.68D.69解析：35.以下语句的输出结果是( )。 PrintFormat(32548.5,“000,000.00“)（分数：2.00）A.32548.5B.32,548.5C.032,548.50 D.32,548.50解析：二、B填空题/B(总题数：13，分数：30.00)36.在面向对象方法中，类的实例称为 1。（分数：2.00）填空项 1:_ （正确答案：对象）解析：37.窗体设计器窗口简称 1，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。各种图形、图像、
48、数据等都是通过窗体或窗体中的控件显示出来的。（分数：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.00）填空项 1:_ （正确答案：True）解析：40.以下过程的作用是将 26 个小写字母逆序打印出来，请填空。 Sub Inverse() Fori=122 To_ PrintChr$(i)； Nexti End Sub（分数：2.00）填空项 1:_ （正确答案：97Step-1）解析：41.要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了 1 的属性为True。（分数：2.00）填空项 1:_ （正确答案：
