VB面向对象程序设计（山东联盟）章节测试课后答案2024春

第五章测试

1.在窗体模块的通用声明段中声明变量时，不能使用__________关键字。
A:Private B:Static C:Public D:Dim
答案:B
2.使用ReDim Preserve可以改变数组__________。
A:第一维的大小 B:最后一维的大小 C:改变维数和所有维的大小 D:所有维的大小 3.下列关于ReDim的说法中错误的是__________。
A:可以用ReDim语句直接定义数组。 B:ReDim语句只能改变元素的个数，但不能改变数组的维数。 C:在一个程序中，可以多次用Redim 语句定义同一个数组。 D:ReDim语句可以改变数组类型。 4.以Dim x(6，2 To 5)来声明一个二维数组，错误的选项是__________。
A:LBound(x,1)的返回值是0 B:LBound(x,2)的返回值是1 C:UBound(x,2)的返回值是5 D:UBound(x,1)的返回值是6 5.下面的数组声明语句中正确的是__________。
A:Dim A(3;4) As Integer B:Dim A[3,4] As Integer C:Dim a[3;4] As Integer D:Dim A(3,4) As Integer 6.语句Dim abc(-2 To 4,0 To 4,5)As Long定义的三维数组，其数组元素有__________ 。
A:112个 B:210个 C:96个 D:140个 7.下面的数组声明语句中正确的是__________。
A:Dim gg[1:5,1:5] As String B:Dim gg[1 To 5,1 To 5] As String C:Dim gg(1 To 5) As String D:Dim gg[1,5] As String 8.用Dim b(-2 To 4) As String  语句所定义的数组元素个数是__________个。
A:2 B:7 C:6 D:4 9.定义10个单精度实型一维数组正确的语句是__________。
A:Dim a(9) As Single B:Option Base 1：Dim a(9) C:Dim a(10) As Integer D:Dim #(9) 10.以下属于Visual Basic合法的数组元素是__________。
A:x[8] B:v[8] C:x8 D:s(0) 11.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：Option Base 1Dim arr() As IntegerPrivate Sub Command1_Click()  Dim i As Integer, j As Integer  Dim s As Integer  ReDim arr(4, 2)  s = 0  For i = 1 To 3    For j = 1 To 2        arr(i, j) = i + j    Next j  Next i  ReDim Preserve arr(4, 4)  For j = 3 To 4      arr(3, j) = j + 10  Next j  For i = 1 To 4      s = s + arr(i, i)  Next i  Print sEnd Sub程序运行过程中，当单击Command1时，输出结果为________。 
A:0 B:程序出错 C:19 D:18 12.运行如下程序   Private Sub Command1_Click()      Dim a(5, 5) As Integer      For i = 1 To 5         For j = 1 To 4            a(i, j) = i * 2 + j            If a(i, j) / 7 = a(i, j)  7 Then               n = n + 1            End If         Next j      Next      Print n   End Sub则n的值是________。 
A:2 B:3 C:4 D:5 13.若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：Private Sub Form_Load ( )    List1.AddItem "数学"    List1.AddItem "物理"    List1.AddItem "化学"    List1.AddItem "外语"    List1.AddItem "语文"End SubPrivate Sub Form_Click()    List1.RemoveItem 1    List1.RemoveItem 2End  Sub运行程序后，单击窗体，则列表框中显示的项目是________
A:数学外语语文 B:数学化学语文 C:化学外语语文 D:物理外语语文 14.设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。
A:List1.Index B:List1.List C:List1.Text D:List1.ListIndex 15.假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是________。
A:删除最后一项 B:删除第一项 C:出错 D:删除最后加入列表中的一项 16.设组合框 Combo1 中有5 个项目，则以下能删除最后一项的语句是________。
A:Combo1.RemoveItem Combo1.ListCount+1 B:Combo1.RemoveItem 5 C:Combo1.RemoveItem 4 D:Combo1.RemoveItem Combo1.ListCount 17.设在程序开始处有语句：Option Base 0，则下面定义的数组中正好有12个元素的是________。
A:Dim a%( 12 ) B:Dim a%( -6 To 6 ) C:Dim s%( 3 , 2 ) D:Dim s%( 3 , 4 ) 18. 在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程：Private Sub Form_Load()    List1.AddItem "100"    List1.AddItem "200"    List1.AddItem "300"    List1.AddItem "400"    Text1.Text = ""End SubPrivate Sub List1_DblClick()    a = List1.Text    Print a + Text1.TextEnd Sub程序运行后，在文本框中输入"500"，然后双击列表框中的"400"，则输出结果为________。
A:400500 B:0 C:900 D:500400 19.设窗体上有一个名称为Option1的单选按钮数组（其下标从0开始），共有4个单选按钮，并有下面事件过程：Private Sub Option1_Click(Index As Integer)    n = Index    If Index < 3 Then n = n + 1    Print Option1(n).CaptionEnd Sub程序运行时，单击其中一个单选按钮，则在窗体上显示的是________。
A:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题 B:被选中单选按钮的上一个按钮的标题，但如果选中的是最前面的一个，则显示最后面按钮的标题 C:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示最前面一个单选按钮的标题 D:被选中的单选按钮的标题 20. 在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码：Option Base 0Private Sub Command1_Click()    Dim a(5) As Integer, n As Integer    For i = 0 To 5        a(i) = i        n = n + a(i)    Next i    Label1 = nEnd Sub运行程序，单击命令按钮，在标签中显示的内容是________。
A:15 B:20 C:10 D:5 21.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：Option Base 1Private Sub Command1_Click()  Dim a(5) As String  Dim i As Integer  Dim b As Variant  For i = LBound(a) To UBound(a)      a(i) = Chr(Asc("a") + (26 - i))  Next i  For Each b In a      Print b;  NextEnd Sub程序运行时，单击Command1，则输出结果是________。
A:12345 B:zyxwv C:出错 D:abcde 22.在窗体上画一个列表框List1、一个组合框Combo1和一个文本框Text1，编写如下程序代码：Private Sub Form_Load()    List1.AddItem "111"    List1.AddItem "222"    List1.AddItem "333"    Combo1.AddItem "444"    Combo1.AddItem "555"    Combo1.AddItem "666"    Text1.Text = ""End Sub程序运行后，如果单击窗体，要求在文本框中显示"222555"，以下能实现该操作的事件过程是________。
A:Private Sub Form_Click()         Combo1.ListIndex = 2         List1.ListIndex = 2         Text1.Text = List1.Text + Combo1.Text End Sub B:Private Sub Form_Click()         Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub C:Private Sub Form_Click()         Combo1.ListIndex = 1         List1.ListIndex = 1         Text1.Text = List1.Text + Combo1.Text End Sub D:Private Sub Form_Click()         Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub 23.组合框兼有两种控件的特性，这两种控件是________。 
A:标签和文本框 B:列表框和文本框 C:复选框和单选按钮 D:标签和列表框 24.下列说法中正确的是________。
A:当按下键盘上任意键时都会触发KeyPress事件 B:用Array函数可以对任何数组初始化 C:语句Dim x[1 To 5] As Double能够定义一个一维数组x D:用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间 25.列表框控件List1中已有若干个列表项，以下能表示被选中列表项内容的表达式是________。
A:List1.ListIndex B:List1.List(ListIndex) C:List1 (List1.ListIndex) D:List1.List(List1.ListIndex)