文档介绍：全国计算机等级考试强化训练
二级VB上机模拟考试习题
- 1 -
第1章 上机考试系统的基本操作
1．双击桌面上的“考试系统”图标，出现图1-1界面。
图1-1 全国计算机等级考试上机考试系统主界面
2．单击“开始登录”ub Command1_Click()
Dim k As Integer
Open & "\" For Input As #1
For k = 1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub Command2_Click()
'考生编写
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open & "\" For Output As #1
Print #1,
Print #1,
Close #1
End Sub
全国计算机等级考试强化训练
二级VB上机模拟考试习题
- 7 -
(2) ，其窗体上有2个标题分别为“添加”和“退出”的命令按钮。1个内容为空的列表框List1。请画一个标签，其名称为Label1，标题为“请输入编号”；再画一个名称为Text1，初始值为空的文本框，如图1-4所示。程序功能如下：
1) 系统启动后，自动向列表框添加一个编号信息“a0001”。
2) 系统运行时，在文本框Text1中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List1已有项目之后，否则，将弹出“不允许重复输入，请重新输入！”对话框，单击该对话框中的“确定“按钮，可以重新输入。
3) 单击“退出“按钮，则结束程序运行。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
已有程序代码如下：
Private Sub Form_Load()
' ? "a0001"
End Sub
Private Sub Command1_Click()
' For i = 0 To ?
' = ?
If = Then
MsgBox "不允许重复输入，请重新输入!"
Exit Sub
End If
Next i
' ?
= ""
End Sub
Private Sub Command2_Click()
' ?
End Sub
，其窗体上画有2个名称分别为Text1、Text2的文本框，其中Text1可多行显示，请画面2个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮，如图1-5所示。程序功能如下：
1) 单击“产生数组”按钮，则用随机函数生成10个0~100之间（不含0和100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个数值显示在Text1文本框内；
全国计算机等级考试强化训练
二级VB上机模拟考试习题
- 213 -
2) 单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则给出该数在数组中的位置。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
图1-5 运行界面
已有程序代码如下：
Option Base 1
Dim a(10)
Private Sub Command1_Click()
= "": = ""
For i = 1 To 10
' a(i) = Fix(Rnd * ? + 1)
' For j = 1 To ?
If a(i) = a(j) Then
' i = ?
Exit For
End I