[计算机类试卷]国家二级VB机试(选择题)模拟试卷164及答案与解析.doc
《[计算机类试卷]国家二级VB机试(选择题)模拟试卷164及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(选择题)模拟试卷164及答案与解析.doc(23页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(选择题)模拟试卷 164及答案与解析 一、选择题 1 编写如下程序: Private Sub Command 1 Click() Dim x As Integer,y As Integer x=InputBox(“输入第一个数 ”): y=InputBox(“输入第二个数 ”) Call f(x, y) Print x, y End Sub Sub f(a As Integer, ByVal b As Integer) a=a*2: x=a+b: b=b+100 End Sub 程序运行后,单击命令按 钮 Command1,并输入数值 10和 15,则输出结果为 ( A)
2、10 1 15 ( B) 20 11 5 ( C) 35 15 ( D) 20 15 2 现有程序如下: Option Base 1 Private Sub Form Click() Dim x(5, 6)As Integer,y(5)As Integer For i=1 Tn 5 Forj=1 To 6 x(i, j)=Int(Rnd*9+1) Next j Next i Call f(5, 6, x, y) For i=1 To 5 Print y(i); Next i End Sub Sub f(mAs Integer,nAs Integer,a()As Integer,b()As In
3、teger ( A)调用过程语句有错,参数不匹配 ( B)程序有错,数组下标越界 ( C) Y数组中保存的是 x数组每行数据之和 ( D) x数组中数据的取值范围是 1-10 3 窗体上有一个名称为 Command1的命令按钮,一个名称为 Text1的文本框。编写如下程序: Private Sub Corimaandl Click() Dim xAs Integer x=Val(InputBox(“输入数据 ”): Text1=Str(x+fun(x)+fun(x) End Sub Private Function fun(ByRef n As Integer) Ifn Mod 3=0 The
4、n n=n+n Else n=n*n End If fun=n End Function 对于 ( A)语句 fun=n有错,因为 n是整型, fun没有定义类型 ( B)运行程序,输入值为 5时,文本框中显示 655 ( C)运行程序,输入值为 6时,文本框中显示 42 ( D) ByRef表示参数 按址传递 4 窗体上有一个名称为 Commandl的命令按钮,并有如下程序代码: Private Sub Command 1 Click() Static a a=1: b=2: c=3 Call f(a, b, c) Print a; b; c End Sub Sub f(ByVal x, B
5、yRefy,z) x=x+1: y=y+1: z=z+1 End Sub 运行程序,单击命令按钮,窗体上显示的是 ( A) 1 3 3 ( B) 1 3 4 ( C) 2 3 3 ( D) 2 3 4 5 窗体上有一个名称为 Commandl的命令按钮,其单击事件过程如下: Private Sub Command 1 Click() Dim xAs Integer,y As Integer Static zAs Integer x=3: y=5: z=y Call f(x, y, z) Print x; y; z End Sub Private Sub f(ByVal aAs Integer,
6、ByRefbAs Integer,cAs Integer) a=a+a-b=b+b: c=c+c End Sub 运行程序,单击命令 ( A) 3 5 5 ( B) 3 5 10 ( C) 3 10 5 ( D) 3 10 10 6 窗体上有一个名称为 Commandl的命令按钮,其单击事件过程及相关的代码如下 Private Sub Command 1 Clic Dim xkOim As Integer,y As Integer x=Val(InputBox(“输入整数 ”) Y=Val(inputBox(“输入整数 ”)Print Str(fun(x, y)+x+y) End Sub Pr
7、ivate Function fun(ByRef m As Integer,ByVal n As Integer) m=m*m: n=n+n: fun ( A) 27 ( B) 28 ( C) 33 ( D) 38 7 设有如下程序: Private Sub Inv(ByVal xStr As String, yStr As String) DimtStrAs StringDim LAs Integer L=Len(xStr) Do While L=1 tStr=tStr+Mid(xStr,L, 1): L=L一 1 Loop yStr=tStr End Sub Private Sub For
8、m Click(_) Dim S1 As String, S2 As String S1=“abcdef”Inv S1, S2 Print ( A) abcdef ( B) afbecd ( C) fedcba ( D) defabc 8 设有如下程序: Private Sub sV(ByVal m As Integer,n As Integer) m=m*2: n=n一 5: Print m; n End Sub Private SUb Form Click() DiIn x As Integer,y As Integer x=10: y=15: sV x, y Print x; y End
9、 Sub 运行程序,单击窗体,输出结果为 ( A) 20 10 10 10 ( B) 10 15 20 10 ( C) 20 15 10 15 ( D) 20 10 20 10 9 由高中数学可知,对于连续函数 f(x),若 f(x1)与 f(x2)值的符号相反,则在 x1和x2之间必存在 x0,使得 fix0)=0(该点称为 “零点 ”)。设有 VB函数: Private Function f(x As Single)As Single可以返回 fix)的值 (函数体没 有给出 )。下面程序的功能是从键盘输入 2个实数 x1、 x2,判断在 x1、 x2之间是否存在零点。 Private S
10、ub Command1 Click( ) Dim x1 As Single, x2 As Single xl=InputBox(“请 ( A) f(x1)0 Or f(x2)0 10 编写如下程序: Private Sub Command 1 Click() Dim xAs Integer,y As Integer x=10: y=20 Call funl(x, y) Print x; y End Sub Private Function funl(ByVal m As Integer,n As Integer)As Integer m=m*m: n=n+n End Function 程序运行
11、后,单击命令按钮 Commandl,输出结果为 ( A) 10 25 ( B) 10 40 ( C) 100 25 ( D) 100 40 11 设有以下过程: Private SUb proc(x As Integer,Optional Y As Integer) Print x, y End Sub 针对此过程,下面正确的过程调用语句是 ( A) Call proc(al, 23) ( B) Call proc x, 12 ( C) proc b ( D) x=proc(12) 12 以下关于过程及过程参数的描述中,错误的是 ( A)过程的参数可以是控件名称 ( B)调用过程时使甩的实参的
12、个数应与过程形参的个数相同 (假定不含可变参数 ) ( C)只有函数过程能够将过程中处理的信息返回到调用程序中 ( D)窗体可以作为过程的参数 13 窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是 ( A)在设计 “粘贴 ”菜单项时,在菜单编辑器窗口中设置了 “有效 ”属性 (有 “”) ( B)菜单中的横线是在该菜单项的标题输入框中输入了一个 “一 ”(减号 )字符 ( C)在设计 “选中 ”菜单项时,在菜单编辑器窗口中设置了 “复选 ”属性 (有 “”) ( D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了
13、“可见 ”前面的“” 14 以下打了 Visual Basic菜单编辑器的操作中,错误的是( A)执行 “编辑 ”菜单中的 “菜单编辑器 ”命令 ( B)执行 “工具 ”菜单中的 “菜单编辑器 ”命令 ( C)单击工具栏中的 “菜单编辑器 ”按钮 ( D)右击窗体,在弹出的快捷菜单中选择 “菜单编辑器 “命令 15 如果一个菜单项的 Enabled属性被设置为 False,则程序运行时,该菜单项 ( A)不显示 ( B)显示但无效 ( C)有效可用 ( D)不显示但有效可用 16 以下说法中正确的是 ( A)任何时候都可以用 Ctrl+E键打升采单编辑器 ( B)只有当某个窗 体为当前活动窗体
14、时,才能打开菜单编辑器 ( C)只有有当代码窗口为当前活动窗口时,才能打开菜单编辑器 ( D)任何时候都可以用标准工具栏的 “菜单编辑器 ”按钮打开菜单编辑器 17 如果一个顶级菜单项的访问键为 D,则以下等同于单击该菜单项的操作为 ( A)按 Ctrl+D键 ( B)按 Alt+D键 ( C)按 D键 ( D)按 Shift+D键 18 下列关于菜单项的描述中,错误的是 ( A)通过内缩符号 () 设置菜单项的层次 ( B)通过 Enabled属性设置菜单项的有效性 ( C)菜单项的索引号可以不 连续 ( D)菜单项的索引号必须从 1开始 19 以下关于菜单的叙述中,错误的是 ( A)当窗体
15、为活动窗体时,用 Ctrl+E键可以打开菜单编辑器 ( B)把菜单项的 Enabled属性设置为 False,则可删除该菜单项 ( C)弹出式菜单在菜单编辑器中设计 ( D)程序运行时,利用控件数组可以实现菜单项的增加或减少 20 下列关于菜单项的描述中,错误的是 ( A)菜单项不能响应 Click事件以外的其他事件 ( B)每个菜单项都可以被看作一个控件,具有相应的属性和事件 ( C)菜单项的索引号可以不连续 ( D)通过 Visible属性设置菜单项的有效性 21 在利用菜单编辑器设计菜单时,为了把组合键 “Alt+X”设置为 “退出 (X)”菜单项的访问键,可以将该菜单项的标题设置为 (
16、 A)退出 (X&) ( B)退出 (&X) ( C)退出 (X#) ( D)退出 (撑 X) 22 为了显示弹出式菜单,要使用 ( A)窗体的 PopupMenu方法 ( B)窗体的 OpenMenu方法 ( C)菜单的 PopupMenu方法 ( D)菜单的 OpenMenu方法 23 下面关于菜单的叙述中正确的是 ( A)为使选中一菜单 项就可执行某种操作,要为它的 Click事件过程编写执行该操作的代码 ( B)同一级菜单中的菜单项不能同名,但不同级菜单中的菜单项可以同名 ( C)只能使用鼠标右键把弹出式菜单弹出来 ( D)弹出式菜单中的菜单项不能再有自己的子菜单 24 在窗体上画一个
17、通用对话框,程序运行中用 ShowOpen方法显示 “打开 ”对话框时,煎望在该对话框的 “文件类型 ”栏中只显示扩展名为 DOC的文件,则在设计阶段应把通用对话框的 Filter属性设置为 ( A) “(DOC)* DOC” ( B) “(* DOC) ( DOC)” ( C) “(* DOC)* DOC” ( D) “(* DOC) * DOC” 25 以下关于通用对话框的叙述中,错误的是 ( A)在程序运行状态下,通用对话框控件是不显示的 ( B)通用对话框控件是 Visual Basic的标准控件 ( C)设计时,通用对话框控件的大小是固定的,不能改变 ( D)在同一个程序中,一个通用
18、对话框控件可以作为打开、保存等多种对话框 26 窗体上有一个名称为 CD1的通用对话框;一个名称为 Commandl的命令按钮,相应的事件过程如下: Private Sub Command lClick() CDl Filter=“All File*11Text FiletxtlPPT*ppt” CD 1 Filterlndex=2: CD 1 InitDir: “C: CD 1 FileName=”default: CD 1 ShowSave End Sub 关于上述过程,以下叙述中正确的是 ( A)默认过滤器为 “* ppt” ( B)指定的初始目录为 “C: ” ( C)打开的文件对话框
19、的标题为 “default” ( D)上面事件过程实现保存文件的操作 27 在窗体画一名为 CommonDialogl,则下列与 CommonDialogl ShowOpen方法等效的语句是 ( A) CommonDialogl Action=1 ( B) CommonDialogl Action=2 ( C) CommonDialog1 Action=3 ( D) CommonDialog 1 Action=4 28 下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是 ( A) InitDir属性用于设置对话框中显示的起始目录 ( B) Filter属性用于设置对话框默认的过
20、滤器 ( C) DefaultExt属性用于设置对话框中默认的文件类型 ( D) FileTitle属性用于存放对话框中所选择的文件名 29 下列关于通用对话框 CommonDialogl的叙述中,错误的是 ( A)只要在 “打开 ”对话框中选择了文件,并单击 “打开 ”按钮,就可以将选中的文件打开 ( B)使用 CommonDialogl ShowColor方法,可以显示 “颜色 ”对话框 ( C) CancelError属性用于控制用户单击 “取消 ”按钮关闭对话框时,是否显示出错警告 ( D)在显示 “字体 ”对话框前,必须先设置 CommonDialogl的 Flags属性,否则会出错
21、 30 通用对话框 Filter属性的作用是 ( A)设置对话框的标题 ( B)指定对话框所选择的文件名 ( C)指定对话框的打开方式 ( D)指定对话框中显示的文件类型 31 窗体上有一个名称为 CDl的通用对话框,一个名称为 Text1的文本框,窗体的单击事件过程如下: Private Sub FormClick() CD 1 DialogTitle=“改变颜色 ”: CD 1 Color=Form 1 BackColor CD 1 Action=3: Text1 BackColor=CD 1 Color End Sub 运行程序时,单击窗体,则以下叙述中错误的是 ( A)通用对话框的标题
22、被改为 “改变颜色 ” ( B)通用对话框被打开为颜色对话框 ( C)若选择颜色对话框中的 “取消 ”按钮,则文本框的背景色改为窗体背景色 ( D)若选择颜色对话框中的 “确定 ”按钮,则文本框的背景色改为在颜色对话框中选中的颜色 32 假定在窗体上添加了一个通用对话框控件,其名称为 CD1,并有如下程序段:CD 1 ShowOpen: CD 1 DefaultExt=“doc”在打开文件的对 话框中选择了 “c:filel txt“文件,则 FileTitle属性的值是 ( A) filel doe ( B) filel txt ( C) c: filel txt ( D) c: filel
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 选择题 模拟 164 答案 解析 DOC
