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