[计算机类试卷]国家二级VB机试(菜单和对话框、数组)模拟试卷2及答案与解析.doc
《[计算机类试卷]国家二级VB机试(菜单和对话框、数组)模拟试卷2及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(菜单和对话框、数组)模拟试卷2及答案与解析.doc(22页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(菜单和对话框、数组)模拟试卷 2及答案与解析 一、选择题 1 以下打开 Visual Basic菜单编辑器的操作中,错误的是 ( A)执行 “编辑 ”菜单中的 “菜单编辑器 ”命令 ( B)执行 “工具 ”菜单中的 “菜单编辑器 ”命令 ( C)单击工具栏中的 “菜单编辑器 ”按钮 ( D)右击窗体,在弹出的快捷菜单中选择 “菜单编辑器 ”命令 2 以下说法中正确的是 ( A)任何时候都可以用 Ctrl+E键打开菜单编辑器 ( B)只有当某个窗体为当前活动窗体时,才能打开菜单编辑器 ( C)只有当代码窗口为当 前活动窗口时,才能打开菜单编辑器 ( D)任何时候都可以用标准工
2、具栏的 “菜单编辑器 ”按钮打开菜单编辑器 3 下列关于菜单项的描述中,错误的是 ( A)通过内缩符号 ()设置菜单项的层次 ( B)通过 Enabled属性设置菜单项的有效性 ( C)菜单项的索引号可以不连续 ( D)菜单项的索引号必须从 1开始 4 下列关于菜单项的描述中,错误的是 ( A)菜单项不能响应 Click事件以外的其他事件 ( B)每个菜单项都可以被看作一个控件,具有相应的属性和事件 ( C)菜单项的索引号可以不连续 ( D)通过 Visible属性设置菜单项的有效性 5 为了显示弹出式菜单,要使用 ( A)窗体的 PopupMenu方法 ( B)窗体的 OpenMenu方法
3、( C)菜单的 PopupMenu方法 ( D)菜单的 OpenMenu方法 6 在窗体上画一个通用对话框,程序运行中用 ShowOpen方法显示 “打开 ”对话框时,希望在该对话框的 “文件类型 ”栏中只显示扩展名为 DOC的文件,则在设计阶段应把通用对话框的 Filter属性设置为 ( A) (* DOC)* DOC ( B) (* DOC)|( DOC) ( C) (* DOC)|* DOC ( D) (* DOC)|* DOC 7 窗体上有一个名称为 CD1的通用对话框,一个名称为 Command1的命令按钮,相应的事件过程如下: Private Sub Command1_Click(
4、) CD1 Filter=“All File|* *|Text Filel|* txt|PPT|* ppt“ CD1 Filterlndex=2: CD1 InitDir=“C: “ CD1 FileName=“default“: CD1 ShowSave End Sub 关于上述过程,以下叙 述中正确的是 ( A)默认过滤器为 “* ppt” ( B)指定的初始目录为 “C: “ ( C)打开的文件对话框的标题为 “default” ( D)上面事件过程实现保存文件的操作 8 下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是 ( A) InitDir属性用于设置对话框中显示
5、的起始目录 ( B) Filter属性用于设置对话框默认的过滤器 ( C) DefaultExt属性用于设置对话框中默认的文件类型 ( D) FileTitle属性用于存放对话框中所选择的文件名 9 通用对话框 Filter属性的作用是 ( A)设置对话框的标题 ( B)指定对话框所选择的文件名 ( C)指定对话框的打开方式 ( D)指定对话框中显示的文件类型 10 假定在窗体上添加了一个通用对话框控件,其名称为 CD1,并有如下程序段: CD1 ShowOpen: CD1 DefaultExt=“doc“ 在打开文件的对话框中选择了 “c: file1 txt“文件,则 FileTitle属
6、性的值是 ( A) file1 doc ( B) file1 txt ( C) c: file1 txt ( D) c: file1 doc 11 以下数组定义语句中,错误的是 ( A) Static a(10)As Integer ( B) Dim c(3, 1To4) ( C) Dim d(-10) ( D) Dim b(0To5, 1To3)As Integer 12 下面正确使用动态数组的是 ( A) Dim arr()As Integer ReDim art(3, 5) ( B) Dim arr()As Integer ReDim art(50)As String ( C) Dim
7、arr() ReDim arr(50)As Integer ( D) Dim arr(50)As Integer ReDim arr(20) 13 语句 Dim Arr(-2To4)As Integer所定义的数组的元素个数为 ( A) 7个 ( B) 6个 ( C) 5个 ( D) 4个 14 以下关于数组的叙述中,错误的是 ( A) Variant类型的数组中各数组元素的类型可以不同 ( B)各数组元素可以是不同类型的控件 ( C)各数组元素通过下标进行区别 ( D)各数组元素具有相同的名称 15 以下叙述中错误的是 ( A)用 ReDim语句可以改变数组的 维数 ( B)用 ReDim语
8、句可以改变数组的类型 ( C)用 ReDim语句可以改变数组每一维的大小 ( D)用 ReDim语句可以对数组中的所有元素置 0或空字符串 16 如果要在语句: a=Array(1, 2, 3, 4, 5)的前面声明变量 a,则正确的声明是 ( A) Dim a(4)As Integer ( B) Dim a(5)As Variant ( C) Dim a(1 To 5) As Integer ( D) Dim a As Variant 17 在窗体上画一个命令按钮 (其 Name属性为 Command1),然后编写如下代码: Private Sub Command1_Click() Dim
9、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 程序运行后,单击命令按钮,在输入对话框中分别输入 2和 3,输出结果为 ( A) 1 2 ( B) 2 3 ( C) 3 4 ( D) 4 5 18 有下面程序代码: Private Sub Command1_Click()
10、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 程序运行后,单击命令按钮 Commandl,输出结果是 ( A) 2 612 20 30 ( B) 2 12 20 56 90 ( C) 30 28 2 418 10 ( D) 10 18 24 28 30 19 窗体上有 Command1、 Command2两个命令按钮。现编写以下程序: Option Base 0 Dim Private Sub Command2_C
11、lick() a()As Integer, m As Integer m=InputBox(“请输入一个正整数 “) Private Sub Command1_Click() ReDim a(m) m=InputBox(“请输入一个正整数 “)End Sub ReDim a(m) End Sub 运行程序时,单击 Command1后输入整数 10,再单击 Command2后输入整数 5,则数组 a中元素的个数是 ( A) 5 ( B) 6 ( C) 10 ( D) 11 20 在窗体上画一个命令按钮和一个标签,其名称分别为 Command1和 Label1,然后编写如下事件过程: Privat
12、e Sub Command1_Click() Dim arr(10) For i=6To10 arr(i)=i-5 Next i Label1 Caption=arr(0)+arr(arr(10) arr(6) End Sub 运行程序,单击命令按钮,则在标签中显示的是 ( A) 0 ( B) 1 ( C) 2 ( D) 3 21 以下过程的功能是从数组中寻找最大值: Private Sub FindMax(a() As Integer, ByRef Max As Integer) Dim s As Integer, f As Integer Dim i As Integer s=LBound
13、(a): f=UBound(a) Max=a(s) For i=sTof If a(i) Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中,错误的是 ( A)语句 Call FindMax(a, m)可以调用该过程,其中的 a是数组, m是 Integer类型变量 ( B) For循环次数等于 a数组的元素数 ( C)过程末尾应该增加一条返回最大值的语句 FindMax=Max ( D)参数 Max用于存放找到的最大值 22 窗体上有一个名称为 Command1的命令按钮,其单击事件过程如下: Option Base1 Private Sub Comman
14、d1_Click() Dim a(4, 4)As Integer For i=1To4 For j=1To4 a(i, j)=Int(Rnd*100) Next Next x=a(1, 1)y=a(1, 1) For i=1To4 For j=1To4 If x a(i, j)Then x=a(i, j) If y a(i, j)Then y=a(i, j) Next s=s+a(i, i) Next Print x, y, s End Sub 关于以上程序,以下叙述中错误的是 ( A)二维数组元素的值是不大于 99的随机整数 ( B)计算结果 x是二维数组各元素中的最大数 ( C)计算结果
15、y是 二维数组各元素中的最小数 ( D)计算结果 s是二维数组各行第一个元素之和 23 窗体上有名称为 Command1的命令按钮,其事件过程如下: Option Base1 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 运行程序,单击命令按钮时,窗体上显 示的是 ( A) 44 ( B) 46 ( C) 50 ( D) 52
16、 24 在窗体上画一个文本框,其名称为 Text1,然后编写如下程序: Option Base1 Private Sub Form_Click()Dim Arr(10)As Integer For i=6To10 Arr(i)=i-3 Next i Text1 Text=Str(Arr(6)+Arr(Arr(6)+Arr(10) End Sub 程序运行后,单击窗体,在文本框中显示的内容是 ( A) 7 ( B) 8 ( C) 9 ( D) 10 25 阅读程序: Option Base1 Private Sub Form_Click() Dim a(3, 3)As Integer For i
17、=1To3 For j=1To3 a(i, j)=_ Print a(i, j); Next j Print Next i End Sub 运行上面的程序,单击窗体,输出结果如下: 1 4 7 2 5 8 3 6 9 则在横线处应填入的内容为 ( A) i+j ( B) i*j ( C) (i-1)*3+j ( D) i+(j-1)*3 26 在窗体上画一个 命令按钮,然后编写如下程序: Option Base1 Private Sub Command1_Click() Dim Arr(10)As Integer For i=1To10 Arr(i)=11-i Next i x=InputBo
18、x(“输入一个整数 (3 10)“) Print Arr(2+Arr(x) End Sub 程序运行后,单击命令按钮,在输入对话框中输入 7,则输出结果为 ( A) 3 ( B) 4 ( C) 5 ( D) 6 27 设有下面程序代码: Option Base1 PriVate Sub Command1_Click() Dim x(6) a=Array(4, 2, 5, 1, 6, 3) b=Array(64, 24, 98, 27, 58, 41) For k=1To6 x(a(k)=b(k) Next k For k=1To6 Print x(k); Next k End Sub 程序运行
19、时的输出是 ( A) 27 24 41 64 98 58 ( B) 64 24 98 27 58 41 ( C) 24 27 41 58 64 98 ( D) 98 64 58 41 27 24 28 以下关于控件 数组的叙述中,错误的是 ( A)各数组元素共用相同的事件过程 ( B)各数组元素通过下标进行区别 ( C)数组可以由不同类型的控件构成 ( D)各数组元素具有相同的名称 29 窗体上已有的 3个单选按钮组成了 1个名为 ChkOpt1的控件数组。用于区分控件数组 ChkOpt1中每个元素的属性是 ( A) Caption ( B) ListCount ( C) ListIndex
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 菜单 对话框 数组 模拟 答案 解析 DOC
