【计算机类职业资格】国家二级VB机试(数组)模拟试卷4及答案解析.doc
《【计算机类职业资格】国家二级VB机试(数组)模拟试卷4及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】国家二级VB机试(数组)模拟试卷4及答案解析.doc(10页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB 机试(数组)模拟试卷 4 及答案解析(总分:60.00,做题时间:90 分钟)一、选择题(总题数:30,分数:60.00)1.假定建立了一个名为 Command1 的命令按钮数组,则以下说法中错误的是(分数:2.00)A.数组中每个命令按钮的名称(Name 属性)均为 Command1B.数组中每个命令按钮的标题(Caption 属性)都一样C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮2.列表框中的项目保存在一个数组中,这个数组的名字是(分数:2.00)A.ColumnB.StyleC.ListD.MultiSel
2、ect3.下面的语句用 Array 函数为数组变量 a 的各种元素赋值整数值:(分数:2.00)A.Dim aB.Dim a As IntegerC.Dim a(9)As IntegerD.Dim a()As Integer4.以下数组定义语句中,错误的是(分数:2.00)A.Static(10)As IntegerB.Dim c(3,1 To 4)C.Dim d(-10)D.Dim b(0 To 5,1 To 3)As Integer5.语句 Dim a(-3 To 4,3 To 6)As Integer 定义的数组的元素个数是(分数:2.00)A.18B.28C.21D.326.下面正确使
3、用动态数组的是(分数:2.00)A.Dim art() As IntegerReDim art(3,5)B.Dim ar()As IntegerReDim art(50)As StringC.Dim ar()ReDim art(50)As IntegerD.Dim art(50)As IntegerReDim arr(20)7.设有如下数组定义语句: Dim a(-1 To 4,3)As Integer 以下叙述中正确的是(分数:2.00)A.a 数组有 1 8 个数组元素B.a 数组有 20 个数组元素C.a 数组有 24 个数组元素D.语法有错8.语句 DimArr(-2 To 4)As
4、Integer 所定义的数组的元素个数为(分数:2.00)A.7 个B.6 个C.5 个D.4 个9.下列数组定义中错误的是(分数:2.00)A.Dim a(-5 To -3)B.Dim a(3 To 5)C.Dim a(-3 To -5)D.Dim a(-3 To 3)10.以下关于数组的叙述中,错误的是(分数:2.00)A.Variant 类型的数组中各数组元素的类型可以不同B.各数组元素可以是不同类型的控件C.各数组元素通过下标进行区别D.各数组元素具有相同的名称11.设有如下声明语句 Option Base1 Dim arr(2,-1 To 5)As Integer 则数组 arr 中
5、数组元素的个数是(分数:2.00)A.10B.12C.14D.2112.以下叙述中错误的是(分数:2.00)A.用 ReDim 语句可以改变数组的维数B.用 ReDim 语句可以改变数组的类型C.用 ReDim 语句可以改变数组每一维的大小D.用 ReDim 语句可以对数组中的所有元素置 0 或空字符串13.设有下面的程序段: X=InputBox(“请输入一个整数“) ReDim a(x) For k=x To 0 Step -1 a(k)=k Next k 一般,在这段程序之前应先进行数组 a 的定义。下面定义语句中正确的是(分数:2.00)A.Dim a(100)As IntegerB.
6、Dim a()As IntegerC.Dim a As IntegerD.Dim a(0 To 100)As Integer14.如果要在语句:a=Array(1,2,3,4,5)的前面声明变量 a,则正确的声明是(分数:2.00)A.Dim a(4)As ImegerB.Dim a(5)As VariantC.Dim a(1 To 5)As IntegerD.Dim a As Variant15.设有如下一段程序: Private Sub Command1_Click() Static a As Variant a=Array(“one“,“two“,“three“,“four“,“five
7、“) Print a(3) End Sub 针对上述事件过程,以下叙述中正确的是(分数:2.00)A.变量声明语句有错,应改为 Static a(5)As VariantB.变量声明语句有错,应改为 Static aC.可以正常运行,在窗体上显示 threeD.可以正常运行,在窗体上显示 four16.在窗体上画一个命令按钮(其 Name 属性为 Command1),然后编写如下代码: Private Sub Command1_Click() Dim n()As Integer:Dim a,b As Integer a=InputBox(“Enter the first number“) b:
8、InputBox(“Enter the second number“) ReDim n(a To b) For k=LBound(n)To UBound(n) n(k)=k Print n(k); Next k End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入 2 和 3,输出结果为(分数:2.00)A.1 2B.2 3C.3 4D.4 517.1 个二维数组可以存放 1 个矩阵,在程序开始有语句 Option Base0,则下面定义的数组中正好可以存放 1 个 4(3 矩阵(即只有 12 个元素)的是(分数:2.00)A.Dim a(-2 To 0,2)As IntegerB
9、.Dim a(3,2)As IntegerC.Dim a(4,3)As IntegerD.Dim a(-1,To-4,-1 To -3)As Integer18.默认情况下,下面声明的数组的元素个数是 Dim a(5,-2 To 2)(分数:2.00)A.20B.24C.25D.3019.设程序中有如下数组定义和过程调用语句: Dim a(10)As Integer Call p(a) 如下过程定义中,正确的是(分数:2.00)A.Private Sub p(a As Integer)B.Private Sub p(a() As Integer)C.Private Sub p(a(10)As
10、Integer)D.Private Sub p(a(n)As Integer)20.在程序中要使用 Array 函数给数组 arr 赋初值,则以下数组变量定义语句中错误的是(分数:2.00)A.Static arrB.Dim arr(5)C.Dim arr()D.Dim arr As Vailant21.有下面程序代码: Private Sub Command1_Click() a=Array(1,2,3,4,5,6,7,8,9,10) n=UBound(a) For k=0 To UBound(a)2 Print a(k)*a(n);:n=n-1 Next k End Sub 程序运行后,单
11、击命令按钮 Command1,输出结果是(分数:2.00)A.26 12 20 30B.2 12 20 56 90C.30 28 24 18 10D.10 18 24 28 3022.有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox(“请输入一个多位整数“) For k=l To Len(x) b=Mid(x,k,1) a(Val(b)+1)=a(Val(b)+1)+1 Next k For k=1 To 10 Print a(k): Next k End Sub 程序运行
12、时,单击命令按钮 Command1,输入2355270224,则输出是(分数:2.00)A.1 0 4 1 1 2 0 1 0 0B.0 4 1 1 2 0 1 0 0 0C.2 3 5 5 2 7 0 2 2 4D.4 2 2 0 7 2 5 5 3 223.窗体上有 Command1、Command2 两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m=InputBox(“请输入一个正整数“) ReDim a(m) End Sub Private Sub Co
13、mmand2 Click() m=InputBox(“请输入一个正整数“) ReDim a(m)End Sub 运行程序时,单击 Command1 后输入整数 10,再单击 Command2 后输入整数 5,则数组 a 中元素的个数是(分数:2.00)A.5B.6C.10D.1124.在窗体上画一个名为 Command1 的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x) End Sub 运行程序,单击命令按钮,在窗体
14、上显示的是(分数:2.00)A.6B.5C.7D.825.在窗体上画一个命令按钮和一个标签,其名称分别为 Command1 和 Label1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 Next i Label1Caption=arr(0)+arr(arr(10)arr(6) End Sub 运行程序,单击命令按钮,则在标签中显示的是(分数:2.00)A.0B.1C.2D.326.在窗体上画一个名称为 Text1 的文本框,并编写如下程序: Option Base1 Private
15、Sub Form Click() Dim arr Dim Start As Integer,Finish As Integer Sum As Integer arr=Array(12,4,8,16) Start=LBound(arr) Finish=UBound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=SumFinish Text1Text=c End Sub 运行程序,单击窗体,则在文本框中显示的是(分数:2.00)A.40B.10C.12D.1627.以下过程的功能是从数组中寻找最大值: Pfivate Sub Fi
16、ndMax(a() As Integer,ByRef Max As Integer) Dim S As Integer,f As Integer:Dim i As Integer s=LBound(a):f=UBound(a) Max=a(s) For i=S To f Ifa(i)Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中,错误的是(分数:2.00)A.语句 Call FindMax(a,m)可以调用该过程,其中的 a 是数组,m 是 Integer 类型变量B.For 循环次数等于 a 数组的元素数C.过程末尾应该增加一条返回最大值的语句 Fin
17、dMax=MaxD.参数 Max 用于存放找到的最大值28.窗体上有一个名称为 Command1 的命令按钮,并有如下程序代码: Option Base1 Private Sub Command1_Click() Dim a(3,3) For i=l To 3 For i=l To 3 Ifi1 And1 Then a(i,j)=a(a(i-1,j-1),a(i,j-1)+1 Else a(i,j)=i*j End If Next Next Print a(2,2);a(3,3) End Sub 运行程序,单击命令按钮,窗体上显示的是(分数:2.00)A.1 3B.2 1C.2 2D.3 32
18、9.窗体上有一个名称为 Command1 的命令按钮,其单击事件过程如下: Option Base1 Private Sub Command1_Click() Dim a(4,4)As Integer For i=1 To 4 Forj=1 To 4 a(i,j)=Int(Rnd 宰 100) Next Next x=a(1,1)y=a(1,1) For i=1 To 4 For i=1 To 4 Ifxa(i,j)Then y=a(i,j) Next s=s+a(i,i) Next Print x,y,s End Sub 关于以上程序,以下叙述中错误的是(分数:2.00)A.二维数组元素的值
19、是不大于 99 的随机整数B.计算结果 X 是二维数组各元素中的最大数C.计算结果 y 是二维数组各元素中的最小数D.计算结果 s 是二维数组各行第一个元素之和30.窗体上有一个名称为 Command1 的命令按钮。要求编写程序,把文件 f1txt 的内容写到文件 f2txt中,然后将 f1txt 删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open“c:f1txt“For Input As #1 Open“c:f2txt“For OutputAs #2 Do While Not EOF(2) Line Input #1,str1 Print
20、#2,str1 Loop Close Kill“c:f1txt“ End Sub 该程序运行时发生错误,应该进行的修改是(分数:2.00)A.打开 f1txt 应该使用 Output 方式,打开 t2txt 应该使用 Input 方式B.Not EOF(2)应该改为 Not EOF(1)C.Line Input 应改为 GetD.Close 语句改为 Close AIl国家二级 VB 机试(数组)模拟试卷 4 答案解析(总分:60.00,做题时间:90 分钟)一、选择题(总题数:30,分数:60.00)1.假定建立了一个名为 Command1 的命令按钮数组,则以下说法中错误的是(分数:2.0
21、0)A.数组中每个命令按钮的名称(Name 属性)均为 Command1B.数组中每个命令按钮的标题(Caption 属性)都一样 C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮解析:解析:本题考查控件数组。选项 B 中,命令按钮控件数组的 Caption 属性不一定相同,可以单独分别设置,其他选项均正确。2.列表框中的项目保存在一个数组中,这个数组的名字是(分数:2.00)A.ColumnB.StyleC.List D.MultiSelect解析:解析:本题考查列表框的使用。列表框的元素保存在 List 数组中,可以通过 List
22、 属性获取元素值。3.下面的语句用 Array 函数为数组变量 a 的各种元素赋值整数值:(分数:2.00)A.Dim a B.Dim a As IntegerC.Dim a(9)As IntegerD.Dim a()As Integer解析:解析:本题考查常用函数。Array 函数返回一个包含数组的 Vaiiant,语法:Array(arglist)。所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数,则创建一个长度为 0 的数组。本题中变量 a 必须是变体类型,选项 A 正确。4.以下数组定义语句中,错误的是(分数:2
23、.00)A.Static(10)As IntegerB.Dim c(3,1 To 4)C.Dim d(-10) D.Dim b(0 To 5,1 To 3)As Integer解析:解析:本题考查的考点是有关数组定义的。在 Visual Basic 中,可以用 4 个关键字来定义数组,分别是 Dim、ReDim、Public 和 Static。在 Visual Basic 中定义数组有两种格式。 格式一:Dim数组名(下标上界)As类型名称 Dim数组名(第一维下标上界,第二维下标上界)As类型名称 格式二:Dim数组名(下界 To 上界,下界 To 上界)As类型名称 其中上界必须大于下界。
24、本题中选项 C 采取第一种格式定义数组,则数组默认下界为 0,上界一 10 小于 0,故不符合要求。5.语句 Dim a(-3 To 4,3 To 6)As Integer 定义的数组的元素个数是(分数:2.00)A.18B.28C.21D.32 解析:解析:本题考查的考点是有关二维数组的。二维数组定义时对于数组的每一维均给定下标的下界和上界,中间用 To 连接,即给出下标可取值的变化范围。“数组元素个数”指的是数组中成员的个数,每一维的长度是上界一下界+1,数组元素个数等于各维长度之积。6.下面正确使用动态数组的是(分数:2.00)A.Dim art() As IntegerReDim ar
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 国家 二级 VB 机试 数组 模拟 试卷 答案 解析 DOC
