5 456 34567 2345678 123456789 请填空。
9
以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，
要求把 A （ 1 ）到 A （ 10 ）依次赋给 B （ 1 ， 1 ）到 B （ 1 ， 10 ），把 A （ 11 ）到 A （ 20 ）依次赋给 B （ 2 ， 1 ）到 B （ 2 ， 10 ），……，把 A （ 91 ）到 A （ 100 ）
依次赋给 B （ 10 ， 1 ）到 B （ 10 ， 10 ）。请填空。
Option Base 1
Private Sub Form_Click() D) im i As Integer,j As Integer D) im A(1 To 100) As Integer D) im B(1 To 10,1 To 10) As Integer For i=1 To 100 A) (i)=Int(Rnd * 100) Next i
For i=1 To 【 9 】 For j=1 To 【 10 】 B) (i,j)= 【 11 】 Print B(i,j); Next j Print Next i End Sub 10
在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题
分别为 \城市名称 \和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 \
已成功添加新输入页。 \，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 \输入项已在组合框中。 \。请填空。
Private Sub Combol_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1 If Combo1 Label2
ListCount-1
Text= 【 12 】 Then
Caption=\输入项已在组合框中。 \
Exit Sub End If Next i Label2
Caption=\已成功添加新输入项。 \ 【 13 】 Combo1
Text
C) ombo1 End If End Sub 11
在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事
件过程：
Private Sub Command1_Click() D) im inData As String Text1
Text=\
OPen \） ||Myfile txt\【 14 】 As #1 D) o While 【 15 】 Input # 1,inData Text1 Loop C) lose #1 End Sub
程序的功能是，打开 D 盘根目录下的文本文件 myfile
请填空
2006年9月全国计算机等级考试二级VB语言笔试答案
一、选择题
Text=Text1 Text+inData
txt, 读取它的全部内容并显示在文本框中。
1 2
D 解析：模块设计要保证低耦合，高内聚。
A 解析：从技术观点来看，软件设计包括软件结构设计、数据设计、接口设计、过程设计。从工
程管理角度，软件设计分为两步完成：概要设计和详细设计。 3 4
C 解析：软件维护属于软件生命周期的维护阶段。
B 解析：外模式是用户的数据视图，就是用户所见到的数据模式。
5 D 6 C 7 D 8 B 9 B 10A 11
A 解析：窗体的 Caption 属性值是显示在窗体标题栏中的文本；窗体的 Name 属性是只读属性，
即只可以通过属性窗口改变属性值，在运行时能改变； Name 属性值不能为空。 12
C 解析：在 Visual Basic 环境中，程序可以用解释方式运行，也可以生成可执行文件
EXE 运
行。 13
D 解析：此题考察的是运算符的优先级别。根据表达式的执行顺序和运算符的优先级别，原式
可以写成：（ Not(a<=c) ） Or (((4 * c)=(b ^ 2)) AnD (b<>(a+c))) 我们可以在计算机上用以下代码运行验证：
Private Sub Form_Click() a=2 b=3 c=4
Print (Not a <= c Or 4 * c=b ^ 2 AnD b <> a+c) EnD Sub 14
B 解析：题目中所给出的是用户自定义类型，在这里要注意新类型的名称是 StuDent ，所以选
项 C 、 D 均不正确；我们知道对于类型成员的引用是：对象、属性（方法），所以 A 不正确。 15
D 解析： IIf(expr,truepart,falsepart) 根据表达式的值，来返回两部分中的其中一个；由于表达式
的条件部分运算结果为“ True AnD False ”，所以无法判断返回值，输出结果为 False 。我们可以在计算机上用以下代码运行验证： Private Sub Form_Click() a=5
b=6 c=7 D=8
Print x=IIf((a>b) AnD (c EnD Sub 16
D 解析： MiD(string,start\\[, length\\]) 返回 Variant (String), 其中包含字符串指定数量的字符；
Right (string, length) 返回 Variant (String) ，其中包含从字符串右边取出的指定数量的字符； UCase(String) 返回 Variant (String) ，其中包含转成大写的字符串； 我们可以在计算机上用以下代码运行验证： Private Sub Form_Click() a$=\ b$=\
Print b$ & UCase (MiD$ (a$,7,6)) & Right$(a$,12) EnD Sub 17
B 解析：此题考察的是控键的常用事件；
Change 事件在用户向文本框中输入新信息，或当程序把 Text 属性设置为新值从而改变文本框的 Text 属性时触发，用户每键入一个字符，会引发一次该事件； Click 事件是用户鼠标单击文本框时触发； 18
B 解析：此题考察的是循环的嵌套， Counter 的初始值为 0 ，
当 I=1 时，进入内层循环，内层循环语句执行完毕后， Counter 的值为 3 ；
当 I=2 时，进入内层循环时， Counter 的值仍为 3 ，内层循环语句执行完毕后， Counter 的值为 6 ；以此类推，程序全部执行完毕， Counter 的值为 12 。 19
C 解析：在此题中要注意 Exit For 语句，该语句是跳出循环体，变量 n 记录循环执行次数。
由于循环跳出的条件是 I>10 ，而 I 的步长为 3 ，所以循环只执行了 3 次。 20
D 解析：此题考察的仍然是循环的嵌套，要注意变量 a 和 b 的变化时机。
21 C 解析：列表框的 Text 属性值为最后一次选中的表项的文本；列表框的 List InDex 属性是已
选中的表项的位置。 22 23 24
D
B 解析： A （ 0 ） =2,A(1)=4,A(2)=6;B(2)=A(0)=2,B(1)=A(1)=4,B(0)=A(2)=6 。
B 解析：此题考察的是动态数组，在通用中定义的数组，我们并没有给它界定范围，也没有赋
初值，在过程中用 ReDim 语句具体定义数组，此题中要分清两个数组的界限。 25
B 解析：在 Sub 过程定义中 Exit Sub 语句是可选的，但不是必需的，是否需要要根据情况而
定；
在 Sub 过程内，不能定义 Sub 过程或 Function 过程，且 Sub 过程不能嵌套； Founction 过程只能返回一个值。 26
A 解析： Sub 过程的调用，注意变量的作用域：
Dim a(1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8
语句是在过程内部定义的，属于局部变量，只在定义它的过程中使用，所以运行结果不受以上程序段的影响。 27
C 解析： Len(string | varname) 返回 Long, 其中包含字符串内字符的数目，或是存储一变量所
需的字节数； 28 29
D 解析： KeyPress 事件是在压下键盘上的某个键时触发。
C 解析： Chr(charcoDe) 返回 String ，其中包含有与指定的字符代码相关的字符。
控件的 KeyPress 事件的 KeyAscii 参数是所按键的 ASCII 码；
控件的 KeyDown 事件的 KeyCoDe 是按键的实际的 ASCII 码，该码以“键”为主，而不是以“字符”为准。 30
B
计算机等级考试二级_VB笔试真题及答案
