第7章 数组与定义数据类型.docVIP

习题7（数组与自定义数据类型） 一、选择题 1．下面定义数组语句中错误的是： (A) Private A(-10 To 5) (B) Dim A(10,-10 To -10) As Integer (C) Dim A() As Integer (D) Dim A(N) N是变量 2．下面的哪一条语句与Visual Basic的默认设置相同： (A) Option Base 1 (B) Option Base 0 (C) ByRef (D) Option Explicit 3．下面的哪条语句可以正确地定义一个动态数组： (A) Private A(n) As Integer (B) Dim A() As Integer (C) Dim A( , ) As Integer (D) Dim A(1 To n) 4．下面的哪一项可以在窗体模块的声明段中进行定义： (A) 全局变量 (B) 全局常量 (C) 全局数组 (D) 全局自定义数据类型 5．如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(6,3 To 5)定义的数组的元素个数是： (A) 30 (B) 18 (C) 35 (D) 21 二、判断题 1．使用ReDim语句不但可以改变动态数组的下标界限，而且可以改变其维数。 2．无论是在定义时，还是在访问其元素时，数组的下标不能是变量，只能是常量表达式。 3．数组下标的下界可以是负值，但上界只能是正数。 4．自定义数据类型中的各个成员不但可以是Visual Basic的基本数据类型，还可以是自定义数据类型或数组。 5．Visual Basic允许定义过程级自定义数据类型。 6．数组可以作通用过程的参数，但必须是最后一个参数。 7．数组作通用过程的参数时，一定是按地址传递。 8．自定义数据类型既可以作参数，也可以作返回值。 三、填空题 1．运行下面程序，当单击窗体时，窗体上显示在内容是 （1） ；如果把A语句替换为 x = 64，B语句替换为 r = 8，则输出结果为 （2） 。分析一下这个程序的功能是什么。 1 Dim n As Integer, k As Integer, x As Integer, r As Integer 模块级变量 2 Dim a(8) As Integer 模块级数组 3 Private Sub conv(d As Integer, r, i) 4 i = 0 5 Do While d 0 6 i = i + 1 7 8 Loop 9 End Sub 10 11 Private Sub Form_click() 12 x = 12 A 语句 13 r = 2 B 语句 14 Print CStr(x); (; CStr(r); )=; 15 If x = 0 Then 16 Print 0 17 Else 18 Call conv(x, r, n) 19 For k = n To 1 Step -1 20 Print a(k); 21 Next k 22 Print 23 End If 24 End Sub 2．阅读下面程序，当单击窗体时，窗体上显示的内容是 （3） 。 1 Private Sub Form_Click() 2 Dim a(3, 3) As Integer : Dim i As Integer 3 4 5 For i = 1 To 3 6 For k = 1 To i 7 Call chang(a, i) 8 Next 9 Next 10 For i = 1 To 3 11 For k = i To 3 12 Print a(i, k) ,; 13 Next 14 Next 15 End Sub 16 17 Sub chang(a() As Integer, i As Integer) 18 19 For k = UBound(a, 2) - 1 To 1 Step -1 20 21 Next 22 23 End Sub 3．下面的事件过程把一维数组中元素的值向右循环移位，移位次数由文本框输入。“循环”指的