选择题填空题练习集(附答案)

说 明

本练习摘自全国计算机等级考试试卷，仅供复习参考。 用红色标记的选项为参考答案。用蓝色标记的选项为不在这次的考试范围

如果发现题目或答案有错，请发电子邮件知会老师，xkping@163.com，谢谢。

第一部分（0609）

一、单选题

11．以下叙述正确的是

（A）窗体的Name属性指定窗体的名称，用来标识一个窗体 （B）窗体的Name属性值是显示在窗体标题栏中的文本 （C）可以在运行期间改变窗体的Name属性的值 （D）窗体的Name属性值可以空

12．以下叙述中错误的是

（A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件 （B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 （C）Visual Basic应用程序只能以解释的方式执行 （D）窗体的Name属性值可以可空

13．设 a = 2，b = 3，c = 4，下列表达式的值是

Not a <= c Or 4 * c = b ^ 2 And b <> a + c

（A）-1 （B） 1 （C）True （D）False

14．设有发下声明的用户定义类型： Type Student

number As String name As String age As Integer End Type

则以下正确引用该类型成员的代码是

（A）Student.name = \李明\

（B）Dim s As Student : s.name = \李明\

（C）Dim s As Type Student : s.name =\李明\（D）Dim s As Type : s.name = \李明\

15．设 a = 5，b = 6，c = 7，d = 8，执行下列语句后，x的值为 x = IIf((a > b) And (c >b), 10, 20)

（A）10 （B）20 （C）True （D）False

16．执行以下程序段后，变量c$的值为 a$ = \Visual Basic Programming\ b$ = \Quick\

c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 12)

（A） Visual BASIC Programming （B） Quick Basic Programming

（C） QUICK Basic Programming （D） Quick BASIC Programming

17．在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是

（A）

Private Sub Text1_click()

Label1.Caption = Text1.Text End Sub

（B）

Private Sub Text1_Change()

Label1.Caption = Text1.Text End Sub

（C）

Private Sub Label1_Change()

Label1.Caption = Text1.Text End Sub （D）

Private Sub Label1_Click()

Label1.Caption = Text1.Text End Sub

18．在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程：

Private Sub Command1_Click() Counter = 0 For i = 1 To 4

For j = 6 To 1 Step -2

Counter = Counter + 1

Next j Next i

Label1.Caption = Str(Counter) End Sub

程序运行后，．单击命令按钮，标签中显示的内容是 （A） 11 （B） 12 （C） 16 （D） 20

19．在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim I As Integer, n As Integer For i = 0 To 50

i = i + 3 n = n + 1

If i > 10 Then Exit For Next

Text1.Text = Str(n) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

（A）5 （B）4 （C）3 （D）2

20．在窗体上画一个命令按钮和两个标签，其名称分别为Commandl、Labell和Label2，然后编写如下事件过程：

Private Sub Command1_Click() a = 0

For i = 1 To 10 a = a + 1 b = 0

For j = 1 To 10 a = a + 1 b = b + 2 Next j Next i

Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub

程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是， （A）10和20 （B) 20和110 （C) 200和110

（D）110和20

22．在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click()

Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3

a(i,j) =(i - 1) * 3 + j

Print a(i,j)

Next j Print Next i