1、二级 VISUAL+BASIC-2-2 及答案解析(总分：71.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：61.00)1.在下列方法中，不用查找表中数据元素的关系进行查找的方法是 _。 A. 有序表查找 B. 二叉排序树查找 C. 平衡二叉树 D. 散列查找（分数：1.00）A.B.C.D.2.要判断在文本框 Text1 的 KeyDown 事件过程中是否按下了回车键，需要判断某参数的值，这个参数是 A. Ascii B. KeyCode C. KeyAscii D. Shift（分数：2.00）A.B.C.D.3.在窗体上画一个命令按钮，然后编写如下事件过程。Priv
2、ate Sub Command1_Click()For i=I To 4X=4Fori=1 To 3X=3For k=1 To 2X=X+6NextNextNextPrint XEnd Sub程序运行后，单击命令按钮，输出的结果是U /U。 A. 7 B. 15 C. 157 D. 538（分数：2.00）A.B.C.D.4.在窗体上画一个名称为 Command1 的命令按钮。单击命令按钮时执行如下事件过程：Private Sub Command1_Click()a$=“software and hardware“b$=Right(a$，8)c$=Mid(a$，1，8)MsgBox a$，b$
3、，c$，1End Sub则在弹出的信息框标题栏中显示的标题是 A. software and hardware B. hardware C. software D. 1 （分数：2.00）A.B.C.D.5.一个工程包括各种类型的文件，其扩展名为.vbp 的文件是_ 。 A. 工程文件 B. 窗体的二进制数据文件 C. 类模块的文件 D. 标准模块文件（分数：1.00）A.B.C.D.6.下面 _ 不是 Visual Basic 的数据类型。 A. Single B. Object C. Currency D. Bool（分数：1.00）A.B.C.D.7.假定有下面的程序段：For i=1
4、To 3For j=1 To iFor k=j To 3Print “i=“；i，“j=“；j，“k=“；kNext kNext jNext i这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是_。 A. 3、6 和 14 B. 3、8 和 16 C. 3、4 和 12 D. 3、9 和 18（分数：2.00）A.B.C.D.8.以下变量名中， _是不符合 Visual Basic 的命名规范的。 A. Abc901 B. mnu Open 234 C. price D. K（分数：1.00）A.B.C.D.9.从键盘上输入一个实数 nu，利用字符串函数对该数进行处理，如果输
5、出的内容不是字符 End，则程序输出的内容是U /U。nu=InputBox(“nu=“)n$=Str$(nu)p=InStr(n$，“.“)if p0 ThenPrint Mid$(n$,P)ElsePrint“END“End If A.用字符方式输出数据 nu B.输出数据的整数部分 C.输出数据的小数部分 D.只去掉数据中的小数点，保留所有数字输出（分数：2.00）A.B.C.D.10.语句 Print 45/6*7/8 Mod 9 的值是_。 A. 4 B. 5 C. 6 D. 7（分数：1.00）A.B.C.D.11.栈底至栈顶依次存放元素 A、B、C、D，在第五个元素 E 入栈前，
6、栈中元素可以出栈，则出栈序列可能是_。 A. ABCED B. DBCEA C. CDABE D. DCBEA （分数：1.00）A.B.C.D.12.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(1，2，3，4)j=1For i=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序运行后，单击命令按钮，其输出结果是_。 A.4321 B.1234 C.34 D.12（分数：1.00）A.B.C.D.13.双击窗体
7、中的对象后，Visual Basic 将显示的窗口是U /U。 A.项目(工程)窗口 B.工具箱 C.代码窗口 D.属性窗口（分数：2.00）A.B.C.D.14.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做U /U。 A. 软件矛盾 B. 软件危机 C. 软件藕合 D. 软件产生（分数：2.00）A.B.C.D.15.可以实现从键盘输入一个作为双精度变量 a 的值的语句是U /U。 A.a=InputBox() B.a=InputBox(“请输入一个值“) C.a=Val(InputBox( “请输入一个值“) D.a=Val(InputBox()（分数：2.00）A.B
8、.C.D.16.语句 Print 5/4*6/5 Mod 2 的输出结果是 A. 0 B. 1 C. 2 D. 3 （分数：1.00）A.B.C.D.17.若在 Shape 控件内以 FillStyle 属性所指定的图案填充区域，而填充图案的线条的颜色由 FillColor属性指定，非线条的区域由 BackStyle 属性填充，则应_。 A. 将 Shape 控件的 FillStyle 属性设置为 27 间的某个值，BackStyle 属性设置为 1 B. 将 Shape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性设置为 1 C. 将 Shape 控件的 Fi
9、llStyle 属性设置为 27 间的某个值，BackStyle 属性设置为 0 D. 将 Shape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性设置为 0（分数：2.00）A.B.C.D.18.下列叙述中正确的是U /U。 A. 循环队列是队列的一种链式存储结构 B. 循环队列是队列的一种顺序存储结构 C. 循环队列是非线性结构 D. 循环队列是一种逻辑结构（分数：2.00）A.B.C.D.19.下列关于 Sub 过程的叙述，正确的是U /U。 A.一个 Sub 过程必须有一个 Exit Sub 语句 B.一个 Sub 过程必须有一个 End Sub 语句
10、C.在 Sub 过程中可以定义一个 Function 过程 D.可以用 Goto 语句退出 Sub 过程（分数：2.00）A.B.C.D.20.对于 InputBox 函数，下列说法中不正确的是 A. 每执行一次 InputBox 函数，只能输入一个值 B. InputBox 函数输入的是数值型 C. InputBox 函数的 Prompt 参数不能缺省 D. 函数值必须赋予一个变量（分数：2.00）A.B.C.D.21.货币型数据需U /U字节内存容量。 A.2 B.4 C.6 D.8（分数：2.00）A.B.C.D.22.设树 T 的度为 4，其中度为 1、2、3、4 的结点个数分别为 4
11、、21、1，则 T 中的叶子结点数为U /U。 A. 8 B. 7 C. 6 D. 5（分数：2.00）A.B.C.D.23.下列程序执行后，n 的值为_。（分数：2.00）A.B.C.D.24.以下选项中，与软件产品运行有关的质量特征是 _。 A. 可测试性 B. 适应性 C. 可重用性 D. 健壮性（分数：1.00）A.B.C.D.25.设 a=5，b=10，则执行c=Int(b-a)*Rnd+a)+1后，c 值的范围为_。 A. 510 B. 69 C. 610 D. 59（分数：2.00）A.B.C.D.26.假定在图片框控件 Picture1 中装入了一个图形，为了在程序运行时清除该
12、图形，则应使用下列哪种方法U /U。 A. 选择图片框控件，然后按Del键 B. 执行语句 Picture1.Picture=LoadPicture(“) C. 执行语句 Picture1.Picture=“ D. 选择图片框控件，在属性窗口中选择 Picture 属性，然后按删除该属性的值（分数：2.00）A.B.C.D.27.下列程序运行时输出的结果是U /U。Private Sub Form_Click( )Dim aa=Array(“天天向上”，“清华大学”，“夭长地久”，“程序设计”)For i=LBound(a,1) to UBound(a,1)If Left(a(i),1)=“天
13、“Then Print a(i):NextEnd Sub A. 天天向上 B. 天天向上天长地久 C. 出错信息 D. 天天向上清华大学天长地久程序设计（分数：2.00）A.B.C.D.28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1 End IfEnd FunctionPrivate Sub Commandl Click()Dim i As IntegerS = 0For i=1 To 5s = s + f(i)
14、NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是 A. 11 B. 10 C. 9 D. 8（分数：2.00）A.B.C.D.29.表示滚动条控件取值范围最大值的属性是U /U。 A.Max B.LargeChange C.Value D.Min（分数：2.00）A.B.C.D.30.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num Ag Integernum=1Do Until num6Print num:num=num+2.4LoopEnd Sub程序运行后，单击命
15、令按钮，则窗体上显示的内容是_。 A. 13.45.8 B. 135 C. 1 4 7 D. 无数据输出（分数：2.00）A.B.C.D.31.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下：Private Sub Command1_Click()x=“VisualBasicProgramming“a=Right(x,11)b=Mid(x,7,5)C=Msgbox(a,b)End Sub运行程序后单击命令按钮，以下叙述中错误的是U /U A.信息框的标题是 Basic B.信息框中的提示信息是 Programming C.C 的值是函数的返回值 D.MsgBox 的使用格式有
16、错（分数：2.00）A.B.C.D.32.在软件测试设计中，软件测试的主要目的是 U /U A. 实验性运行软件 B. 证明软件正确 C. 找出软件中全部错误 D. 发现软件错误而执行程序（分数：2.00）A.B.C.D.33.执行下列程序后，鼠标单击窗体，输出结果为Private Sub Form_Click() Print “Click“；End SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print “Donw“End SubPrivate Sub Fo
17、rm_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single) Print “Up“End Sub A. DownUpClick B. ClickDownUp C. DownClickUp D. UpDownCliek（分数：2.00）A.B.C.D.34.在窗体上画 1 个命令按钮(名称为 Commandl)和 1 个文本框(名称为 Text1)，然后编写如下事件过程：Private Sub Commandl_Click()x=Val(Text1.Text)SelectCaseXCase 1，3y=X*XCaseIS
18、=10，IS=-10y=XCase-10 To 10y=-XEnd SelectEnd Sub程序运行后，在文本框中输入 3，然后单击命令按钮，则以下叙述中正确的是U /U。 A.执行 y=x*x B.执行 y=-x C.先执行 y=x*x，再执行 y=-x D.程序出错（分数：2.00）A.B.C.D.35.窗体上有一个名称为 Shape1 的形状控件和由 3 个命令按钮组成的名称为 cmdDraw 的控件数组。窗体外观如图所示(从上到下的 3 个命令按钮的下标值分别为 0、1、2)。有事件过程如下：（分数：2.00）A.B.C.D.二、B填空题/B(总题数：1，分数：10.00)新建一个工
19、程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮，Form1 窗体消失，显示 Form2 窗体，程序如下：Private Sub Command1_Click()U U 12 /U /UForm2.U U 13 /U /UEnd Sub试补充完整。（分数：10.00）填空项 1:_填空项 1:_(3).在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() aS=“National Computer Rank Examination“ n=Len(a$) s=0 For i=1 To
20、 n b$=Mid(as,i,1) If b$=“n“Then s=s+1 End If Next i Print S End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.50）填空项 1:_(4).在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As Integer, x As Integer Dim flag As Boolean flag=False n=Val(InputBox(“请输入任意 1 个正整数“) Do While Not flag a=2 flag=U U /
21、U /U Do While flag And a=Int(Sqr(n) If n/a=n/a Then flag=False Else U U /U /U End If Loop If Not flag Then n=n+1 Loop PrintU U /U /U End Sub（分数：2.50）填空项 1:_二级 VISUAL+BASIC-2-2 答案解析(总分：71.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：61.00)1.在下列方法中，不用查找表中数据元素的关系进行查找的方法是 _。 A. 有序表查找 B. 二叉排序树查找 C. 平衡二叉树 D. 散列查找（分数：
22、1.00）A.B.C.D. 解析：解析 线性表查找和树形查找都是利用了数据元素之间的关系进行查找，只有散列查找是利用关键字值与存储位置来进行查找。2.要判断在文本框 Text1 的 KeyDown 事件过程中是否按下了回车键，需要判断某参数的值，这个参数是 A. Ascii B. KeyCode C. KeyAscii D. Shift（分数：2.00）A.B. C.D.解析：解析 文本框 Text1 的 KeyDown 事件的事件过程形式为： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub 其中参
23、数 KeyCode 表示按键的扫描码，根据这个扫描码可以判断是否按下了回车键，所以正确答案为 B。3.在窗体上画一个命令按钮，然后编写如下事件过程。Private Sub Command1_Click()For i=I To 4X=4Fori=1 To 3X=3For k=1 To 2X=X+6NextNextNextPrint XEnd Sub程序运行后，单击命令按钮，输出的结果是U /U。 A. 7 B. 15 C. 157 D. 538（分数：2.00）A.B. C.D.解析：解析 本题的难点在于循环体外的变量初值问题。虽然该段程序中有三重循环，但仔细观察发现，X=3 将前面的内容替代了
24、，只剩下最后的结果，即 3+6+6=15。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则在弹出的信息框标题栏中显示的标题是 A. software and hardware B. hardware C. software D. 1 （分数：2.00）A.B. C.D.解析：5.一个工程包括各种类型的文件，其扩展名为.vbp 的文件是_ 。 A
25、. 工程文件 B. 窗体的二进制数据文件 C. 类模块的文件 D. 标准模块文件（分数：1.00）A. B.C.D.解析：解析 工程文件的扩展名为.vbp，窗体的二进制数据文件的扩展名为.frx，类模块的文件的扩展名为.cls，标准模块文件的扩展名为.bas。6.下面 _ 不是 Visual Basic 的数据类型。 A. Single B. Object C. Currency D. Bool（分数：1.00）A.B.C.D. 解析：解析 在 Visual Basic 中的布尔型数值的名称为 Boolean。7.假定有下面的程序段：For i=1 To 3For j=1 To iFor k=
26、j To 3Print “i=“；i，“j=“；j，“k=“；kNext kNext jNext i这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是_。 A. 3、6 和 14 B. 3、8 和 16 C. 3、4 和 12 D. 3、9 和 18（分数：2.00）A. B.C.D.解析：解析 在多重循环中，外层循环变化一次，内层循环从头到尾执行一遍。该题是一个三重循环，而且中层循环变量的终值和内层循环变量的初值是随上一层循环的循环变量的变化而变化的，因此需要逐层加以计算后累加出各层的循环次数。模拟计算机的计算过程，计算各层的循环次数为：外层循环：i=1 To 3，循环次数
27、为 3；中层循环：由于 i 是中层循环的终值，当 i=1、2、3 时，其循环次数分别为1 次、2 次、3 次，中层循环的循环总次数为 6：内层循环：由于 j 是内层循环的初值，k=1、1、2、1、2、3 时，其循环次数分别为 3 次、3 次、2 次、3 次、2 次、1 次，内层循环的循环总次数为 14。8.以下变量名中， _是不符合 Visual Basic 的命名规范的。 A. Abc901 B. mnu Open 234 C. price D. K（分数：1.00）A.B. C.D.解析：解析 VB 变量名的第一个字符必须是英文字母。9.从键盘上输入一个实数 nu，利用字符串函数对该数进行
28、处理，如果输出的内容不是字符 End，则程序输出的内容是U /U。nu=InputBox(“nu=“)n$=Str$(nu)p=InStr(n$，“.“)if p0 ThenPrint Mid$(n$,P)ElsePrint“END“End If A.用字符方式输出数据 nu B.输出数据的整数部分 C.输出数据的小数部分 D.只去掉数据中的小数点，保留所有数字输出（分数：2.00）A.B.C. D.解析：10.语句 Print 45/6*7/8 Mod 9 的值是_。 A. 4 B. 5 C. 6 D. 7（分数：1.00）A.B. C.D.解析：11.栈底至栈顶依次存放元素 A、B、C、D
29、，在第五个元素 E 入栈前，栈中元素可以出栈，则出栈序列可能是_。 A. ABCED B. DBCEA C. CDABE D. DCBEA （分数：1.00）A.B.C.D. 解析：解析 栈操作原则上“后进先出”，栈底至栈顶依次存放元素 A、B、C、D，则表明这 4 个元素中D 是最后进栈，B、C 处于中间，A 最早进栈。所以出栈时一定是先出 D，再出 C，最后出 A。12.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(1，2，3，4)j=1For i=4 To
30、1 Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序运行后，单击命令按钮，其输出结果是_。 A.4321 B.1234 C.34 D.12（分数：1.00）A.B. C.D.解析：解析 Array 函数用米为数组元素赋值，即把一个数据集读入某个数组。其格式为：数组变量名=Array(数组元素值)。Dim a 语句没有变量类型名，则 a 默认为 Variant 类型，这里它作为数组变量使用。现在已知数组 a 中元素的值依次为 1、2、3、4，则 For 循环中各变量值变化如下： i=4 时，s=s+a(4)*j=0+4*1=4，j=1*10=lO i=3
31、时，s=s+a(3)*j=4+3*10=4+30=34，j=10*10=100 i=2 时，s=s+a(2)*j=34+2*100=34+200=234，j=100*10=1000 i=1 时，s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。s 的值为 1234。13.双击窗体中的对象后，Visual Basic 将显示的窗口是U /U。 A.项目(工程)窗口 B.工具箱 C.代码窗口 D.属性窗口（分数：2.00）A.B.C. D.解析：14.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做U /U。 A. 软件矛盾 B. 软件危机 C. 软
32、件藕合 D. 软件产生（分数：2.00）A.B. C.D.解析：解析 随着计算机软件规模的扩大，软件本身的复杂性不断增加，研制周期显著变长，正确性难以保证，软件开发费用上涨，生产效率急剧下降，从而出现了入们难以控制软件发展的局面，即所谓的“软件危机”。15.可以实现从键盘输入一个作为双精度变量 a 的值的语句是U /U。 A.a=InputBox() B.a=InputBox(“请输入一个值“) C.a=Val(InputBox( “请输入一个值“) D.a=Val(InputBox()（分数：2.00）A.B.C. D.解析：解析 InputBox 函数用来显示一个输入框，并提示用户在文本框
33、中输入文本、数字或选中某个单元格区域，当按下确定按钮后返回包含文本框内容的字符串。语法为：InputBox(Prompt，Title，Default，Xpos，Ypos，Helpfile，Context)，因此选项 A、D 错误。Val 函数将该字符串转换为字符，因此，选项 C 正确。16.语句 Print 5/4*6/5 Mod 2 的输出结果是 A. 0 B. 1 C. 2 D. 3 （分数：1.00）A.B. C.D.解析：解析：先计算 5/4，得 1.25；再计算 1.25*6，得 7.5；接着计算 7.5/5，得 1；最后是 1 Mod 2，结果得 1。17.若在 Shape 控件内
34、以 FillStyle 属性所指定的图案填充区域，而填充图案的线条的颜色由 FillColor属性指定，非线条的区域由 BackStyle 属性填充，则应_。 A. 将 Shape 控件的 FillStyle 属性设置为 27 间的某个值，BackStyle 属性设置为 1 B. 将 Shape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性设置为 1 C. 将 Shape 控件的 FillStyle 属性设置为 27 间的某个值，BackStyle 属性设置为 0 D. 将 Shape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性
35、设置为 0（分数：2.00）A. B.C.D.解析：解析 Shape 控件的相关属性 FillStyle 属性，该属性的设置值决定了形状控件内部的填充图案，其值如下： 0-Solid：(实心) 1-Transparent：(透明) 2-Horizontal Lin：(水平线) 3-Vertial Line：(垂直线) 4-Upward Diagona：(向上对角线) 5-Downward Diagonal：(向下对角线) 6-Cross：(交叉线) 7-Diagonal：(对角交叉线) FillColor 属性，用来定义形状控件的内部颜色。 如果 FillStyle 属性值设置为 1，则 Fi
36、llColor 属性将不起作用。 BackStyle 属性，设置值为 0 和 1，用来决定形状控件的背景是否被指定的颜色填充。为 0 时，形状控件的背景是透明的，为 1 时，形状控件的背景由 BackColor属性所指定的颜色来填充。 如果 FillStyle 属性设置为 0，则 BackStyle 属性将不起作用。18.下列叙述中正确的是U /U。 A. 循环队列是队列的一种链式存储结构 B. 循环队列是队列的一种顺序存储结构 C. 循环队列是非线性结构 D. 循环队列是一种逻辑结构（分数：2.00）A. B.C.D.解析：解析 循环队列是一种顺序存储的线性结构，所以，“循环队列是队列的一种
37、链式存储结构”、“循环队列是非线性结构”和“循环队列是一种逻辑结构”的说法都是错误的。19.下列关于 Sub 过程的叙述，正确的是U /U。 A.一个 Sub 过程必须有一个 Exit Sub 语句 B.一个 Sub 过程必须有一个 End Sub 语句 C.在 Sub 过程中可以定义一个 Function 过程 D.可以用 Goto 语句退出 Sub 过程（分数：2.00）A.B. C.D.解析：20.对于 InputBox 函数，下列说法中不正确的是 A. 每执行一次 InputBox 函数，只能输入一个值 B. InputBox 函数输入的是数值型 C. InputBox 函数的 Pro
38、mpt 参数不能缺省 D. 函数值必须赋予一个变量（分数：2.00）A.B. C.D.解析：解析 在默认情况下，InputBox 函数的返回值是一个字符串(不是变体型)。当需要用 InputBox函数输入数值，并且需要输入的数值参加运算时，必须在进行运算前用 Val 函数(或其他转换函数)把它转换为相应类型的数值。21.货币型数据需U /U字节内存容量。 A.2 B.4 C.6 D.8（分数：2.00）A.B.C.D. 解析：22.设树 T 的度为 4，其中度为 1、2、3、4 的结点个数分别为 4、21、1，则 T 中的叶子结点数为U /U。 A. 8 B. 7 C. 6 D. 5（分数：2
39、.00）A. B.C.D.解析：解析 将题中所述的树用图形表示即可得到叶子结点的数目，另外还可用公式n0=1n2+2n3+3n4+1 来计算，其中 n0表示叶子结点，1n 2中的 n2表示度为 2 的结点，此题中度为 1 的结点有 4 个，度为 2 的结点有 2 个，度为 3 的结点有 1 个，度为 4 的结点有 1 个，计算过程如下。n0=1n2+2n3+3n4+1n0=12+21+31+1n0=823.下列程序执行后，n 的值为_。（分数：2.00）A.B. C.D.解析：解析 该段程序将求余运算的结果作为 if 语句的条件，统计 100 以内能被 4 整除的数的个数，其结果是“100/4
40、=25”。24.以下选项中，与软件产品运行有关的质量特征是 _。 A. 可测试性 B. 适应性 C. 可重用性 D. 健壮性（分数：1.00）A.B.C.D. 解析：解析 本题的考查点是对软件质量评价的特征。可测试性、适应性是与产品修改有关的特性，可重用性是与产品转移有关的特性，只有健壮性是与产品运行有关的特性。25.设 a=5，b=10，则执行c=Int(b-a)*Rnd+a)+1后，c 值的范围为_。 A. 510 B. 69 C. 610 D. 59（分数：2.00）A.B.C. D.解析：解析 Rnd 随机函数的范围为(0，1)，Int 函数返回不大于自变量的最大整数，所以当 Rnd
41、乘上 5成为(0，5)，再加上 5 成为(5，10)，经取整后成为5，9，然后加 1 后成为6，10。26.假定在图片框控件 Picture1 中装入了一个图形，为了在程序运行时清除该图形，则应使用下列哪种方法U /U。 A. 选择图片框控件，然后按Del键 B. 执行语句 Picture1.Picture=LoadPicture(“) C. 执行语句 Picture1.Picture=“ D. 选择图片框控件，在属性窗口中选择 Picture 属性，然后按删除该属性的值（分数：2.00）A.B. C.D.解析：解析 选项 A)的方法是在设计程序时删除图片框控件的方法；选项 B)是给在运行时给
42、图片框控件加载一个空图片，替换图片框中历有的图片，即清除了图片框中的图片；选项 C)有语法错误；选项 D)的方法是在程序设计时清除图片框控件中的图形的。27.下列程序运行时输出的结果是U /U。Private Sub Form_Click( )Dim aa=Array(“天天向上”，“清华大学”，“夭长地久”，“程序设计”)For i=LBound(a,1) to UBound(a,1)If Left(a(i),1)=“天“Then Print a(i):NextEnd Sub A. 天天向上 B. 天天向上天长地久 C. 出错信息 D. 天天向上清华大学天长地久程序设计（分数：2.00）A.
43、B. C.D.解析：解析 通过 LBound 和 UBound 函数返回一个数组中指定维的上界和下界，该程序的作用是找出并返回第一个字是“天”字的成语，故选 B)。28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1 End IfEnd FunctionPrivate Sub Commandl Click()Dim i As IntegerS = 0For i=1 To 5s = s + f(i)NextPrint s
44、End Sub程序运行后，单击命令按钮，在窗体上显示的是 A. 11 B. 10 C. 9 D. 8（分数：2.00）A.B.C. D.解析：解析 本题考查 Function 函数过程的建立与调用。f 函数过程令参数 m 在是 2 的倍数的情况下返回 m 值，在 m 不是 2 的倍数的情况下，返回 1。在 For 循环中调用，此过程，执行五次循环，i 值分别为1，2、3、4、5。当 i 为 2、4 的时候，f(i)值为 2、4，其他情况下为 1，故 s 值为 1+1+1+2+4=9，正确答案为 C。29.表示滚动条控件取值范围最大值的属性是U /U。 A.Max B.LargeChange C
45、.Value D.Min（分数：2.00）A. B.C.D.解析：解析 LargeChange 设置单击滚动条框前面或后面的部位时，Value 增加或减小的增量值；Value返回或设置滚动条控件当前的值；Max 设置滚动条的最大值；Min 设置滚动条的最小值。30.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num Ag Integernum=1Do Until num6Print num:num=num+2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。 A. 13.45
46、.8 B. 135 C. 1 4 7 D. 无数据输出（分数：2.00）A.B. C.D.解析：解析 由于变量 num 被定义为整型变量，所以在“Do until-Loop”的循环中，num 的计算过程为1、3、5，当为 7 时退出循环。31.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下：Private Sub Command1_Click()x=“VisualBasicProgramming“a=Right(x,11)b=Mid(x,7,5)C=Msgbox(a,b)End Sub运行程序后单击命令按钮，以下叙述中错误的是U /U A.信息框的标题是 Basic B.信息框中的提示信息是 Programming
