If TypeOf x Is Label Then
x Caption＝\计算机等级考试\ Else
xPicture＝LoadPicture(\ End If End Sub
Private Sub Label1_Click() Call display(Label1) End Sub
Private Sub Picture1_Click() Call display(Picture1) End Sub
对以上程序，下列叙述中错误的是( )。 A) 程序运行时会出错
B) 单击图片框，在图片框中显示一幅图片 C) 过程中的x是控件变量
D) 单击标签，在标签中显示一串文字 参考答案：A
【解析】程序中定义了一个过程display(x as Control)，它的参数x是一个控件变量。当单击Picture1控件或Label1控件时，都会调用display过程，而传入的参数分别是这两个参数的控件名，在display过程中程序判断参数传入控件的类型，如果是标签控件，就在它的标题上显示\计算机等级考试\，否则就认为是图片控件，就在图片框中加载一个图片显示出来。程序运行正常，因此A选项错。 5.以下选项中，不合法的Visual Basic的变量名是( )。 A) a5b B) _xyz C) a_b D) andif
参考答案：B
6.下列合法的变量名是( )。 A) sum－a B) num_9 C) print$ D) 5avg
参考答案：B
【解析】VB中变量的命名规则为：①必须以字母或汉字开头②由字母、汉字、数字或下划线组成③不能使用VB的保留字。变量名sum－a中有－减号，不合法；print是VB保留字，不能作变量名，不合法；5avg不能以数字开头，不合法。故选B。
7.以下合法的VB变量名是( )。 A) _x B) 2y C) a#b
第 11 页 共 96 页
D) x_1_x
参考答案：D
【解析】VB中变量的命名规则为：①必须以字母或汉字开头②由字母、汉字、数字或下划线组成③不能使用VB的保留字。_x不能以_下划线开头，不合法；2y不能以数字开头，不合法；a#b中有#，不合法；D选项符合命名规则，故D选项正确。
8.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为( )。 A) Dim pi As Integer B) Dim pi(7)As Integer C) Dim pi As Single D) Dim pi As Long 参考答案：C
【解析】单精度Single或双精度Double型的变量能够保存浮点型小数，整型Integer和长整型Long的变量只能保存整型数据。本题中圆周率为3.14159，小数，可用定义一个Single或Double型变量来保存。故选C。
9.执行语句 Dim X， Y As Integer 后( )。 A) X和Y均被定义为整型变量 B) X和Y均被定义为变体类型变量
C) X被定义为整型变量，Y被定义为变体类型变量 D) X被定义为变体类型变量，Y被定义为整型变量 参考答案：D
【解析】声明变量时可以同时声明多个变量，但要分别说明每个变量的数据类型。如果定义变量时不说明数据类型，默认是Variant变体类型变量。
本题中用Dim同时定义了两个变量X、Y，变量X没说明数据类型，所以是Variant型变量，Y是整型变量。故选D选项正确。
10.设有如下程序：
Option Base 1
Dim a(3， 4)As Integer， b(4， 3)As Integer Private Sub Command