对应课程:点击查看
起止时间:2020-02-24到2020-06-30
更新状态:已完结
第6讲 数组 第6讲 单元测试
1、 关于Visual Basic数组的叙述不正确的是（ ）。
A:静态数组通常用于存储个数范围可以确定的数据
B:动态数组常用于存储数据类型不断变化的数据
C:在设计数组时，其数组元素类型可以是数值类型、字符串类型或用户定义的类型
D:动态数组可以用Array(数据1,数据2,…,数据n)对其进行初始化
答案: 动态数组常用于存储数据类型不断变化的数据
2、 下列程序段中包括一个错误，出错的原因（ ）。x = 4Dim a(x)For m = 4 To 0 Step -1 a(m) = m + 1Next m
A:第四行，数组元素a(m)下标越界
B:第四行，不能用循环变量m进行运算
C:第二行，不能用变量定义数组的下标
D:以上原因都不对
答案: 第二行，不能用变量定义数组的下标
3、 下列程序的运行结果为（ ）。Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next iEnd Sub
A:123456
B:6
C:1 2 3 4 5 6
D:0
答案: 123456
4、 以下程序的运行结果为（ ）。Option Base 1Private Sub command1_click() Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i 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 kEnd Sub
A:33
B:28
C:35
D:37
答案: 33
5、 在窗体上添加一个命令按钮Command1，然后编写如下代码：Option Base 1Private Sub Command1_click() Dim arr(4) As Integer Dim arr1(4) As Integer n = 3 For i = 1 To 4 arr(i) = i arr1(n) = 2 * n + i Next i Print arr1(n); arr(n)End Sub程序的运行结果为（ ）。
A: 3 11
B: 11 3
C: 10 3
D: 3 13
答案: 10 3
6、 在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim m(10) As Integer, n(10) As Integer i = 3 For t = 1 To 5 m(t) = t n(i) = 2 * i + t Next t Print n(i); m(i)End Sub窗体运行后，单击命令按钮，显示结果为（ ）。
A: 3 11
B: 3 15
C: 11 3
D: 15 3
答案: 11 3
7、 下列程序段的运行结果为（ ）。Dim m(10)For i = 0 To 9 m(i) = 2 * iNext iPrint m(m(3))
A:12
B:6
C:0
D:4
答案: 12
8、 有数组声明语句“Dim a(-2 To 2, 5)”，则数组包含元素个数为（ ）。
A:120
B:30
C:60
D:20
答案: 30
9、 在通用声明中给出Option Base 1语句，有定义语句“Dim a(3, -2 To 1, 5)”，则数组a包括（ ）元素。
A:120
B:75
C:60
D:13
答案: 60
10、 在窗体上添加一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i – 1) * 3 + j Print a(i, j); Next j Print Next iEnd Sub程序运行后，单击命令按钮，窗体上显示的内容是（ ）。
A: 1 2 3 2 4 6 3 6 9
B: 2 3 4 3 4 5 4 5 6
C: 1 4 7 2 5 8 3 6 9
D: 1 2 3 4 5 6 7 8 9
答案: 1 2 3 4 5 6 7 8 9
11、 下列程序的运行结果为（ ）。Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i For n = 1 To 2 For m = 1 To 3 Print a(m, n); ” “; Next m Next nEnd Sub
A: 2 4 6 1 2 3
B: 1 2 3 2 4 6
C: 1 2 3 4 5 6
D: 6 5 4 3 2 1
答案: 1 2 3 2 4 6
12、 在窗体上面添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的内容是（ ）。
A: 6 6
B: 10 5
C: 7 21
D: 6 12
答案: 6 12
13、 能使数组元素个数加1，但保留数组中原有元素的语句是（ ）。
A:ReDim arr(7)
B:ReDim Preserve arr(7)
C:Public arr(1 To 7)
D:Static arr(7)
答案: ReDim Preserve arr(7)
14、 阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4)End Sub程序运行后，单击窗体，显示的结果为（ ）。
A:21
B:13
C:8
D:25
答案: 21
15、 设窗体上有一个列表框控件List1，且其中含有若干列表项，则以下能表示当前被选中的列表项内容的是（ ）。
A:List1.List
B: List1.ListIndex
C:List1.Index
D:List1.Text
答案: List1.Text
16、 执行了下面的程序后，列表框中的数据项有（ ）。Private Sub Form_Click() For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next iEnd Sub
A: 1，5，6
B: 2，4，6
C: 4，5，6
D: 1，3，5
答案: 1，3，5
17、 如果列表框List1中没有选定的项目，则执行语句“List1.RemoveItem List1. ListIndex”的结果是（ ）。
A:移去第一项
B:移去最后一项
C:移去最后加入列表中的一项
D:其他都不对
答案: 其他都不对
18、 列表框的MultiSelect属性设置为（ ）后，可用Shift键或Ctrl键配合鼠标在列表框中进行多项选择。
A:无
B:0
C:1
D:2
答案: 2
19、 使用（ ）语句将“北京奥运”添加到列表框List1的首项。
A:List1.Text= “北京奥运”
B:List1.AddItem “北京奥运”
C:List1.List(0)= “北京奥运”
D:List1.AddItem “北京奥运”,0
答案: List1.AddItem “北京奥运”,0
20、 使用（ ）方法可以删除指定的项目。
A:Cls
B:Clear
C:Remove
D:RemoveItem
答案: RemoveItem
21、 设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（ ）。
A:Combo1.RemoveItem Text
B:Combo1.RemoveItem 2
C:Combo1.RemoveItem
D:Combo1.RemoveItem Combo1.ListCount
答案: Combo1.RemoveItem 2
22、 能输出组合框Combo1中现有项目数的语句是（ ）。
A:Print Combo1.ListIndex
B:Print Combo1.Index
C:Print Combo1.Count
D:Print Combo1.ListCout
答案: Print Combo1.ListCout
23、 使用（ ）语句将组合框Combo1的第三项设为当前项。
A: Combo1.ListIndex=3
B:Combo1.Index=3
C:Combo1.ListIndex=2
D:Combo1.Index=2
为了方便下次阅读，建议在浏览器添加书签收藏本网页
添加书签方法：
1.电脑按键盘的Ctrl键+D键即可收藏本网页
2.手机浏览器可以添加书签收藏本网页
获取更多MOOC答案，欢迎在浏览器访问我们的网站：http://mooc.mengmianren.com
注：请切换至英文输入法输入域名，如果没有成功进入网站，请输入完整域名：http://mooc.mengmianren.com/
我们的公众号
打开手机微信，扫一扫下方二维码，关注微信公众号：萌面人APP
本公众号可查看各种网课答案，还可免费查看大学教材答案
点击这里，可查看公众号功能介绍
一键领取淘宝，天猫，京东，拼多多无门槛优惠券，让您购物省省省，点击这里，了解详情
干饭人福利，饿了么红包每日领
