【计算机类职业资格】二级VISUAL+BASIC-92 (1)及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC-92 (1)及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC-92 (1)及答案解析.doc(25页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC-92 (1)及答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:44,分数:100.00)1.阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i=1 To 3 For i=1 To 3 If j=i Or j=3-i+1 Then Arr(i, j)=1 Else Arr(i, j)=0 End If Next j Next i For i=1 To 3 For j=1 To 3 Print Arr(i, j); Next j Print N
2、ext i End Sub 程序运行后,如果单击窗体,则输出结果为(分数:3.00)A.1 1 11 1 11 1 1B.0 0 00 0 00 0 0C.1 0 00 1 00 0 1D.1 0 11 0 10 1 02.有下面程序代码: Private Sub Command1_Click()i=1 Do While i5 j=1 Do j=j+1 Print “*“; Loop Until i+j10 Print i=i+2 Loop End Sub 程序运行时输出字符“*”的个数是(分数:3.00)A.50B.20C.16D.153.以下数组定义语句中,错误的是(分数:3.00)A.S
3、tatic a(10) As IntegerB.Dim c(3,1 To 4)C.Dim d(-10)D.Dim b (0 To 5,1 To 3) As Integer4.语句 Dim a(-3 To 4,3 To 6)As Integer 定义的数组的元素个数是(分数:3.00)A.18B.28C.21D.325.下面正确使用动态数组的是(分数:3.00)A.Dim arr () AsIntegerReDim arr(3, 5)B.Dim arr() As IntegerReDim arr (50) As StringC.Dim arr()ReDim arr(50) As IntegerD
4、.Dim arr(50) As IntegerReDim arr(20)6.设有如下数组定义语句: Dim a(-1 To 4,3)As Integer 以下叙述中正确的是(分数:3.00)A.a 数组有 18 个数组元素B.a 数组有 20 个数组元素C.a 数组有 24 个数组元素D.语法有错7.语句 DimArr(-2 To 4) As Integer 所定义的数组的元素个数为(分数:3.00)A.7 个B.6 个C.5 个D.4 个8.下列数组定义中错误的是(分数:3.00)A.Dim a(-5 To -3)B.Dim a(3 To 5)C.Dim a(-3 To -5)D.Dim a
5、(-3 To 3)9.以下关于数组的叙述中,错误的是(分数:3.00)A.Variant 类型的数组中各数组元素的类型可以不同B.各数组元素可以是不同类型的控件C.各数组元素通过下标进行区别D.各数组元素具有相同的名称10.设有如下声明语句 Option Base 1 Dim arr(2, -1 To 5)As Integer 则数组 arr 中数组元素的个数是(分数:3.00)A.10B.12C.14D.2111.以下叙述中错误的是(分数:3.00)A.用 ReDim 语句可以改变数组的维数B.用 ReDim 语句可以改变数组的类型C.用 ReDim 语句可以改变数组每一维的大小D.用 Re
6、Dim 语句可以对数组中的所有元素置 0 或空字符串12.设有下面的程序段: x=InputBox(“请输入一个整数“) ReDim a(x) For k=x To 0 Step -1 a(k)=k Next k 一般,在这段程序之前应先进行数组 a 的定义。下面定义语句中正确的是(分数:3.00)A.Dim a(100)As IntegerB.Dim a()As IntegerC.Dim a As IntegerD.Dim a(0 To 100) As Integer13.如果要在语句:a=Array(1,2,3,4,5)的前面声明变量 a,则正确的声明是(分数:2.00)A.Dim a(4
7、)As IntegerB.Dim a(5)As VariantC.Dim a(1 To 5)As IntegerD.Dim a As Variant14.设有如下一段程序: Private Sub Command1_Click() Static a As Variant a=Array(“one“, “two“, “three“, “four“, “five“) Print a(3) End Sub 针对上述事件过程,以下叙述中正确的是(分数:2.00)A.变量声明语句有错,应改为 Static a(5)As VariantB.变量声明语句有错,应改为 Static aC.可以正常运行,在窗体
8、上显示 threeD.可以正常运行,在窗体上显示 four15.在窗体上画一个命令按钮(其 Name 属性为 Command1),然后编写如下代码: Private Sub Command1_Click() Dim n() As Integer Dim a, b As Integer a=InputBox(“Enter the first number“) b=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 程序运
9、行后,单击命令按钮,在输入对话框中分别输入 2 和 3,输出结果为(分数:2.00)A.1 2B.2 3C.3 4D.4 516.在程序中要使用 Array 函数给数组 arr 赋初值,则以下数组变量定义语句中错误的是(分数:2.00)A.Static arrB.Dim arr(5)C.Dim arr()D.Dim arr As Variant17.有下面程序代码: 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
10、(n); :n=n-1 Next k End Sub 程序运行后,单击命令按钮 Command1,输出结果是(分数:2.00)A.2 6 12 20 30B.2 12 20 56 90C.30 28 24 18 10D.10 18 24 28 3018.有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer, x, b x=InputBox(“请输入一个多位整数“) For k=1 To Len(x) b=Mid(x, k, 1) a(Val(b)+1)=a(Val(b)+1)+1 Next k For k
11、=1 To 10 Print a(k); Next k End Sub 程序运行时,单击命令按钮 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 219.窗体上有 Command1、Command2 两个命令按钮。现编写以下程序: Option Base 0 Dim a() As Integer, m As Integer Private Sub Command1_Click() m=InputBox(“请
12、输入一个正整数“) ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox(“请输入一个正整数“) ReDim a(m) End Sub 运行程序时,单击 Command1 后输入整数 10,再单击 Command2 后输入整数 5,则数组 a 中元素的个数是(分数:2.00)A.5B.6C.10D.1120.在窗体上画一个名为 Command1 的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next
13、 k x=8 Print M(2+M(x) End Sub 运行程序,单击命令按钮,在窗体上显示的是(分数:2.00)A.6B.5C.7D.821.在窗体上画一个命令按钮和一个标签,其名称分别为 Command1 和 Label1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 Next i Label1.Caption=arr(0)+arr(arr(10)/arr(6) End Sub 运行程序,单击命令按钮,则在标签中显示的是(分数:2.00)A.0B.1C.2D.322.在窗体上画
14、一个名称为 Text1 的文本框,并编写如下程序: Option Base 1 Private 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=Sum/Finish Text1.Text=c End Sub 运行程序,单击窗体,则在文本框中显示的是(分数:2.0
15、0)A.40B.10C.12D.1623.以下过程的功能是从数组中寻找最大值: Private Sub FindMax(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 If a(i)Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中,错误的是(分数:2.00)A.语句 Call FindMax(a, m)可以调用该过程,其中的 a 是数组,m 是
16、 Integer 类型变量B.For 循环次数等于 a 数组的元素数C.过程末尾应该增加一条返回最大值的语句 FindMax=MaxD.参数 Max 用于存放找到的最大值24.窗体上有一个名称为 Command1 的命令按钮,并有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a%(3, 3) For i=1 To 3 For j=1 To 3 If i1 And j1 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(
17、2, 2); a(3, 3) End Sub 运行程序,单击命令按钮,窗体上显示的是(分数:2.00)A.1 3B.2 1C.2 2D.3 325.窗体上有一个名称为 Command1 的命令按钮,其单击事件过程如下: Option Base 1 Private Sub Command1_Click() Dim a(4, 4)As Integer For i=1 To 4 For j=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 j=1 To 4 If xa(i, j)Then x=a(i,
18、 j) If ya(i, j)Then y=a(i, j) Next s=s+a(i, i) Next Print x, y, s End Sub 关于以上程序,以下叙述中错误的是(分数:2.00)A.二维数组元素的值是不大于 99 的随机整数B.计算结果 x 是二维数组各元素中的最大数C.计算结果 y 是二维数组各元素中的最小数D.计算结果 s 是二维数组各行第一个元素之和26.窗体上有一个名称为 Command1 的命令按钮。要求编写程序,把文件 f1.txt 的内容写到文件 f2.txt 中,然后将 f1.txt 删除。命令按钮的单击事件过程如下: Private Sub Command
19、1_Click() Open“c:/f1.txt“ For Input As #1 Open“c:/f2.txt: For Output As #2 Do While Not EOF(2) Line Input #1.str1 Print #2.str1 Loop Close Kill“c:/f1.txt“ End Sub 该程序运行时发生错误,应该进行的修改是(分数:2.00)A.打开 f1.txt 应该使用 Output 方式,打开 f2.txt 应该使用 Input 方式B.Not EOF(2)应该改为 Not EOF(1)C.Line Input 应改为 GetD.Close 语句改为
20、 Close All27.窗体上有名称为 Command1 的命令按钮,其事件过程如下: Option Base 1 Private Sub Command1_Click() Dim a Dim b(10)As Integer a=Array(2, 4, 7, 3, 9, 6) For i=LBound(a) To UBound(a) b(i)=a(i)+i Sum=Sum+b(i) Next i Print Sum End Sub 运行程序,单击命令按钮时,窗体上显示的是(分数:2.00)A.44B.46C.50D.5228.窗体上有一个名称为 Command1 的命令按钮,有程序如下: O
21、ption Base 1 Private Sub Command1_Click() Dim a(10) As Integer“第 1 个 For For i=1 To 10 a(i)=Int(Rnd*100+100) Print a(i); Next x=a(i):y=x“第 2 个 For For i=1 To 10 If xa(i) Then x=a(i) If ya(i) Then y=a(i) s=s+a(i) Next Print x, y, s End Sub 关于上述程序的叙述中,正确的是(分数:2.00)A.程序运行出错,第 1 个 For 循环之后的 x=a(i)赋值语句错B
22、.程序正常运行,x 是 10 个随机数中的最大值C.程序正常运行,s 是 10 个随机数的和D.程序正常运行,10 个随机数的范围是 100-20029.在窗体上画一个文本框,其名称为 Text1,然后编写如下程序: Option Base 1 Private Sub Form_Click() Dim Arr(10) As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10) End Sub 程序运行后,单击窗体,在文本框中显示的内容是(分数:2.00)A.7B.8C.9D.1030.假
23、定有如下程序: Private Sub Form_Click() Dim a(4)As Integer, b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox(“请输入一个整数:“) b(3-k)=a(k+1) Next k Print b(k) End Sub 运行程序,单击窗体,依次输入 3、6、9,输出结果为(分数:2.00)A.3B.6C.9D.131.阅读程序: Option Base 1 Private Sub Form_Click() Dim a(3, 3)As Integer For i=1 To 3 For j=1 To 3 a(i,
24、 j)=_ Print a(i, j); Next j Print Next i End Sub 运行上面的程序,单击窗体,输出结果如下: 1 4 7 2 5 8 3 6 9 则在横线处应填入的内容为(分数:2.00)A.i+jB.i*jC.(i-1)*3+jD.i+(j-1)*332.阅读程序: Option Base 1 Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form_Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC921 答案 解析 DOC
