内容发布更新时间 : 2024/12/22 23:18:06星期一 下面是文章的全部内容请认真阅读。

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 Command1_Click() '循环1

For i＝1 To 3 For j＝1 To 4

b(j， i)＝a(i， j) Next j Next i '循环2

x＝b(1， 1) For i＝1 To 4 For j＝1 To 3

Print b(i， j)；

If x

程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是( )。 A) 窗体模块中，不能使用Dim声明a、b数组 B) \循环1\可以正常运行

第 12 页 共 96 页

C) \循环2\中循环变量i、j的终值不对，所以不能正常运行

D) 程序可以正常运行，x中保存的是数组b中所有元素中最小的数 参考答案：B

【解析】Dim用于在标准模块、窗体模块或过程中定义变量或数组。程序可以正常运行，x中保存的是数组b元素中的最大值。

11.某人编写了向随机文件中写一条记录的程序，代码如下：

Type RType

Name As String * 10 Tel As String * 20 End Type

Private Sub Command1_Click() Dim p As RType

p.Name＝InputBox(\姓名\ p.Tel＝InputBox(\电话号\

Open \ Put #1， ， p Close #1 End Sub

该程序运行时有错误，修改的方法是( )。 A)在类型定义\之前加上\B)Dim p As RType必须置于窗体模块的声明部分 C)应把Open语句中的For Random 改为 For Output D)Put语句应该写为Put #1，p.Name ， p.Tel (36)有如下程序：

Private Sub Form_Click()

Dim s As Integer， p As Integer p＝1

For i＝1 To 4 For j＝1 To i s＝s＋j Next j p＝p * s Next i Print p End Sub

程序运行后，单击窗体，则输出结果是( )。 A) 在类型定义\之前加上\B) Dim p As RType必须置于窗体模块的声明部分 C) 应把Open语句中的For Random 改为 For Output D) Put语句应该写为Put #1，p.Name ， p.Tel 参考答案：A

【解析】记录类型的定义必须放在模块的声明部分，当在标准模块中定义时，关键字Type前可以有Public(默认)或Private，而如果在窗体模块中定义，则必须在前面加上关键字Private。Open语句中使用For Random表示文件以随机方式存取。Put语句的语法为：Put #文件号，[记录号]，变量。其中\变量\是除对象变量和数组变量外的任何变量。

12.设窗体文件中有下面的事件过程：

第 13 页 共 96 页

Private Sub Command1_Click() Dim s a%＝100 Print a End Sub

其中变量a和s的数据类型分别是( )。 A) 整型，整型 B) 变体型，变体型 C) 整型，变体型 D) 变体型，整型 参考答案：C

【解析】变量s定义时没有指明数据类型，默认为Variant变体型。变量a是用整型的类型符号%声明，并同时赋值100，所以变量a的数据类型为整型。故C选项正确。 13.下面程序运行时，若输入 395 ，则输出结果是( )。

Private Sub Command1_Click() Dim x%

x＝InputBox(\请输入一个3位整数\

Print x Mod 10，x\\100，(x Mod 100)\\10 End Sub A) 3 9 5 B) 5 3 9 C) 5 9 3 D) 3 5 9 参考答案：B

【解析】本题中x定义为整型变量，通过输入对话框输入395，按\确定\按钮后，InputBox函数把返回值395赋给变量x。表达式395 Mod 10 ，结果是5,395\\100结果为3，(395 Mod 100)\\10 的结果为9。故B选项正确。 14.有如下数据定义语句：

Dim X，Y As Integer 以上语句表明( )。 A) X、Y均是整型变量

B) X是整型变量，Y是变体类型变量 C) X是变体类型变量，Y是整型变量 D) X是整型变量，Y是字符型变量 参考答案：C

【解析】用Dim可同时定义多个变量，但变量要分别声明其数据类型，如果不声明数据类型，默认是Variant变体型变量。

本题中，变量X定义时没声明数据类型，所以为Variant型变量，变量Y是整型变量。故C选项正确。 15.为了声明一个长度为128个字符的定长字符串变量StrD，以下语句中正确的是( )。 A) Dim StrD As String

B) Dim StrD As String(128) C) Dim StrD As String[128] D) Dim StrD As String*128 参考答案：D

【解析】有定长和不定长的字符串变量。默认情况下，定义的字符串变量属于不定长的，字符串长度可以改变，比如：Dim str As String。如果声明一个定长字符串变量，形如Dim str As String *字符个数。故D选项正确。

第 14 页 共 96 页

16.有如下语句序列：

Dim a， b As Integer Print a Print b

执行以上语句序列，下列叙述中错误的是( )。 A) 输出的a值是0 B) 输出的b值是0 C) a是变体类型变量 D) b是整型变量 参考答案：A

【解析】任何变量在被声明后都会有一个初始值。一般情况下，数值型变量的初始值为0；字符串变量的初始值为空字符串；变体型变量的初始值为空值，即Null值；布尔型的初始值为假，即False。 本题中变量a定义时没有声明数据类型，默认为Variant变体型变量，默认值是Null；变量b定义为整型变量，默认值为0。所以输出a为空白，b为0 。故A选项错误。

17.若变量a未事先定义而直接使用(例如：a＝0)，则变量a的类型是( )。 A) Integer B) String C) Boolean D) Variant 参考答案：D

【解析】VB不要求必须先定义再使用。如果没有提前定义变量，就直接使用，系统就会将变量的数据类型指定为默认数据类型Variant变体型。故选D。 17.设有如下一段程序：

Private Sub Command1_Click() Static a As Variant

a＝Array(\， \， \， \， \ Print a(3) End Sub

针对上述事件过程，以下叙述中正确的是( )。

A) 变量声明语句有错，应改为Static a(5)As Variant B) 变量声明语句有错，应改为Static a C) 可以正常运行，在窗体上显示three D) 可以正常运行，在窗体上显示four 参考答案：D

【解析】题目中变量a被定义为Variant类型，Variant 是一种特殊的数据类型，除了定长 String 数据及用户定义类型外，可以包含任何种类的数据。变量a被赋值为字符串数组，数组默认下标从0开始，因此元素a(3)的值为\。

18.工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public x As Integer Private y As Integer 窗体文件的程序代码是： Dim a As Integer

Private Sub Form_Load() Dim b As Integer

a＝2：b＝3：x＝10：y＝20 End Sub

第 15 页 共 96 页