1、二级 VISUAL+BASIC 笔试-173 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.系统符号常量的定义可以通过( )获得。（分数：2.00）A.对象浏览器B.代码窗口C.属性窗口D.工具箱2.下面的过程定义语句中合法的是( )。（分数：2.00）A.Sub Procl(ByVal n()B.Sub Procl(n)As IntegerC.Function Procl(Procl)D.Function Procl(ByVal n)3.在用通用对话框的 ShowOpen 显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确
2、的描述格式是( )。（分数：2.00）A.“text(.txt)|(*.txt)“B.“文本文件(.txt)|(.txt)“C.“text(.txt)|(*.txt)“D.“text(.txt)(*.txt)“4.在窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click()a$=“software and hardware“b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是( )。（分数：2.00）A.software an
3、d hardwareB.softwareC.hardwareD.15.对已在窗体中控件的操作不正确的是( )。（分数：2.00）A.单击控件外部空白处，可把活动控件变为不活动控件B.双击控件内部，可激活代码窗口C.双击控件内部，可把活动控件变为不活动控件D.拖动活动控件四周的控制小方块可缩放控件6.在数据库系统中，用户所见的数据模式为( )。（分数：2.00）A.概念模式B.外模式C.内模式D.物理模式7.在窗体上画一个名称为 Command1 的命令按钮，编写如下程序：Private Sub Command1_Click()Print p1(3,7)End SubPublic Functio
4、n p1(x As Single,n As Integer) As SingleIf n=0 Thenp1=1ElseIf n Mod 2=1 Thenp1=x*x+nElsep1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是( )。（分数：2.00）A.2B.1C.0D.168.以下叙述中正确的是( )。（分数：2.00）A.组合框包含了列表框的功能B.列表框包含了组合框的功能C.列表框和组合框的功能无相近之处D.列表框和组合框的功能完全相同9.窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入 12345，单击命令按钮后
5、的输出结果为( )。Private Sub Command1_Click()Dim A As Integer,B As IntegerText1.SelStart=2Text1.SelLength=2A=Val(Text1.SelText)B=Len(Text1.Text)Print A*BEnd Sub（分数：2.00）A.68B.115C.170D.117010.在 Visual Basic 工程中，可以作为“启动对象”的程序是( )。（分数：2.00）A.任何窗体或标准模块B.任何窗体或过程C.Sub Main 过程或其他任何模块D.Sub Main 过程或任何窗体11.下面表达式中，(
6、 )的运算结果与其他三个不同。（分数：2.00）A.Exp(-3.5)B.Int(-3.5)+0.5C.-Abs(-3.5)D.Sgn(-3.5)-2.512.下面程序段的运行结果是( )。Private Sub Form_Click()For I=3 to 1 step-1Print Spc(10-I)；For j=1 to 2*I-1print“*“;Next jPrintNext IEnd Sub（分数：2.00）A.*B.*C.*D.*13.以下能正确定义数据类型 TelBook 的代码是( )。（分数：2.00）A.Type TelBookName As String*10TelNu
7、m As IntegerEnd TypeB.Type TelBookName As String*10TelNum As IntegerEnd TelBookC.Type TelBookName String*10TelNum IntegerEndType TelBookD.Typedef TelBookName String*10TelNum IntegerEnd Type14.通用对话框中能打开“颜色对话框”的方法是( )。（分数：2.00）A.ShowOpenB.ShowColorC.ShowSaveD.ShowPrinter15.有如下程序：Form1.ClsFor r=35 To 8
8、5 Step 25Circle(300,240),rNext r单击窗体后，窗体上显示的是( )。（分数：2.00）A.3 个相交圆B.3 个同心不相交圆C.4 个同心不相交圆D.2 个同心不相交圆16.表达式 Str(Len“123)+Str(77.7)的值是( )。（分数：2.00）A.377.7B.377.7C.80.7D.12377.717.以下关系表达式中，其值为 False 的是( )。（分数：2.00）A.“ABC“AbC“B.“the“they“C.“VISUAL“=UCase(“Visual“)D.“Integer“Int“18.单击命令按钮时，下列程序段的执行结果为( )。
9、Public Sub Procl(n As Integer,ByVal m As Integer)n=n Mod 10m=m/10End SubPrivate Sub Command1_Click()Dim x As Integer,y As Integerx=12;y=34Call Procl(x,y)Print x;yEnd Sub（分数：2.00）A.12 34B.2 34C.2 3D.12 319.以下程序运行后，输出结果是( )。a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a3 Or b3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c
10、（分数：2.00）A.16B.3C.6D.820.设有如下程序：Private Sub Command1_Click()Dim c As Integer,d As Integerc=4d=InputBox(“请输入一个整数“)Do While d0If dc Thenc=c+1End Ifd=InputBox(“请输入一个整数“)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9 和 0，则输出结果是( )。（分数：2.00）A.12B.11C.10D.921.设 a=2，b=4，c=6，下列表达式的值为真的是( )
11、。（分数：2.00）A.ab And caB.ab Or caC.ab Xor caD.ab Eqv ca22.在 Visual Basic 中，要设置菜单项的快捷访问键，应使用( )符号。（分数：2.00）A.Mid$(a,6-i,2*i-1)Next iEnd Sub程序运行后，单击命令按钮，要求窗体上显示的输出结果如下，请填空。5456345672345678123456789（分数：2.00）填空项 1:_46.首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是： 1。（分数：2.00）填空项 1:_下面是一个体操评分程序。20 位评委，除去一个最高分和一个最低分，计算平
12、均分(设满分为 10 分)。Private Sub Command1_Click()Max=0Min=10For I=1 To 20N=Val(InputBox(“请输入分数“)If (12) Then Max=NIf NMin Then Min=NS=S+NNext IS= (13) P=S/18Print“最高分“；Max“最低分“；MinPrint“最后得分：“；PEnd Sub（分数：4.00）填空项 1:_填空项 1:_设有程序：Option Base 1Private Sub Command1_Click()Dim arr1,Max as Integerarr1=Array(12,
13、435,76,24,78,54,866,43)(14) =arr1(1)For i=1 To 8If arr1(i)Max Then (15) Next iPrint“最大值是：“;MaxEnd Sub以上程序的功能是：用 Array 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中元素的最大值。请填空。（分数：4.00）填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-173 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.系统符号常量的定义可以通过( )获得。（分数：2.00）A.对象浏览器 B.代码窗口C.属性
14、窗口D.工具箱解析：2.下面的过程定义语句中合法的是( )。（分数：2.00）A.Sub Procl(ByVal n()B.Sub Procl(n)As IntegerC.Function Procl(Procl)D.Function Procl(ByVal n) 解析：3.在用通用对话框的 ShowOpen 显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是( )。（分数：2.00）A.“text(.txt)|(*.txt)“ B.“文本文件(.txt)|(.txt)“C.“text(.txt)|(*.txt)“D.“text(.txt)(*.txt)“解析：4.在
15、窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click()a$=“software and hardware“b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是( )。（分数：2.00）A.software and hardwareB.softwareC.hardware D.1解析：5.对已在窗体中控件的操作不正确的是( )。（分数：2.00）A.单击控件外部空白处，可把活动控件变为不活动控件B.双击控件内部，可激活代码窗
16、口C.双击控件内部，可把活动控件变为不活动控件 D.拖动活动控件四周的控制小方块可缩放控件解析：6.在数据库系统中，用户所见的数据模式为( )。（分数：2.00）A.概念模式B.外模式 C.内模式D.物理模式解析：7.在窗体上画一个名称为 Command1 的命令按钮，编写如下程序：Private Sub Command1_Click()Print p1(3,7)End SubPublic Function p1(x As Single,n As Integer) As SingleIf n=0 Thenp1=1ElseIf n Mod 2=1 Thenp1=x*x+nElsep1=x*x-n
17、End IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是( )。（分数：2.00）A.2B.1C.0D.16 解析：8.以下叙述中正确的是( )。（分数：2.00）A.组合框包含了列表框的功能 B.列表框包含了组合框的功能C.列表框和组合框的功能无相近之处D.列表框和组合框的功能完全相同解析：9.窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入 12345，单击命令按钮后的输出结果为( )。Private Sub Command1_Click()Dim A As Integer,B As IntegerText1.SelStart=2Text1
18、.SelLength=2A=Val(Text1.SelText)B=Len(Text1.Text)Print A*BEnd Sub（分数：2.00）A.68B.115C.170 D.1170解析：10.在 Visual Basic 工程中，可以作为“启动对象”的程序是( )。（分数：2.00）A.任何窗体或标准模块B.任何窗体或过程C.Sub Main 过程或其他任何模块D.Sub Main 过程或任何窗体 解析：11.下面表达式中，( )的运算结果与其他三个不同。（分数：2.00）A.Exp(-3.5) B.Int(-3.5)+0.5C.-Abs(-3.5)D.Sgn(-3.5)-2.5解析
19、：12.下面程序段的运行结果是( )。Private Sub Form_Click()For I=3 to 1 step-1Print Spc(10-I)；For j=1 to 2*I-1print“*“;Next jPrintNext IEnd Sub（分数：2.00）A.* B.*C.*D.*解析：13.以下能正确定义数据类型 TelBook 的代码是( )。（分数：2.00）A.Type TelBookName As String*10TelNum As IntegerEnd Type B.Type TelBookName As String*10TelNum As IntegerEnd
20、 TelBookC.Type TelBookName String*10TelNum IntegerEndType TelBookD.Typedef TelBookName String*10TelNum IntegerEnd Type解析：14.通用对话框中能打开“颜色对话框”的方法是( )。（分数：2.00）A.ShowOpenB.ShowColor C.ShowSaveD.ShowPrinter解析：15.有如下程序：Form1.ClsFor r=35 To 85 Step 25Circle(300,240),rNext r单击窗体后，窗体上显示的是( )。（分数：2.00）A.3 个相
21、交圆B.3 个同心不相交圆 C.4 个同心不相交圆D.2 个同心不相交圆解析：16.表达式 Str(Len“123)+Str(77.7)的值是( )。（分数：2.00）A.377.7B.377.7 C.80.7D.12377.7解析：17.以下关系表达式中，其值为 False 的是( )。（分数：2.00）A.“ABC“AbC“ B.“the“they“C.“VISUAL“=UCase(“Visual“)D.“Integer“Int“解析：18.单击命令按钮时，下列程序段的执行结果为( )。Public Sub Procl(n As Integer,ByVal m As Integer)n=n
22、 Mod 10m=m/10End SubPrivate Sub Command1_Click()Dim x As Integer,y As Integerx=12;y=34Call Procl(x,y)Print x;yEnd Sub（分数：2.00）A.12 34B.2 34 C.2 3D.12 3解析：19.以下程序运行后，输出结果是( )。a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a3 Or b3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c（分数：2.00）A.16 B.3C.6D.8解析：20.设有如下程序：Private Sub
23、Command1_Click()Dim c As Integer,d As Integerc=4d=InputBox(“请输入一个整数“)Do While d0If dc Thenc=c+1End Ifd=InputBox(“请输入一个整数“)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9 和 0，则输出结果是( )。（分数：2.00）A.12B.11C.10D.9 解析：21.设 a=2，b=4，c=6，下列表达式的值为真的是( )。（分数：2.00）A.ab And caB.ab Or caC.ab Xor
24、caD.ab Eqv ca 解析：22.在 Visual Basic 中，要设置菜单项的快捷访问键，应使用( )符号。（分数：2.00）A.Mid$(a,6-i,2*i-1)Next iEnd Sub程序运行后，单击命令按钮，要求窗体上显示的输出结果如下，请填空。5456345672345678123456789（分数：2.00）填空项 1:_ （正确答案：“123456789/）解析：46.首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是： 1。（分数：2.00）填空项 1:_ （正确答案：Do-LoopWhilelUntil条件）解析：下面是一个体操评分程序。20 位评委，
25、除去一个最高分和一个最低分，计算平均分(设满分为 10 分)。Private Sub Command1_Click()Max=0Min=10For I=1 To 20N=Val(InputBox(“请输入分数“)If (12) Then Max=NIf NMin Then Min=NS=S+NNext IS= (13) P=S/18Print“最高分“；Max“最低分“；MinPrint“最后得分：“；PEnd Sub（分数：4.00）填空项 1:_ （正确答案：NMax）解析：填空项 1:_ （正确答案：S-Max-Min）解析：设有程序：Option Base 1Private Sub Command1_Click()Dim arr1,Max as Integerarr1=Array(12,435,76,24,78,54,866,43)(14) =arr1(1)For i=1 To 8If arr1(i)Max Then (15) Next iPrint“最大值是：“;MaxEnd Sub以上程序的功能是：用 Array 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中元素的最大值。请填空。（分数：4.00）填空项 1:_ （正确答案：Max）解析：填空项 1:_ （正确答案：Max=arr1(i)）解析：
