1、二级 VISUAL+BASIC 笔试-393 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列对于软件测试的描述中正确的是( )。（分数：2.00）A.软件测试的目的是证明程序是否正确B.软件测试的目的是使程序运行结果正确C.软件测试的目的是尽可能多地发现程序中的错误D.软件测试的目的是使程序符合结构化原则2.Visual Basic 的在线帮助窗口是一个与( )非常相似的窗口，（分数：2.00）A.Word 编辑窗口B.浏览器窗口C.FoxPro 主界面D.Windows 资源管理器窗口3.在窗体上画一个名称为 Commandl
2、 的命令按钮，然后编写如下程序： PrivateSubCommand1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时，3 次单击命令按钮 Commandl 后，窗体上显示的结果为( )。（分数：2.00）A.15 16B.156C.15 15D.564.以下( )事件过程可以将打开的对话框的标题改变为“新标题”。（分数：2.00）A.Private Sub Commandl_Click() Common Dialog1.DialogTitle=“新标题“ Com
3、mon Dialog1.ShowFont End SubB.Private Sub Commandl_Crick() CommonDialog1.DialogTifie=“新标题“ CommonDialog1.ShowOpen End SubC.Private Sub Commandl_Click() Common Dialog1.DialogTitle=“新标题“ Common Dialog1.ShowClose End SubD.Private Sub Commandl_Click() CommonDialogDialogTitle=“新标题“ CommonDialogShowColor
4、End Sub5.子过程 Sub.End Sub 的形式参数可以是( )。（分数：2.00）A.常数、简单变量、数组变量和运算式B.简单变量、数组变量和数组元素C.常数、简单变量、数组变量D.简单变量、数组变量和运算式6.下面( )语句执行后，窗体 Forml 从内存退出。（分数：2.00）A.UnLoad FormlB.Load FormlC.FormHideD.FormVisiable=False7.下面子过程语句说明合法的是( )。（分数：2.00）A.Function f1(By Valn%)B.Sub f1(n%)As IntegerC.Function f1%(f1%)D.Sub
5、f1(ByValn%()8.以下叙述中错误的是( )。（分数：2.00）A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.对象事件的名称可以由编程者指定9.要使某菜单能够通过按住键盘上的 Alt 键及 K 键打开，应( )。（分数：2.00）A.在“名称”栏中“K”字符前加上“&”B.在“标题”栏中“K”字符后加上“&”C.在“标题”栏中“K”字符前加上“&”D.在“名称”栏中“K”字符后加上“&”10.下列程序的功能是：依次将列表框 List2 中的项目移入列表框 Listl 中，并将列表框 List2 中移走的项目删除，给程序的空
6、白行选择适当的语句( )。 List1.Addltem List2.List(0) List2.ReMoveltem 0 Loop（分数：2.00）A.Do Until List2.ListCountB.Do While List2.ListCountC.Do Until List1.ListCountD.Do While List1.ListCount11.下列描述错误的是( )。（分数：2.00）A.过程级变量是指在过程或函数内部定义的变量，这种变量的作用域是整个过程或函数体，只能在该过程或该函数体被引用B.某一函数若要引用在其他函数中定义的变量，只要将变量定义为 Static 型即可C.
7、窗体级变量在该窗体中的每个过程都可引用D.若要在某一窗体内定义的窗体级变量能够在另一窗体内应用，只需用 Public 声明12.以下说法正确的是( )。（分数：2.00）A.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器B.只有当某个窗体为活动窗体时，才能打开菜单编辑器C.只有当代码窗口为活动窗口时，才能打开菜单编辑器D.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器13.标签控件能够显示文本信息，文本内容只能用( )属性来设置。（分数：2.00）A.AlignmentB.CaptionC.VisibleD.Borderstyle14.执行如下语句： a=I
8、nputBox(“Today“，“Tomorrow“，“Yesterday“，“Daybeforeyesterday“,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（分数：2.00）A.TodayB.TomorrowC.YesterdayD.Day before yesterday15.函数 Int(Rnd(0)*100)是下列( )范围内的整数。（分数：2.00）A.(0,10)B.(1,100)C.(0,100)D.(1,99)16.以下程序段中 Do.Loop 循环执行的次数为( )。 n=5 Do lf n Mod 2=0 Then n=n/2 Else n=n*
9、3+1 End If Loop untiln=1（分数：2.00）A.4B.3C.5D.217.下列对变量的定义中，不能定义 a 为变体变量的是( )。（分数：2.00）A.Dima As DoubleB.Dima AS VariantC.DimaD.a=2418.表达式 2+3*45-Sin(x+1)/2 中最先进行的运算是( )。（分数：2.00）A.45B.3*4C.x+1D.Sin(x+1)19.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box(“Input“) Select C
10、ase x Case 1,3 Print“分支 1“ Case Is4 Print“分支 2“ Case Else Print“Else 分支“ End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是( )。（分数：2.00）A.分支 1B.分支 2C.Else 分支D.程序出错20.以下声明语句中错误的是( )。（分数：2.00）A.Const varl=123B.Dimvar2=ABCC.DefInta-zD.Staticvar3AsInteger21.下列叙述不正确的是( )。（分数：2.00）A.一个目标程序所需的所有文件的集合称为工程B.VB
11、的工程文件的扩展名为.vbpC.工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等D.工程文件中除了窗体文件是可选的外，其他文件都是必须的22.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是( )。（分数：2.00）A.TrueB.FalseC.1D.出错信息23.设 a=5，b=10，则执行 c=Int(b-a)*Rnd+a)+1 后，c 值的范围为( )。（分数：2.00）A.510B.69C.610D.5924.当对 Draw Width 进行设置后，将影响( )。（分数：2.00）A.Line、Circle、Pset 方法B.Line、Sha
12、pe 控件C.Line、Circle、Point 方法D.Line、Circle、Pset 方法和 Line、Shape 控件25.以下叙述中错误的是( )。（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic52 具箱中的所有控件都具有宽度(Widt 和高度(Heigh 属性D.Visual Basic 中控件的某些属性只能在运行时设置26.下列关于属性设置的叙述错误的是( )。（分数：2.00）A.一个控件具有什么属性是 Visual Basic 预先设计好的，用户不能改变B.
13、一个控件具有什么属性是 Visual Basic 预先设计好的，用户可以改变C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值27.在随机文件中，下列正确的选项是( )。（分数：2.00）A.记录号是通过随机数产生的B.可以通过记录号随机读取记录C.记录的内容是随机产生的D.记录的长度是任意的28.设 a=“Microsoft VisualBasic“，则以下使变量 b 的值为 Visual Basic 的语句是( )。（分数：2.00）A.b=Left(a,10)B.b=Mid(a,10)C.b=Right(a,
14、10)D.b=Mid(a,11,10)29.在窗体上绘制一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enadled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Commandl Click() Timer1._ End Sub Private Sub Timer_Timer() Text1.Text=Time End Sub 在横线处应填入的内容是( )。（分数：2.00）A.Enabled=TreeB.
15、Enabled=FalseC.Visible=TreeD.Visible=False30.满足“当 x 的值是偶数时为真，奇数时为假”要求的表达式是( )。（分数：2.00）A.x Mod 2=0B.Not x Mod2 0C.(x/2*2-=0D.Not(x Mod 2)31.在程序代码中将图片文件 mypic.jpg 装入图片框 Pictruel 的语句是( )。（分数：2.00）A.Picture1.Picture=“mypijpg“B.Picture1.Image=“mypijpg“C.Picture1.Picture=LoadPicture(“mypijpg“)D.LoadPictu
16、re(“mypijpg“)32.以下 Case 语句中错误的是( )。（分数：2.00）A.Case 0 To 10B.Case Is10C.Casels10 And Is50D.Case3，5，Is1033.表达式 Abs(-5)+Len(“ABCDE“)的值是( )。（分数：2.00）A.5ABCDEB.-5ABCDEC.10D.034.在窗体上画 3 个标签、3 个文本框(名称分别为 Text1、Text2 和 Text3)和 1 个命令按钮 (名称为Command1)，外观如下图所示。 编写如下程序： Private Sub Form_Load() Text1.Text=“ Text2
17、.Text=“ Text3.Text=“ End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByValy As Integer) DoWhiley0 tmp=x Mody X=y y=tmp Loop f=X End Function 运行程序，在 Textl 文本框中输入 36，在 Text2 文本框中输入 24，然后单击命令按钮，则在 Text3 文本框中显示的内容是( )。 （分数：
18、2.00）A.4B.6C.8D.1235.下列程序执行后，变量 x 的值为( )。 Dima,b,c,d As Single Dim x As Single a=100 b=20 c=1000 Ifba Then d=a:a=b:b=d End If Ifbc Then X=b Elseif ac Then x=c Else x=a End If（分数：2.00）A.100B.20C.1000D.0二、B填空题/B(总题数：14，分数：30.00)36.窗体布局窗口的主要用途是上 1。（分数：2.00）填空项 1:_37.在代码窗口对窗体的 BorderStyle、MaxButton 属性进行
19、了设置，但运行后没有效果的原因是这些属性 1。（分数：2.00）填空项 1:_38.通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为 1。（分数：2.00）填空项 1:_39.为了选择多个控件，可以按住上 1 键，然后单击每个控件。（分数：2.00）填空项 1:_40.在 Visual Basic 中，除了可以指定某个窗体作为启动对象外，还可以指定 1 为启动对象。（分数：2.00）填空项 1:_41.6、在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 对应的菜单。以
20、下是实现上述功能的程序，请填空。 PrivateSubForm_(Button As Integer,Shift As Integer,X As Single,YAs Single) If Button=2Then PopupMenu mnuEdit End If End 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)
21、之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。 Dimalt(1 To 20) Fori=1 To 20 arr(i)=U /U Nexti Sub=0 For Each X In arr If X50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；“Sub=“；Sub（分数：2.00）填空项 1:_阅读程序：Option Base 1Private Sub Form_Click()Dima(3)As IntegerPrint“输入的数据是:“；Fori=1 To 3a(i)=InputBox(“
22、输入数据”)Printa(i)；NextPrintIf a(1)a(2) Thent=a(1)a(1)=a(2)a(2)=U 10 /UEnd IfIfa(2)a(3)Thenm=a(2)Else If a(1)a(3)Thenm=U 11 /UElsem=a(1)End IfPrint“中间数是：“；mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如下图所示。请填空。（分数：4.00）(1).（分数：2.00）填空项 1:_45.下面程序代码实现单击命令按钮 Command1 时输出如下结果： 1 -1 -1 1 1 -1 1 1 1 该程序
23、不完整，请填空。 Private Sub Command1_Click() DimX(3,3) For I=1 To 3 ForJ=1 To 3 If_Then X(I,J)=1 End If If IJ Then X(I,J)=-1 End If Next J NextI ForI=1 To 3 ForJ=1 To 3 PrintX(I.J)； NextJ Print NeXtI End SUb（分数：2.00）填空项 1:_46.阅读下面的程序： PriVate Sub Form_C1ick() Dim Check As Booleau，Counter As Integer Check=T
24、rue Counter=5 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=FalSe EXit Do End If Loop Loop Until Check=FalSe Print Counter End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）填空项 1:_47.在名称为 Forml 的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程： Private SUb Form_CnCk() Open“d:/t
25、es/smtext1.txt“For Input AS #1 Do While Not EOF(1) Line Iput #1,aspect$ whole$=whole$+aspect$+Chf$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open“d:/test/smtext2.txt“For OutpUt As #1 Print #1,_ Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。（分数：2.00）填空项
26、 1:_48.在窗体上画一个文本框，名称为 Text1，画一个命令按钮，名称为 Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat 中。请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open“c：/test.dat“For Output As #1 For I=1 to Len(Text1.text) _ Next I Close #1 End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-393 答案解析(总分：100.00，做题时间：9
27、0 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列对于软件测试的描述中正确的是( )。（分数：2.00）A.软件测试的目的是证明程序是否正确B.软件测试的目的是使程序运行结果正确C.软件测试的目的是尽可能多地发现程序中的错误 D.软件测试的目的是使程序符合结构化原则解析：2.Visual Basic 的在线帮助窗口是一个与( )非常相似的窗口，（分数：2.00）A.Word 编辑窗口B.浏览器窗口 C.FoxPro 主界面D.Windows 资源管理器窗口解析：3.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： PrivateSubCommand1_C
28、lick() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时，3 次单击命令按钮 Commandl 后，窗体上显示的结果为( )。（分数：2.00）A.15 16B.156 C.15 15D.56解析：4.以下( )事件过程可以将打开的对话框的标题改变为“新标题”。（分数：2.00）A.Private Sub Commandl_Click() Common Dialog1.DialogTitle=“新标题“ Common Dialog1.ShowFont End SubB.Pri
29、vate Sub Commandl_Crick() CommonDialog1.DialogTifie=“新标题“ CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() Common Dialog1.DialogTitle=“新标题“ Common Dialog1.ShowClose End SubD.Private Sub Commandl_Click() CommonDialogDialogTitle=“新标题“ CommonDialogShowColor End Sub解析：5.子过程 Sub.End Sub 的形式参
30、数可以是( )。（分数：2.00）A.常数、简单变量、数组变量和运算式B.简单变量、数组变量和数组元素 C.常数、简单变量、数组变量D.简单变量、数组变量和运算式解析：6.下面( )语句执行后，窗体 Forml 从内存退出。（分数：2.00）A.UnLoad Forml B.Load FormlC.FormHideD.FormVisiable=False解析：7.下面子过程语句说明合法的是( )。（分数：2.00）A.Function f1(By Valn%) B.Sub f1(n%)As IntegerC.Function f1%(f1%)D.Sub f1(ByValn%()解析：8.以下叙
31、述中错误的是( )。（分数：2.00）A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.对象事件的名称可以由编程者指定 解析：9.要使某菜单能够通过按住键盘上的 Alt 键及 K 键打开，应( )。（分数：2.00）A.在“名称”栏中“K”字符前加上“&”B.在“标题”栏中“K”字符后加上“&”C.在“标题”栏中“K”字符前加上“&” D.在“名称”栏中“K”字符后加上“&”解析：10.下列程序的功能是：依次将列表框 List2 中的项目移入列表框 Listl 中，并将列表框 List2 中移走的项目删除，给程序的空白行选择适当的语句
32、( )。 List1.Addltem List2.List(0) List2.ReMoveltem 0 Loop（分数：2.00）A.Do Until List2.ListCountB.Do While List2.ListCount C.Do Until List1.ListCountD.Do While List1.ListCount解析：11.下列描述错误的是( )。（分数：2.00）A.过程级变量是指在过程或函数内部定义的变量，这种变量的作用域是整个过程或函数体，只能在该过程或该函数体被引用B.某一函数若要引用在其他函数中定义的变量，只要将变量定义为 Static 型即可 C.窗体级变
33、量在该窗体中的每个过程都可引用D.若要在某一窗体内定义的窗体级变量能够在另一窗体内应用，只需用 Public 声明解析：12.以下说法正确的是( )。（分数：2.00）A.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器B.只有当某个窗体为活动窗体时，才能打开菜单编辑器 C.只有当代码窗口为活动窗口时，才能打开菜单编辑器D.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器解析：13.标签控件能够显示文本信息，文本内容只能用( )属性来设置。（分数：2.00）A.AlignmentB.Caption C.VisibleD.Borderstyle解析：14.执行如下
34、语句： a=InputBox(“Today“，“Tomorrow“，“Yesterday“，“Daybeforeyesterday“,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（分数：2.00）A.TodayB.TomorrowC.Yesterday D.Day before yesterday解析：15.函数 Int(Rnd(0)*100)是下列( )范围内的整数。（分数：2.00）A.(0,10)B.(1,100)C.(0,100) D.(1,99)解析：16.以下程序段中 Do.Loop 循环执行的次数为( )。 n=5 Do lf n Mod 2=0 Then
35、n=n/2 Else n=n*3+1 End If Loop untiln=1（分数：2.00）A.4B.3C.5 D.2解析：17.下列对变量的定义中，不能定义 a 为变体变量的是( )。（分数：2.00）A.Dima As Double B.Dima AS VariantC.DimaD.a=24解析：18.表达式 2+3*45-Sin(x+1)/2 中最先进行的运算是( )。（分数：2.00）A.45B.3*4C.x+1 D.Sin(x+1)解析：19.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=
36、Input Box(“Input“) Select Case x Case 1,3 Print“分支 1“ Case Is4 Print“分支 2“ Case Else Print“Else 分支“ End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是( )。（分数：2.00）A.分支 1B.分支 2C.Else 分支 D.程序出错解析：20.以下声明语句中错误的是( )。（分数：2.00）A.Const varl=123B.Dimvar2=ABC C.DefInta-zD.Staticvar3AsInteger解析：21.下列叙述不正确的是( )。（
37、分数：2.00）A.一个目标程序所需的所有文件的集合称为工程B.VB 的工程文件的扩展名为.vbpC.工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等D.工程文件中除了窗体文件是可选的外，其他文件都是必须的 解析：22.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是( )。（分数：2.00）A.TrueB.False C.1D.出错信息解析：23.设 a=5，b=10，则执行 c=Int(b-a)*Rnd+a)+1 后，c 值的范围为( )。（分数：2.00）A.510B.69C.610 D.59解析：24.当对 Draw Width 进行设置后，
38、将影响( )。（分数：2.00）A.Line、Circle、Pset 方法 B.Line、Shape 控件C.Line、Circle、Point 方法D.Line、Circle、Pset 方法和 Line、Shape 控件解析：25.以下叙述中错误的是( )。（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic52 具箱中的所有控件都具有宽度(Widt 和高度(Heigh 属性 D.Visual Basic 中控件的某些属性只能在运行时设置解析：26.下列关于属性设置的叙述错误的是
39、( )。（分数：2.00）A.一个控件具有什么属性是 Visual Basic 预先设计好的，用户不能改变 B.一个控件具有什么属性是 Visual Basic 预先设计好的，用户可以改变C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值解析：27.在随机文件中，下列正确的选项是( )。（分数：2.00）A.记录号是通过随机数产生的B.可以通过记录号随机读取记录 C.记录的内容是随机产生的D.记录的长度是任意的解析：28.设 a=“Microsoft VisualBasic“，则以下使变量 b 的值为 Visual
40、 Basic 的语句是( )。（分数：2.00）A.b=Left(a,10)B.b=Mid(a,10) C.b=Right(a,10)D.b=Mid(a,11,10)解析：29.在窗体上绘制一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enadled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Commandl Click() Timer1._ End Sub Private Sub Timer_Timer
41、() Text1.Text=Time End Sub 在横线处应填入的内容是( )。（分数：2.00）A.Enabled=Tree B.Enabled=FalseC.Visible=TreeD.Visible=False解析：30.满足“当 x 的值是偶数时为真，奇数时为假”要求的表达式是( )。（分数：2.00）A.x Mod 2=0B.Not x Mod2 0C.(x/2*2-=0D.Not(x Mod 2) 解析：31.在程序代码中将图片文件 mypic.jpg 装入图片框 Pictruel 的语句是( )。（分数：2.00）A.Picture1.Picture=“mypijpg“B.P
42、icture1.Image=“mypijpg“C.Picture1.Picture=LoadPicture(“mypijpg“) D.LoadPicture(“mypijpg“)解析：32.以下 Case 语句中错误的是( )。（分数：2.00）A.Case 0 To 10B.Case Is10C.Casels10 And Is50 D.Case3，5，Is10解析：33.表达式 Abs(-5)+Len(“ABCDE“)的值是( )。（分数：2.00）A.5ABCDEB.-5ABCDEC.10 D.0解析：34.在窗体上画 3 个标签、3 个文本框(名称分别为 Text1、Text2 和 Te
43、xt3)和 1 个命令按钮 (名称为Command1)，外观如下图所示。 编写如下程序： Private Sub Form_Load() Text1.Text=“ Text2.Text=“ Text3.Text=“ End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByValy As Integer) DoWhiley0 tmp=x Mody X=y y=tmp Loop f=X End
44、Function 运行程序，在 Textl 文本框中输入 36，在 Text2 文本框中输入 24，然后单击命令按钮，则在 Text3 文本框中显示的内容是( )。 （分数：2.00）A.4B.6C.8D.12 解析：35.下列程序执行后，变量 x 的值为( )。 Dima,b,c,d As Single Dim x As Single a=100 b=20 c=1000 Ifba Then d=a:a=b:b=d End If Ifbc Then X=b Elseif ac Then x=c Else x=a End If（分数：2.00）A.100 B.20C.1000D.0解析：二、B填
45、空题/B(总题数：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:_ （正
46、确答案：Shift 或 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 Butto
47、n=2Then PopupMenu mnuEdit End If End 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 的数，并求这些数
48、的和。 Dimalt(1 To 20) Fori=1 To 20 arr(i)=U /U Nexti Sub=0 For Each X In arr If X50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print 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(“输入数据”)Prin
