2006年9月全国计算机等级考试二级VB真题-在线考试系统

本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！

2006年9月全国计算机等级考试二级VB真题

1、【填空题】
描述 "X 是小于 100 的非负整数 " 的 Visual Basic 表达式是。 [每空2分]

答案： ["X%>=0 and X%<100"]

2、【填空题】
在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ ()
Command1.Enabled=True
End Sub [每空2分]

答案： ["Change"]

3、【填空题】
在窗体上画一个名称为 "Command1" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
DIm a As String
a ="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a, ,2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。 [每空2分]

答案： ["6-i"]

4、【填空题】
以下程序的功能是：将一维组 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()
Dim i As Integer,j As Integer
Dim A(1 To 100) As Integer
Dim 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
For j=1 To
b(i,j)=
Print B(i,j);
Next j
Print
Next i
End Sub [每空2分]

答案： ["10","10","A((i-1) *10+j)"]

5、【填空题】
在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。
　

　
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1.ListCount-1
If Combo1.Text= Then
Label2.Capti_dj=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2.Capti_dj=" 已成功添加新输入项。 "
Combo1. Combo1.Text
End If
End Sub [每空2分]

答案： ["Combo1.List(i)","AddItem"]

6、【填空题】
在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open "d:\Myfile.txt" for As #1
Do While
Input # 1,inData
Text1.Text=Text1.Text+inData
Loop
Close #1
End Sub
程序的功能是，打开 D 盘根目录下的文本文件 myfile.txt, 读取它的全部内容并显示在文本框中。请填空 [每空2分]

答案： ["Input","Not EOF(1)"]

首页 1 2

共2页，共46个题库