【计算机类职业资格】二级VISUAL+BASIC笔试-136及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试-136及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-136及答案解析.doc（23页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试-136 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列对变量的定义中，不能定义 a 为变体变量的是( )。（分数：2.00）A.Dima As DoubleB.Dima AS VariantC.DimaD.a=242.设 a=5，b=10，则执行c=Int(b-a)*Rnd+a)+1后，c 值的范围为( )。（分数：2.00）A.510B.69C.610D.593.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()x=

2、Input Box(“Input“)Select Case xCase 1,3Print“分支 1“Case Is4Print“分支 2“Case ElsePrint“Else 分支“End SelectEnd Sub程序运行后，如果在输入对话框中输入 2，则窗体上显示的是( )。（分数：2.00）A.分支 1B.分支 2C.Else 分支D.程序出错4.以下 Case 语句中错误的是( )。（分数：2.00）A.Case 0 To 10B.Case Is10C.Casels10 And Is50D.Case3，5，Is105.设 a=“Microsoft VisualBasic“，则以下使变

3、量 b 的值为 Visual Basic 的语句是( )。（分数：2.00）A.b=Left(a,10)B.b=Mid(a,10)C.b=Right(a,10)D.b=Mid(a,11,10)6.以下叙述中错误的是( )。（分数：2.00）A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.对象事件的名称可以由编程者指定7.下面( )语句执行后，窗体 Forml 从内存退出。（分数：2.00）A.UnLoad FormlB.Load FormlC.Forml.HideD.Forml.Visiable=False8.要使某菜单能够通过按住

4、键盘上的 Alt 键及 K 键打开，应( )。（分数：2.00）A.在“名称”栏中“K”字符前加上“&”B.在“标题”栏中“K”字符后加上“&”C.在“标题”栏中“K”字符前加上“&”D.在“名称”栏中“K”字符后加上“&”9.在窗体上画 3 个标签、3 个文本框(名称分别为 Text1、Text2 和 Text3)和 1 个命令按钮 (名称为Command1)，外观如下图所示。（分数：2.00）A.B.C.D.10.子过程 Sub.End Sub 的形式参数可以是( )。（分数：2.00）A.常数、简单变量、数组变量和运算式B.简单变量、数组变量和数组元素C.常数、简单变量、数组变量D.简单

5、变量、数组变量和运算式11.以下声明语句中错误的是( )。（分数：2.00）A.Const varl=123B.Dimvar2=ABCC.DefInta-zD.Staticvar3AsInteger12.满足“当 x 的值是偶数时为真，奇数时为假”要求的表达式是( )。（分数：2.00）A.x Mod 2=0B.Not x Mod2 0C.(x/2*2-x)=0D.Not(x Mod 2)13.Visual Basic 的在线帮助窗口是一个与( )非常相似的窗口，（分数：2.00）A.Word 编辑窗口B.浏览器窗口C.FoxPro 主界面D.Windows 资源管理器窗口14.下列程序的功能

6、是：依次将列表框 List2 中的项目移入列表框 Listl 中，并将列表框 List2 中移走的项目删除，给程序的空白行选择适当的语句( )。List1.Addltem List2.List(0)List2.ReMoveltem 0Loop（分数：2.00）A.Do Until List2.ListCountB.Do While List2.ListCountC.Do Until List1.ListCountD.Do While List1.ListCount15.以下程序段中 Do.Loop 循环执行的次数为( )。n=5Dolf n Mod 2=0 Thenn=n/2Elsen=n*3

7、+1End IfLoop untiln=1（分数：2.00）A.4B.3C.5D.216.函数 Int(Rnd(0)*100)是下列( )范围内的整数。（分数：2.00）A.(0,10)B.(1,100)C.(0,100)D.(1,99)17.表达式 Abs(-5)+Len(“ABCDE“)的值是( )。（分数：2.00）A.5ABCDEB.-5ABCDEC.10D.018.在随机文件中，下列正确的选项是( )。（分数：2.00）A.记录号是通过随机数产生的B.可以通过记录号随机读取记录C.记录的内容是随机产生的D.记录的长度是任意的19.下列关于属性设置的叙述错误的是( )。（分数：2.00

8、）A.一个控件具有什么属性是 Visual Basic 预先设计好的，用户不能改变B.一个控件具有什么属性是 Visual Basic 预先设计好的，用户可以改变C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值20.当对 Draw Width 进行设置后，将影响( )。（分数：2.00）A.Line、Circle、Pset 方法B.Line、Shape 控件C.Line、Circle、Point 方法D.Line、Circle、Pset 方法和 Line、Shape 控件21.标签控件能够显示文本信息，文本内容只

9、能用( )属性来设置。（分数：2.00）A.AlignmentB.CaptionC.VisibleD.Borderstyle22.在程序代码中将图片文件 mypic.jpg 装入图片框 Pictruel 的语句是( )。（分数：2.00）A.Picture1.Picture=“mypic.jpg“B.Picture1.Image=“mypic.jpg“C.Picture1.Picture=LoadPicture(“mypic.jpg“)D.LoadPicture(“mypic.jpg“)23.下列对于软件测试的描述中正确的是( )。（分数：2.00）A.软件测试的目的是证明程序是否正确B.软件

10、测试的目的是使程序运行结果正确C.软件测试的目的是尽可能多地发现程序中的错误D.软件测试的目的是使程序符合结构化原则24.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是( )。（分数：2.00）A.TrueB.FalseC.1D.出错信息25.下列叙述不正确的是( )。（分数：2.00）A.一个目标程序所需的所有文件的集合称为工程B.VB 的工程文件的扩展名为.vbpC.工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等D.工程文件中除了窗体文件是可选的外，其他文件都是必须的26.在窗体上绘制一个文本框和一个计时器控件，名称分别为 Text1 和 T

11、imer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enadled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Commandl Click()Timer1._End SubPrivate Sub Timer_Timer()Text1.Text=TimeEnd Sub在横线处应填入的内容是( )。（分数：2.00）A.Enabled=TreeB.Enabled=FalseC.Visible=TreeD.Visible=False27.在窗体上画一个名称为 Commandl

12、 的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序运行时，3 次单击命令按钮 Commandl 后，窗体上显示的结果为( )。（分数：2.00）A.15 16B.156C.15 15D.5628.表达式 2+3*45-Sin(x+1)/2 中最先进行的运算是( )。（分数：2.00）A.45B.3*4C.x+1D.Sin(x+1)29.下列描述错误的是( )。（分数：2.00）A.过程级变量是指在过程或函数内部定义的变量，

13、这种变量的作用域是整个过程或函数体，只能在该过程或该函数体被引用B.某一函数若要引用在其他函数中定义的变量，只要将变量定义为 Static 型即可C.窗体级变量在该窗体中的每个过程都可引用D.若要在某一窗体内定义的窗体级变量能够在另一窗体内应用，只需用 Public 声明30.下列程序执行后，变量 x 的值为( )。Dima,b,c,d As SingleDim x As Singlea=100b=20c=1000Ifba Thend=a:a=b:b=dEnd IfIfbc ThenX=bElseif ac Thenx=cElsex=aEnd If（分数：2.00）A.100B.20C.100

14、0D.031.以下叙述中错误的是( )。（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic52 具箱中的所有控件都具有宽度(Width)和高度(Height)属性D.Visual Basic 中控件的某些属性只能在运行时设置32.以下( )事件过程可以将打开的对话框的标题改变为“新标题”。（分数：2.00）A.Private Sub Commandl_Click()Common Dialog1.DialogTitle=“新标题“Common Dialog1.ShowFontEnd

15、 SubB.Private Sub Commandl_Crick()CommonDialog1.DialogTifie=“新标题“CommonDialog1.ShowOpenEnd SubC.Private Sub Commandl_Click()Common Dialog1.DialogTitle=“新标题“Common Dialog1.ShowCloseEnd SubD.Private Sub Commandl_Click()CommonDialogl.DialogTitle=“新标题“CommonDialogl.ShowColorEnd Sub33.下面子过程语句说明合法的是( )。（分

16、数：2.00）A.Function f1(By Valn%)B.Sub f1(n%)As IntegerC.Function f1%(f1%)D.Sub f1(ByValn%()34.执行如下语句：a=InputBox(“Today“，“Tomorrow“，“Yesterday“，“Daybeforeyesterday“,5)将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（分数：2.00）A.TodayB.TomorrowC.YesterdayD.Day before yesterday35.以下说法正确的是( )。（分数：2.00）A.任何时候都可以使用“工具”菜单下的“菜单编

17、辑器”命令打开菜单编辑器B.只有当某个窗体为活动窗体时，才能打开菜单编辑器C.只有当代码窗口为活动窗口时，才能打开菜单编辑器D.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器二、填空题(总题数：14，分数：30.00)36.窗体布局窗口的主要用途是上 1。（分数：2.00）填空项 1:_37.在代码窗口对窗体的 BorderStyle、MaxButton 属性进行了设置，但运行后没有效果的原因是这些属性 1。（分数：2.00）填空项 1:_38.通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为 1。（分数：2.00）填空项 1:_39.为了选择多个控件，可以按住上

18、 1 键，然后单击每个控件。（分数：2.00）填空项 1:_40.在 Visual Basic 中，除了可以指定某个窗体作为启动对象外，还可以指定 1 为启动对象。（分数：2.00）填空项 1:_41.6、在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 对应的菜单。以下是实现上述功能的程序，请填空。PrivateSubForm_(Button As Integer,Shift As Integer,X As Single,YAs Single)If Button=2ThenPopu

19、pMenu mnuEditEnd IfEnd Sub（分数：2.00）填空项 1:_42.为了执行自动拖放，必须把 1 属性设置为 1。（分数：2.00）填空项 1:_43.设 A=2,B=-2,则表达式 A/2+1B+5OrB*(-2)=6 的值是 1。（分数：2.00）填空项 1:_44.以下程序代码实现单击命令按钮 Commandl 时生成 20 个(0，100)之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。Dimalt(1 To 20)Fori=1 To 20arr(i)= NextiSub=0For Each X In arrIf X50 ThenPrint

20、 Tab(20)；XSum=Sum+XEnd IfNext XPrint Tab(20)；“Sub=“；Sub（分数：2.00）填空项 1:_阅读程序：Option Base 1Private Sub Form_Click()Dima(3)As IntegerPrint“输入的数据是:“；Fori=1 To 3a(i)=InputBox(“输入数据”)Printa(i)；NextPrintIf a(1)a(2) Thent=a(1)a(1)=a(2)a(2)= 10 End IfIfa(2)a(3)Thenm=a(2)Else If a(1)a(3)Thenm= 11 Elsem=a(1)En

21、d IfPrint“中间数是：“；mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如下图所示。请填空。（分数：4.00）填空项 1:_填空项 1:_45.下面程序代码实现单击命令按钮 Command1 时输出如下结果：1 -1 -11 1 -11 1 1该程序不完整，请填空。Private Sub Command1_Click()DimX(3,3)For I=1 To 3ForJ=1 To 3 If_ThenX(I,J)=1End IfIf IJ ThenX(I,J)=-1End IfNext JNextIForI=1 To 3ForJ=1 T

22、o 3PrintX(I.J)；NextJPrintNeXtIEnd SUb（分数：2.00）填空项 1:_46.阅读下面的程序：PriVate Sub Form_C1ick()Dim Check As Booleau，Counter As IntegerCheck=TrueCounter=5DoDo While Counter20Counter=Counter+1If Counter=10 ThenCheck=FalSeEXit DoEnd IfLoopLoop Until Check=FalSePrint CounterEnd Sub程序运行后，单击窗体，输出结果为_。（分数：2.00）填空

23、项 1:_47.在名称为 Forml 的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程：Private SUb Form_CnCk()Open“d:/tes/smtext1.txt“For Input AS #1Do While Not EOF(1)Line Iput #1,aspect$whole$=whole$+aspect$+Chf$(13)+Chr$(10)LoopText1.Text=whole$Close #1Open“d:/test/smtext2.txt“For OutpUt As #1Pri

24、nt #1,_Close #1End Sub上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。（分数：2.00）填空项 1:_48.在窗体上画一个文本框，名称为 Text1，画一个命令按钮，名称为 Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat 中。请在空白处填上适当的内容，将程序补充完整。Private Sub Command1_Click()Open“c：/test.dat“For Output As #1For I=

25、1 to Len(Text1.text)_Next IClose #1End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-136 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列对变量的定义中，不能定义 a 为变体变量的是( )。（分数：2.00）A.Dima As Double B.Dima AS VariantC.DimaD.a=24解析：2.设 a=5，b=10，则执行c=Int(b-a)*Rnd+a)+1后，c 值的范围为( )。（分数：2.00）A.510B.69C.610 D.59解析：3.在窗

26、体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()x=Input Box(“Input“)Select Case xCase 1,3Print“分支 1“Case Is4Print“分支 2“Case ElsePrint“Else 分支“End SelectEnd Sub程序运行后，如果在输入对话框中输入 2，则窗体上显示的是( )。（分数：2.00）A.分支 1B.分支 2C.Else 分支 D.程序出错解析：4.以下 Case 语句中错误的是( )。（分数：2.00）A.Case 0 To 10B.Case Is1

27、0C.Casels10 And Is50 D.Case3，5，Is10解析：5.设 a=“Microsoft VisualBasic“，则以下使变量 b 的值为 Visual Basic 的语句是( )。（分数：2.00）A.b=Left(a,10)B.b=Mid(a,10) C.b=Right(a,10)D.b=Mid(a,11,10)解析：6.以下叙述中错误的是( )。（分数：2.00）A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.对象事件的名称可以由编程者指定 解析：7.下面( )语句执行后，窗体 Forml 从内存退出。（

28、分数：2.00）A.UnLoad Forml B.Load FormlC.Forml.HideD.Forml.Visiable=False解析：8.要使某菜单能够通过按住键盘上的 Alt 键及 K 键打开，应( )。（分数：2.00）A.在“名称”栏中“K”字符前加上“&”B.在“标题”栏中“K”字符后加上“&”C.在“标题”栏中“K”字符前加上“&” D.在“名称”栏中“K”字符后加上“&”解析：9.在窗体上画 3 个标签、3 个文本框(名称分别为 Text1、Text2 和 Text3)和 1 个命令按钮 (名称为Command1)，外观如下图所示。（分数：2.00）A.B.C.D. 解析

29、：10.子过程 Sub.End Sub 的形式参数可以是( )。（分数：2.00）A.常数、简单变量、数组变量和运算式B.简单变量、数组变量和数组元素 C.常数、简单变量、数组变量D.简单变量、数组变量和运算式解析：11.以下声明语句中错误的是( )。（分数：2.00）A.Const varl=123B.Dimvar2=ABC C.DefInta-zD.Staticvar3AsInteger解析：12.满足“当 x 的值是偶数时为真，奇数时为假”要求的表达式是( )。（分数：2.00）A.x Mod 2=0B.Not x Mod2 0C.(x/2*2-x)=0D.Not(x Mod 2) 解析

30、：13.Visual Basic 的在线帮助窗口是一个与( )非常相似的窗口，（分数：2.00）A.Word 编辑窗口B.浏览器窗口 C.FoxPro 主界面D.Windows 资源管理器窗口解析：14.下列程序的功能是：依次将列表框 List2 中的项目移入列表框 Listl 中，并将列表框 List2 中移走的项目删除，给程序的空白行选择适当的语句( )。List1.Addltem List2.List(0)List2.ReMoveltem 0Loop（分数：2.00）A.Do Until List2.ListCountB.Do While List2.ListCount C.Do Unt

31、il List1.ListCountD.Do While List1.ListCount解析：15.以下程序段中 Do.Loop 循环执行的次数为( )。n=5Dolf n Mod 2=0 Thenn=n/2Elsen=n*3+1End IfLoop untiln=1（分数：2.00）A.4B.3C.5 D.2解析：16.函数 Int(Rnd(0)*100)是下列( )范围内的整数。（分数：2.00）A.(0,10)B.(1,100)C.(0,100) D.(1,99)解析：17.表达式 Abs(-5)+Len(“ABCDE“)的值是( )。（分数：2.00）A.5ABCDEB.-5ABCDE

32、C.10 D.0解析：18.在随机文件中，下列正确的选项是( )。（分数：2.00）A.记录号是通过随机数产生的B.可以通过记录号随机读取记录 C.记录的内容是随机产生的D.记录的长度是任意的解析：19.下列关于属性设置的叙述错误的是( )。（分数：2.00）A.一个控件具有什么属性是 Visual Basic 预先设计好的，用户不能改变 B.一个控件具有什么属性是 Visual Basic 预先设计好的，用户可以改变C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值解析：20.当对 Draw Width 进行设置

33、后，将影响( )。（分数：2.00）A.Line、Circle、Pset 方法 B.Line、Shape 控件C.Line、Circle、Point 方法D.Line、Circle、Pset 方法和 Line、Shape 控件解析：21.标签控件能够显示文本信息，文本内容只能用( )属性来设置。（分数：2.00）A.AlignmentB.Caption C.VisibleD.Borderstyle解析：22.在程序代码中将图片文件 mypic.jpg 装入图片框 Pictruel 的语句是( )。（分数：2.00）A.Picture1.Picture=“mypic.jpg“B.Picture1

34、.Image=“mypic.jpg“C.Picture1.Picture=LoadPicture(“mypic.jpg“) D.LoadPicture(“mypic.jpg“)解析：23.下列对于软件测试的描述中正确的是( )。（分数：2.00）A.软件测试的目的是证明程序是否正确B.软件测试的目的是使程序运行结果正确C.软件测试的目的是尽可能多地发现程序中的错误 D.软件测试的目的是使程序符合结构化原则解析：24.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是( )。（分数：2.00）A.TrueB.False C.1D.出错信息解析：25.下列叙述不正确的是

35、( )。（分数：2.00）A.一个目标程序所需的所有文件的集合称为工程B.VB 的工程文件的扩展名为.vbpC.工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等D.工程文件中除了窗体文件是可选的外，其他文件都是必须的 解析：26.在窗体上绘制一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enadled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Commandl Click()Timer1._E

36、nd SubPrivate Sub Timer_Timer()Text1.Text=TimeEnd Sub在横线处应填入的内容是( )。（分数：2.00）A.Enabled=Tree B.Enabled=FalseC.Visible=TreeD.Visible=False解析：27.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序运行时，3 次单击命令按钮 Commandl 后，窗体

37、上显示的结果为( )。（分数：2.00）A.15 16B.156 C.15 15D.56解析：28.表达式 2+3*45-Sin(x+1)/2 中最先进行的运算是( )。（分数：2.00）A.45B.3*4C.x+1 D.Sin(x+1)解析：29.下列描述错误的是( )。（分数：2.00）A.过程级变量是指在过程或函数内部定义的变量，这种变量的作用域是整个过程或函数体，只能在该过程或该函数体被引用B.某一函数若要引用在其他函数中定义的变量，只要将变量定义为 Static 型即可 C.窗体级变量在该窗体中的每个过程都可引用D.若要在某一窗体内定义的窗体级变量能够在另一窗体内应用，只需用 Pub

38、lic 声明解析：30.下列程序执行后，变量 x 的值为( )。Dima,b,c,d As SingleDim x As Singlea=100b=20c=1000Ifba Thend=a:a=b:b=dEnd IfIfbc ThenX=bElseif ac Thenx=cElsex=aEnd If（分数：2.00）A.100 B.20C.1000D.0解析：31.以下叙述中错误的是( )。（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic52 具箱中的所有控件都具有宽度(Wid

39、th)和高度(Height)属性 D.Visual Basic 中控件的某些属性只能在运行时设置解析：32.以下( )事件过程可以将打开的对话框的标题改变为“新标题”。（分数：2.00）A.Private Sub Commandl_Click()Common Dialog1.DialogTitle=“新标题“Common Dialog1.ShowFontEnd SubB.Private Sub Commandl_Crick()CommonDialog1.DialogTifie=“新标题“CommonDialog1.ShowOpenEnd Sub C.Private Sub Commandl_C

40、lick()Common Dialog1.DialogTitle=“新标题“Common Dialog1.ShowCloseEnd SubD.Private Sub Commandl_Click()CommonDialogl.DialogTitle=“新标题“CommonDialogl.ShowColorEnd Sub解析：33.下面子过程语句说明合法的是( )。（分数：2.00）A.Function f1(By Valn%) B.Sub f1(n%)As IntegerC.Function f1%(f1%)D.Sub f1(ByValn%()解析：34.执行如下语句：a=InputBox(“

41、Today“，“Tomorrow“，“Yesterday“，“Daybeforeyesterday“,5)将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（分数：2.00）A.TodayB.TomorrowC.Yesterday D.Day before yesterday解析：35.以下说法正确的是( )。（分数：2.00）A.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器B.只有当某个窗体为活动窗体时，才能打开菜单编辑器 C.只有当代码窗口为活动窗口时，才能打开菜单编辑器D.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器解析：二、填空题(总题

42、数：14，分数：30.00)36.窗体布局窗口的主要用途是上 1。（分数：2.00）填空项 1:_ （正确答案：调整程序运行时窗体显示的位置）解析：37.在代码窗口对窗体的 BorderStyle、MaxButton 属性进行了设置，但运行后没有效果的原因是这些属性 1。（分数：2.00）填空项 1:_ （正确答案：在运行时设计是无效的）解析：38.通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为 1。（分数：2.00）填空项 1:_ （正确答案：软件生命周期）解析：39.为了选择多个控件，可以按住上 1 键，然后单击每个控件。（分数：2.00）填空项 1:_ （正确答案：Shi

43、ft 或 Ctrl）解析：40.在 Visual Basic 中，除了可以指定某个窗体作为启动对象外，还可以指定 1 为启动对象。（分数：2.00）填空项 1:_ （正确答案：Main 子过程）解析：41.6、在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 对应的菜单。以下是实现上述功能的程序，请填空。PrivateSubForm_(Button As Integer,Shift As Integer,X As Single,YAs Single)If Button=2ThenPo

44、pupMenu mnuEditEnd IfEnd Sub（分数：2.00）填空项 1:_ （正确答案：Mouse Down 或 Mouse Up）解析：42.为了执行自动拖放，必须把 1 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：DragMode）解析：43.设 A=2,B=-2,则表达式 A/2+1B+5OrB*(-2)=6 的值是 1。（分数：2.00）填空项 1:_ （正确答案：False）解析：44.以下程序代码实现单击命令按钮 Commandl 时生成 20 个(0，100)之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。Dimalt(1

45、To 20)Fori=1 To 20arr(i)= NextiSub=0For Each X In arrIf X50 ThenPrint Tab(20)；XSum=Sum+XEnd IfNext XPrint Tab(20)；“Sub=“；Sub（分数：2.00）填空项 1:_ （正确答案：Int(Rnd*99+1)）解析：阅读程序：Option Base 1Private Sub Form_Click()Dima(3)As IntegerPrint“输入的数据是:“；Fori=1 To 3a(i)=InputBox(“输入数据”)Printa(i)；NextPrintIf a(1)a(2)

46、 Thent=a(1)a(1)=a(2)a(2)= 10 End IfIfa(2)a(3)Thenm=a(2)Else If a(1)a(3)Thenm= 11 Elsem=a(1)End IfPrint“中间数是：“；mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如下图所示。请填空。（分数：4.00）填空项 1:_ （正确答案：T）解析：填空项 1:_ （正确答案：a(3)）解析：45.下面程序代码实现单击命令按钮 Command1 时输出如下结果：1 -1 -11 1 -11 1 1该程序不完整，请填空。Private Sub Comma

47、nd1_Click()DimX(3,3)For I=1 To 3ForJ=1 To 3 If_ThenX(I,J)=1End IfIf IJ ThenX(I,J)=-1End IfNext JNextIForI=1 To 3ForJ=1 To 3PrintX(I.J)；NextJPrintNeXtIEnd SUb（分数：2.00）填空项 1:_ （正确答案：IJ）解析：46.阅读下面的程序：PriVate Sub Form_C1ick()Dim Check As Booleau，Counter As IntegerCheck=TrueCounter=5DoDo While Counter20Counter=Counter+1If Counter=10 ThenCheck=FalSeEXit DoEnd IfLoopLoop Until Check=FalSePrint CounterEnd Sub程序运行后，单击窗体，输出结果为_。（分数：2.00）填空项 1:_ （正确答案：10）解析：47.在名称为 Forml 的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程：Private SUb Form_CnCk()Open“d:/tes/sm