VB期中考试复习题.docx

1、VB期中考试复习题5.3习题1、单选题1、 Dim A(-3 To 0，3)声明的数组有( )个元素。A16 B9 C12 D102、 下列语句声明的数组A有 ( )个元素。Option Base 1Dim A(-2 To 2,3,4)A60 B48 C100 D1203、 下列程序执行后的结果为( ) Dim a(8) For i = 0 To 8 a(i) = 3 * i Next i Print a(a(2) A10 B18 C20 D284、 下列程序执行后的结果为( ) Dim a(10), b(10) As Integer n = 3 For i = 1 To 5 a(i) = i

2、 b(n) = 2 * n + i Next i Print a(n); b(n) A13 4 B3 11 C1 13 D2 335、 在标准模块中，定义全局数组用( )语句。 ADim BReDi m CStatic DPublic6、 使用Array函数给某X赋值时，X必须是（ ）。A已经声明的静态数组 B已经声明的动态数组 CVariant类型的变量 D整型变量7、 执行以下程序时依次输入“1、3、5”，则输出结果为（ ）。 Dim a(4), b(4) As Integer For i = 0 To 2 a(i + 1) = Val(InputBox(请输入数据：) b(3 - i)

3、= a(i + 1) Next i Print b(i) A0 B1 C3 D58、 下列程序执行后的结果为( ) Dim a a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s A4321 B12 C34 D12349、 Dim a(11 To 30)所定义的数组有( )个元素。 A11 B20 C30 D33010、 下列程序执行后的结果为( ) Dim A(5, 10) As Integer For i = 1 To 5 For j = 1 To 10

4、A(i, j) = j - i Next j Next i Print A(A(1, 2), 4) A3 B4 C5 D611、 默认数组的数据类型必须是( ) (A) Integer型 (B) Double型 (C)Variant型 (D) 任意类型12、 数组变量的数据类型必须是( ) (A) Integer型 (B) Double型 (C)Variant型 (D) 任意类型13、 在程序运行过程中，单击窗体时，以下程序的输出结果为() Private Sub Form_Click() Dim x x=Array(“Basic” ,”Pascal” ,”Foxpro” ,”Database

5、”) Print Ucase(Mid(x(2),Len(x(2)-3) End Sub (A) scal (B) SCAL (C)xpro (D) XPRO14、 在窗体上添加一文本框Text1和一命令按钮Command1，然后编写以下事件过程： Option Base 1 Private Sub Command1_Click()Dim arr1(5, 5) As IntegerDim I As Integer, j As IntegerFor I=1 To 3 For j=2 To 4 Arr1(I, j)=I + j Next jNext IText1.Text=arr1(2, 3) +

6、arr1(3, 4) + arr1(1, 1) End Sub程序运行时，单击命令按钮Command1后，在文本框中显示的值是() (A) 12 (B) 13 (C) 14 (D) 1515、 以下是窗体的Click事件过程Form_Click 的程序代码： Option Base 1 Private Sub Form_Click()Dim I As Integer, j As Integer, m As Integer, n As IntegerDim a(3,3) For I=1 To 3 For j=1 To 3 If I=1 Then a(I, j)=j+1 Else a(I, j)=

7、I*j End if Next j, iFor m=1 To 2 For n=1 To 3 Print a(m, n); Next nNext m End Sub在程序运行过程中，单击窗体时，程序的输出结果为() (A) 2 4 6 3 6 9 (B) 1 2 3 2 4 6 (C) 2 3 4 2 4 6 (D) 1 2 3 3 6 916、 以下是窗体的Click事件过程Form_Click 的程序代码： Option Base 1 Private Sub Form_Click()Dim a As VariantDim I As Integer, m As Integer, index A

8、s Integera=Array(345,-54,200,356,65,23)m=a(LBound(a)Index=Lbounde(a)For I=Lbound(a) To Ubound(a) If a(i)m Then m=a(i) Index=I End if Next IPrint m; indexEnd Sub在程序运行过程中，单击窗体时，程序的输出结果为() (A) 24 2 (B) 356 4 (C) 345 1 (D) 356 317、 以下是窗体的Click 事件过程Form_Click 的程序代码： Option Base 1 Private Sub Form_Click()

9、Dim a(10) As Integer, p(3) As IntegerDim I As Integer, k As Integer k=0 For I=1 To 10 a(i)=2*(I-1) + 1 Next I For I=1 To 3 p(i)=a(I*I) Next I For I=1 To 3 k=k +p(i)2 Next I Print k End Sub在程序运行过程中，单击窗体时，程序的输出结果为() (A) 5 (B) 7 (C) 9 (D) 1118、 在下列说法中，正确的是()(A) ReDim语句与Dim语句一样可以定义数组，因此，该语句可以放在程序的任何地方(B

10、) 嵌套数组、默认数组、数组变量都必须定义成Variant类型(C) Option Base语句用于指定数组的下标下界默认值，该默认值可以任意(D) 数组的下标不能为负数19、 在下列数组声明语句中，正确的是() (A) Dim a5,5 As Integer (B) Dim a(5,5) As Variant (C) Dim a(m, m) As Double (D) Dim a(5 5) As Single20、 设在窗体模块的通用声明段中书写了以下语句：Option Base 1Dim x(2,-1 To 2) As Integer则数组x中包含的元素个数是() (A) 6 (B) 4

11、(C) 8 (D) 1221、 当用Dim语句定义数组时，该语句()(A) 既可用在标准模块和窗体模块，也可用在过程内部(B) 只用于过程内部(C) 只用于在标准模块的声明段中定义全局数组(D) 只用于在窗体模块的声明段中定义局部数组22、 下列有关ReDim语句的叙述中，正确的是()(A) ReDim语句虽然可以定义动态数组，但它在改变数组大小的同时必将该数组中原有内容清除(B) 它和Dim语句一样，可以声明数组，可以写在程序的任何地方(C) ReDim语句是一种非执行语句(D) 它只能用于过程内部23、 与数组的下标默认下界值有关的语句是() (A) Option Explicit (B)

12、 Option Base (C) Optional (D) Base24、 设有语句Dim n %(1 To 3),则下列说法中正确的是()(A) 该语句等价于Dim n(1 To 3)(B) 该语句存在语法错误，原因是数组名不正确(C) 该数组是一个含有3个元素的一维整型(即Integer类型)数组(D) 该数组是一个含有3个元素的一维变体类型(即Variant类型)数组25、 设在窗体模块的声明段中书写了以下程序代码： Option Base 1 Dim x(2,3) As Integer 则数组x在内存中所占的空间是()个字节。 (A) 6 (B0 5 (C) 24 (D) 1226、

13、在下列有关数组的说法中，正确的是()(A) 同数组中每一维的下界值一定小于或等于上界值(B) 一个数组中的所有元素都属于同一种数据类型(C) 在Visual Basic中，最多可以定义二维数组(D) 当程序中书写了Option Base 1 语句时，则程序中所有已定义的数组的下标下界值都从1开始27、 在下列有关控件数组的说法中，正确的是()(A) 可以将窗体上的各种类型的控件创建到一个控件数组中 (B) 控件数组中所包含的控件必须是同一类型的，并且它们的Name属性值不能相同(C) 控件数组中所包含的控件必须是同一种类型的，并且它们的Name属性值相同，但每个控件的Index属性值不同(D)

14、 程序运行时，对控件数组中的不同控件进行操作而触发事件时，执行的是对应于各个控件的事件过程代码28、 在窗体中添加一命令按钮Command1，然后编写以下程序代码： Option Base 1 Private Sub Command1_Click()Dim x(5), b(2) As IntegerDim ss=0For I=Lbound(x) To Ubound(x) X(i)=INext IFor I=Lbound(b) To Ubound(b) B(i)=x(I * I) s=s + b(i) * 2Next IPrint s End Sub在程序运行时，单击命令按钮Command1时，

15、程序的输出结果是() (A) 6 (B) 8 (C) 10 (D) 029、 在以下定义数组的语句中正确的是()(A) n=10:Dim x(1 To n) As Integer(B) Dim x(10) As Integer : ReDim x(1 To 20)(C) Dim x() As Integer : ReDim x(2,5) As Single(D) Dim x() As Integer : n=20 : ReDim x(n) As Integer30、 在下列各程序段中，正确的是()(A) Dim x As Integer : x=Array(1,2,3,4,5)(B) Dim

16、x() As Integer : x=Array(1,2,3,4,5)(C) Dim x As Variant : x=Array(1,”abc”,2,3)(D) Dim x As variant=Array(1,2,3)2、填空题1、 给出下面的程序，在横线处填入适当的内容。 Dim x() As Integer Sub calcvaluesnow() _ x(20, 20) As IntegerEnd Sub2、 下列程序运行后，单击命令按钮command1,输出结果如右图所示：请在横线处填入适当的内容。Private Sub Command1_Click() Dim a(3, 3) Fo

17、r i = 1 To 3 For k = 1 To 3 a(i, k) = _ Print a(i, k); Next k Print Next iEnd Sub3、 下列程序运行后，单击命令按钮command1,输出结果如右图所示：请在横线处填入适当的内容。Private Sub Command1_Click()Dim a(5, 5) As Integer For i = 1 To 5 a(1, i) = Next i For i = 2 To 5 For j = 1 To 4 a(i, j) = Next j a(i, j) = a(i - 1, 1) Next i For i = 1 T

18、o 5 For j = 1 To 5 Print a(i, j); Next j Print Next iEnd Sub4、 下列程序完成的功能是产生100个小于500(但不含500)的随机正整数，并统计其中5的倍数所占比例，请在横线处填入适当的内容。 Dim a(100) As Integer k = 0 For i = 1 To 100 a(i) = Print a(i); If Then k = k + 1 End If Next i Print Print k / 1003、读程序写结果4、编程题1、 “排序”程序。随机产生10个0-100之间的正整数，将它们从大到小的顺序排列。参考界

19、面如图5-1所示。 图 5-12、 按图5-2(a)所示，输入整数N，显示出具有N行的“杨辉三角形”。一个具有9行的杨辉三角形运行结果如图5-2(a)所示。若要显示如图5-2(b)所示的效果，原程序要作哪些改动?提示：1) “杨辉三角形”的算法：上三角两边元素均为“1”；其余每个元素正好等于它上面一行的同一列和前一列的两个元素之和，即：a(i,j)a(i-1,j-1) + a(i-1,j)。2) 利用TAB函数定每行显示的起始位，利用两重循环显示下三角各元素。3) 为了便于控制，显示的内容在图形框(PictureBox)。 图5-2(a) 图5-2(b)3、 从40分到100分随机产生50个学

20、生的物理课程考试成绩，要求在列表框中显示所有考试成绩，并在图片框中统计各分段人数，即40-59、60-69、70-79、80-89、90-100，显示结果如图5-3所示。 图5-3 4、 按图5-4所示，当在文本框中输入任意字母或数字时，单击统计按钮，将会在图片框中打印出数字字符“0”“9”出现的次数。 图5-45、 利用随机数生成矩阵A（数据不一定相同，要求数据范围在2080之间），求A的转置矩阵。参考界面如图5-5所示（分别在图片框中显示）。图5-56、 建立含有四个命令按钮的控件数组，当单击某个命令按钮时，分别显示不同的图形或结束操作。控件名称及相关属性见下表；参考界面如图5-6(a)(

21、b)(c)所示，控件名Command1Command1Command1Command1Picture1Index0123Caption直线矩形圆结束 图5-6(a) 图5-6(b) 图5-6(c)5.4 参考答案1、单选题123456789101112131415AABBDCBDBACCDAC161718192021222324252627282930BDBBCADBCDACCDC2、填空题1、 答案：ReDim2、 参考答案：i + (k - 1) * 33、 参考答案： i , a(i - 1, j + 1) 4、 参考答案： Int(Rnd * 500)，a(i) Mod 5 = 03、

22、读程序写结果4、编程题1、 Private Sub Command1_Click() Dim x(1 To 10) As Integer Print Print 原始数据：; For i = 1 To 10 x(i) = Int(Rnd * 101) Print x(i); Next i Print: Print Print 排序数据：; For i = 1 To 9 For j = i + 1 To 10 If x(i) = 0 And c = 9 Then j = Val(c) num(j) = num(j) + 1 End If Next i For i = 0 To 9 If num(

23、i) 0 Then Picture1.Print 数字; i; 出现的次数为：; num(i) End If Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub5、 Private Sub Command1_Click() Dim a(4, 4), b(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 61 + 20) b(j, i) = a(i, j) Picture1.Print a(i, j); Next j Picture1.Print Next i

24、 For i = 1 To 4 For j = 1 To 4 Picture2.Print b(i, j); Next j Picture2.Print Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub6、 Private Sub Command1_Click(Index As Integer) Picture1.Cls Picture1.FillStyle = 6 Select Case Index Case 0 Picture1.Print 画直线 Picture1.Line (2, 2)-(7, 7) Case 1 Picture1.Print 画矩形 Picture1.Line (2, 2)-(7, 7), , BF Case 2