1、二级 VISUAL+BASIC-82 及答案解析(总分：89.00，做题时间：90 分钟)一、选择题(总题数：35，分数：66.00)1.现有语句：y=IIf(x0，x Mod 3，0)，设 x=10，则 y 的值是_。（分数：2.50）A.0B.1C.3D.语句有错2.表达式 Sgn(0.25)的值是_。（分数：1.00）A.-1B.0C.1D.0.53.现有如下程序： Private Sub Command1_Click() s=0 For i = 1 To 5 s = s + f(5+i) Next Print s End Sub Public Function f(x As Integ
2、er) If x = 10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是 _ 。（分数：1.00）A.38B.49C.61D.704.下列表达式中值为 False 的是_。（分数：1.00）A.“Integer“Int“B.“VisualBasic“visual“C.“XYZ“XYz“D.“123“ABC“5.默认情况下，下面声明的数组的元素个数是_。 Dim(5,-2 To 2)（分数：2.50）A.20B.24C.25D.306.假定有以下函数过程： Function Fun(S As String)As Strin
3、g Dim sl As String Fori=1 To Len(S) sl=LCase(Mid(S,i,1)+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim Str1 As String,Str2 As String Str1=InputBox(“请输入一个字符串“) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为_。（分数：2.00）
4、A.ABCDEFGB.abcdefgC.GFEDCBAD.gfedcba7.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（分数：2.00）A.ValueB.DefaultC.CalicelD.Enabled8.设有声明语句 Dim b(-1 To 10，2 To 9，20)As Integer 则数组 b 中全部元素的个数（分数：1.00）A.2310B.2016C.1500D.16589.下列控件中，没有 Caption 属性的是（分数：2.50）A.单选按钮B.复选框C.列表框D.框架10.若在窗体模块的声明部分声明
5、了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是_。（分数：2.00）A.Print arr.Code(2),arr.Caption(2)B.Print arr.Code,arr.CaptionC.Print arr(2).Code,arr(2).CaptionD.Print Code(2),Caption(2)11.在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码： Private Sub Commandl_Cl
6、ick() Dim a, i, msg msg=“Choose OK to add 100 items to your listbox.“ MsgBox msg For il To 100 a=“a：“ Next Print Next For k=2 To 4 Forj=1 To _ 3_ t=a(j,k) a(j,k)= _ 4_ a(k,j)=t Next Next For k=1 To 4 Print a( k,1);a( k,2);a(k,3);a(k,4) Next End Sub （分数：2.00）41.假设有以下程序段： For i= 1 To 3 For j=5 To 1 St
7、ep -1 Print i * j Next j Next i 则语句 Print i*j 的执行次数是 1，i 的值为 2，j 的值为 3。 （分数：2.00）42.下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“#”的 55 阶的方阵，试将程序补充完整。 Private Sub Command1_Click() Dim x(5, 5) For i = 1 To 5 For j = 1 To 5 If 1 Then x(i, j) = “*“ Else 2 End If Print 3 Next j Print Next i End Sub （分数：2.00）43.在最坏情况下，
8、堆排序需要比较的次数为 _ 1_ 。 （分数：2.00）44.建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为 1、 2、ShowColor、ShowFont 和 ShowPrinter。 （分数：1.00）45.假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的 15 个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cls Print“Mousepointer Property is now“；x Form1. 1 2_ =x x=x+1 I
9、f x=15 Then x=0 End Sub （分数：1.00）46.可使用列表框的 _ 1_ 方法向列表框中增加一个项目。 （分数：1.00）47.常用的软件结构设计工具是结构图(SC)，也称程序结构图。其中，用矩形表示 1，用带空心圆的箭头表示传递的是数据。 （分数：2.00）48.为了选择多个控件，可以按住 _ 1_ 键，然后单击每个控件。 （分数：1.00）49.有如下事件过程： Private Sub Form_Active() Dim Score(1 to 3) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 s
10、tep-1 Score (i)=2*i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 1。 （分数：2.00）50.对于给定的一组关键字(12，2，16，30，8，28，4，10，20，6，18)，按照希尔排序(增量为 5)算法进行递增排序，第一趟排序后得到的结果是 _ 1_ 。 （分数：1.00）二级 VISUAL+BASIC-82 答案解析(总分：89.00，做题时间：90 分钟)一、选择题(总题数：35，分数：66.00)1.现有语句：y=IIf(x0，x Mod 3，0)，设 x=10，则 y 的值是_。（分数：
11、2.50）A.0B.1 C.3D.语句有错解析：解析 IIF 是条件函数，它的语法格式是： IIf(条件表达式,表达式为 True 时的取值,表达式为 False 时的取值)。本题中，x=10 时，条件表达式 x0 的值为 True，执行 x Mod 3，即 10 Mod 3，结果为 1。故选 B。2.表达式 Sgn(0.25)的值是_。（分数：1.00）A.-1B.0C.1 D.0.5解析：解析 Sgn 函数是符号函数，正数返回 1，负数返回-1，0 返回 0。本题中 0.25 是正数，所以返回1，故 C 选项正确。3.现有如下程序： Private Sub Command1_Click()
12、 s=0 For i = 1 To 5 s = s + f(5+i) Next Print s End Sub Public Function f(x As Integer) If x = 10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是 _ 。（分数：1.00）A.38B.49 C.61D.70解析：解析 程序中过程 f 的功能是参数值大于等于 10 时，返回参数加 1 的值，否则返回参数加 2 的值。因此按钮事件中 s 值的计算过程如下： i=1 时，s=0+f(5+1)=8； i=2 时，s=8+f(5+2)=8
13、+9=17； i=3 时，s=17+f(5+3)=17+10=27； i=4 时，s=27+f(5+4)=27+11=38； i=5 时，s=38+f(5+5)=38+11=49； 因此最终在窗体上输出的是 49。4.下列表达式中值为 False 的是_。（分数：1.00）A.“Integer“Int“B.“VisualBasic“visual“ C.“XYZ“XYz“D.“123“ABC“解析：解析 字符串进行关系运算时，比较的依据是对应位置字符的 ASCII 码值大小，若对应位置相同，则往后依次比较，数字字符的 ASCII 码值小于大写字母的 ASCII 码值，大写字母的 ASCII 码值
14、小于小写字母的 ASCII 码值，故 B 选项的结果为 False。5.默认情况下，下面声明的数组的元素个数是_。 Dim(5,-2 To 2)（分数：2.50）A.20B.24C.25D.30 解析：解析 默认情况下，Dim a(5，-2 To 2)声明了二维数组，第一维是 6，第二维是 5，所以有 30 个元素。6.假定有以下函数过程： Function Fun(S As String)As String Dim sl As String Fori=1 To Len(S) sl=LCase(Mid(S,i,1)+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按
15、钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim Str1 As String,Str2 As String Str1=InputBox(“请输入一个字符串“) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为_。（分数：2.00）A.ABCDEFGB.abcdefgC.GFEDCBAD.gfedcba 解析：解析 程序中过程 Fun 的 For 循环的功能是从参数字符串中依次取出一个字符经 Lcase 函数转为小写字
16、母后存入另一个字符串变量的首部，即将输入的字符串转为小写并倒序排列。函数 Len 用于返回字符串的长度，过程中字符串的长度做为 For 循环的终值。Mid 是字符串中部截取函数，用来从指定位置开始截取指定个数的字符。过程中使用 Mid(S,i,1)，通过循环依次取出字符串的字符，然后使本次取出的字符连接到之前取出的字符前面，实现了字符串倒序排列。程序中输入字符串为“abcdefg”，倒序并转为小写后为“gfedcba”。7.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（分数：2.00）A.ValueB.DefaultC.
17、Calicel D.Enabled解析：解析 本题考查按钮控件的属性与事件。当一个命令按钮的 Cancel 属性被设置为 True 时，按Esc 键与单击该命令按钮的作用是相同的。在一个窗体中，只允许有一个命令按钮的 Cancel 属性被设置为 True。本题正确答案为 C。8.设有声明语句 Dim b(-1 To 10，2 To 9，20)As Integer 则数组 b 中全部元素的个数（分数：1.00）A.2310B.2016 C.1500D.1658解析：解析：在本题中，Dim b(-1 To 10，2 To 9，20)As Integer 定义了一个三 维数组，如果没有指定下界，缺省
18、值是 0，所以计算数组中的个数就容易了，表达式为：(10 -(-1)+1)(9-2+1)(20-0+1)=2016，所以选项 B)是正确答案。9.下列控件中，没有 Caption 属性的是（分数：2.50）A.单选按钮B.复选框C.列表框 D.框架解析：解析 很多控件都有 Caption 属性用来设置标题，如 Label、Frame、Option、Check、Command 等，但是列表框和组合框没有 Caption 属性。10.若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Ty
19、pe Dim arr(5)As rec 则下面的输出语句中正确的是_。（分数：2.00）A.Print arr.Code(2),arr.Caption(2)B.Print arr.Code,arr.CaptionC.Print arr(2).Code,arr(2).Caption D.Print Code(2),Caption(2)解析：解析 定义一个自定义类型的数组，数组元素表示为：数组名(下标).成员名，故选 C。11.在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码： Private Sub Commandl_Click() Dim a, i, msg msg=“
20、Choose OK to add 100 items to your listbox.“ MsgBox msg For il To 100 a=“a：“ Next Print Next For k=2 To 4 Forj=1 To _ 3_ t=a(j,k) a(j,k)= _ 4_ a(k,j)=t Next Next For k=1 To 4 Print a( k,1);a( k,2);a(k,3);a(k,4) Next End Sub （分数：2.00）解析：a a(k，j) 解析 本题的难点是数组的下标操作。程序的前半部分是产生数据，后半部分是数据交换。空打印 Print 操作是换行
21、。41.假设有以下程序段： For i= 1 To 3 For j=5 To 1 Step -1 Print i * j Next j Next i 则语句 Print i*j 的执行次数是 1，i 的值为 2，j 的值为 3。 （分数：2.00）解析：15 4 0解析 本程序是一个双重 For 循环，外层循环循环变量 i 从 1 到 3，共循环 3 次；内层循环从 5 到 1 每次递减 1，共循环 5 次，这样一共循环 15 次。循环结束时，j 的值是 0；i 的值是 4。42.下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“#”的 55 阶的方阵，试将程序补充完整。 Priva
22、te Sub Command1_Click() Dim x(5, 5) For i = 1 To 5 For j = 1 To 5 If 1 Then x(i, j) = “*“ Else 2 End If Print 3 Next j Print Next i End Sub （分数：2.00）解析：i=j x(i,j)=“#“ Print x(i,j)；43.在最坏情况下，堆排序需要比较的次数为 _ 1_ 。 （分数：2.00）解析：O(nlog 2 n) 解析 在最坏情况下，冒泡排序所需要的比较次数为 n(n-1)/2；简单插入排序所需要的比较次数为 n(n-1)/2；希尔排序所需要的比
23、较次数为 O(n1.5)；堆排序所需要的比较次数为 O(nlog 2 n)。44.建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为 1、 2、ShowColor、ShowFont 和 ShowPrinter。 （分数：1.00）解析：ShowOpen ShowSave 解析 CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行 Windows 帮助引擎控件还能显示帮助。CommonDialog 控件建立对话框的操作是通过调用自身的方法实现的： ShowOpen 显示“打开”对话框 ShowSave 显示
24、“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter 显示“打印”或“打印选项”对话框45.假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的 15 个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cls Print“Mousepointer Property is now“；x Form1. 1 2_ =x x=x+1 If x=15 Then x=0 End Sub （分数：1.00）解析：
25、MousePointer 解析 MousePointer 属性可以通过代码设置，也可以通过属性窗口设置，在程序代码中设置MousePointer 属性的一般格式为： 对象.MousePointer=设置值 由于程序中使用 Static 关键字定义变量 x，每次单击窗体时 x 的值增加 1，并且下次单击窗体时，x 能保留上次的值，这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。46.可使用列表框的 _ 1_ 方法向列表框中增加一个项目。 （分数：1.00）解析：Addltem47.常用的软件结构设计工具是结构图(SC)，也称程序结构图。其中，用矩形表示 1，用带空心圆的箭头表示传
26、递的是数据。 （分数：2.00）解析：模块解析 矩形表示的是模块，箭头表示的是模块间的调用关系。用带实心圆的箭头表示传递的是控制信息，用带空心圆的箭头表示传递的是数据。48.为了选择多个控件，可以按住 _ 1_ 键，然后单击每个控件。 （分数：1.00）解析：Ctrl 解析 按住 Ctrl 键然后连续单击控件可以将它们连续选中。49.有如下事件过程： Private Sub Form_Active() Dim Score(1 to 3) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score (i)=2*i
27、Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 1。 （分数：2.00）解析：2 4 6解析 本题考查数组的定义和 For EachNext 语句。题中定义了下标下界为 1，下标上界为 3 的 Score 数组，通过 For 循环语句赋值后，再通过 For EachNext 语句在窗体上输出数组中的每个成员。50.对于给定的一组关键字(12，2，16，30，8，28，4，10，20，6，18)，按照希尔排序(增量为 5)算法进行递增排序，第一趟排序后得到的结果是 _ 1_ 。 （分数：1.00）解析：12，2，10，20，6，28，4，16，30，8，18 解析 根据希尔排序的排序规则，希尔排序(增量为 5)第一趟排序过程如下图所示。
