[计算机类试卷]国家二级VB机试(选择题)模拟试卷166及答案与解析.doc
《[计算机类试卷]国家二级VB机试(选择题)模拟试卷166及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(选择题)模拟试卷166及答案与解析.doc(23页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(选择题)模拟试卷 166及答案与解析 一、选择题 1 以下关于过程及过程参数的描述中,错误的是 ( A)调用过程时可以用控件名称作为实际参数 ( B)用数组作为过程的参数时,使用的是 “传地址 ”方式 ( C)只有函数过程能够将过程中处理的信息传回到调用的程序中 ( D)窗体 (Form)可以作为过程的参数 2 下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer,ByVal y As Integer) As Integer若要输出 8、 12、 16这 3个数的最大公约数,下面正确的语句是 ( A) Print ge0(8, 12
2、),gcd(12, 16), gcd(16, 8) ( B) Print gcd(8, 12, 16) ( C) Prim ge0(8), ged(12), gcd(16) ( D) Print gcd(8, gcd(12, 16) 3 为了通过传值方 -式 v来传送过程参数,在函数声明部分应使用的关键字为 ( A) Value ( B) ByVal ( C) ByRef ( D) Reference 4 以下过程定义中正确的过程首行是 ( A) Private Sub Proc(Optional a as Integer,b as Integer) ( B) Private Sub Proc
3、(a as Integer)as Ifiteger ( C) Private Sub Proc(a()As Integer) ( D) Private Sub Proc(ByVal a()As Integer) 5 某人编写了下面的程序 Private Sub Commandl Click() Dim aAs Integer,bAs Integer a=InputBox(“请输入整数 ”): b=InputBox(“请输入整数 ”) pro a: pro b Call pro(a+b)End Sub Private Sub pro(n As Integer) While(n 0) Print
4、n Mod 10; n=n 10 Wend Print End Sub 此程序功能是:输入 2个正整数,反序输出这 2个数的每一位数字, ( A)把过程 pro的形式参数 n As Integer改为 ByVal n As Integerb把 Call pro(a+b) ( B)改为 pro a+b ( C)把 n=n 10改为 n=n 10 ( D)在 pro b语句之后增加语句 c =a+b,再把 Call pro(a+b)改为 pro c 6 有下面程序代码: Private Sub Commandl_Click() Dim x As Integer,s As Integer x=1 F
5、or k=1 To 3 x=x+1: proc x: s=s+x Next k Print s End Sub Private Sub proc(ByVal a As Integer) Static xAsInteger x=x+1: a=a+x End Sub 程序运行后,单击命令按钮 Commandl,输出结果是 ( A) 6 ( B) 9 ( C) 15 ( D) 19 7 编写如下程序: Private Sub Commandl1-Click()Dim x As Integer x=10 Print funl(x, 12)+x End Sub Private Function funl
6、(mAs Integer,nAs Integer) As Integer Ifn10 Then m=n funl=m+n End Function 程序运行后,单击命令按钮 Commandl,输出结桌为 ( A) 30 ( B) 32 ( C) 34 ( D) 36 8 在窗体上画一个名称为 Commandl的命令按钮,再画两个名称分别为 Label1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1Click() x=5: y=3 Call proc(x, y) Labell Caption=x: Label2 C
7、aption=y End Sub Private Sub proc(a As Integer,ByVal b As Integer) x=a*a: y=b+b End Sub 程序运行后,单击 ( A) 25和 3 ( B) 5和 3 ( C) 25和 6 ( D) 5和 6 9 设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x=20: y=2: f=x*y End Function 在窗体上画一个命令按钮,其名称为 Commandl,然后编写如下事件过程: Private Sub Commandl Click() Sta
8、tic x As Integer x=10: y=5: y=fix)Print x; y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ( A) 10 5 ( B) 20 40 ( C) 20 5 ( D) 10 40 10 命任何 _个滚动条滚动框件过程如下: Private Sub Command l_Click()Private Function f(y As Integer) x=10 Print fix)f=y*y End SubEnd Function 运行上述程序,如下叙述中正 确的是: ( A)程序运行出错, x变量的类型与函数参数的类型不符 ( B)在
9、窗体上显示 100 ( C)函数定义错,函数名 f不能又作为变量名 ( D)在窗体上显示 10 11 编写如下程序: 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 程序运行后,单击命令按钮 Commandl,并输入数值 10和 15,
10、则输出结果为 ( A) 10 115 ( B) 20 1 1 5 ( C) 35 1 5 ( D) 20 1 5 12 现有程序如下: Option Base 1 Private Sub Form_Click() Dim x(5, 6)As Integer,y(5)As Integer Far i=1 Tn 5 Forj=1 To 6 x(i, j)=Int(Rnd*9+1) Nextj Next i Call f(5, 6, x, y) For i=1 To 5 Printy(i); Next i End Sub Sub f(m As Integer,n As Integer,a()As I
11、nteger,b0 As Integer ( A)调用过程语句有错,参数不匹配 ( B)程序有错,数组下标越界 ( C) Y数组中保存的是 x数组每行数据之和 ( D) x数组中数据的取值范围是 1-10 13 窗体上有一个名称为 Commandl的命令按钮,一个名称为 Text1的文本框。编写如下程序 : Private Sub Command1 Click() DimxAs Integer x=Val(InputBox(“输入数据 ”): Textl=Str(x+fun(x)+fun(x) End Sub Private Function fun(ByRef n As Integer) I
12、fn Mod 3=0 Then 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表示参数按址传递 14 窗体上有一个名称为 Commandl的命令按钮,并有如下程序代码: Private Sub Command 1Click() Static a a=1: b=2: c=3 Call f(a, b, c)Print a; b; C End Sub S
13、ub f(ByVal x, ByRefy,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 15 窗体上有一个名称为 Commandl的命令按钮,其单击事件过程如下: Pfivate Sub Commandl Click() Dim x As Integer,y As Integer Static z As Integer x=3: y=5: z=y Call f(x, y, z) Print x; y; z End Sub Private Sub f(B
14、yVal a As Integer,ByRefb As Integer,c As 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 16 窗体上有一个名称为 Commandl的命令按钮,其单击事件过程及相关的代码如下: Private Sub Commandl Click() Dim xAs Integer,y As Integer x=Val(InputBox(“输入整数 ”) y=Val(InputBox(“输入整数 ”)Print Str(fun(x, y)+x
15、+y) End Sub Private Function ftm(ByRef m As Integer,ByVal n As Integer) m=m*m: n=n+n: fun ( A) 27 ( B) 28 ( C) 33 ( D) 38 17 设有如下程序: Private Sub Inv(ByVal xStr As String, yStr As String) Dim tStr As String Dim L As Integer L=Len(xStr) Do While L=1 tStr=tStr+Mid(xStr,L, 1): L=L一 1 Loop yStr=tStr End
16、Sub Private Sub Form Click() Dim S1 As String, S2 As String S1=”abed&Inv S1, S2 P ( A) abedef ( B) afbecd ( C) fedcba ( D) defabc 18 设有如下程序: Pfivate SUb sV(ByVal rnAs Integer,nAs Integer) nq=m*2: n=n一 5: Print m: n End Sub Private Sub Form Click() Dim x As Integer,yAs Integer x=10: y=15: sV x, y Pri
17、nt x; y End Sub 运行程序,单击窗体,输出结果为 ( A) 20 10 10 10 ( B) 10 15 20 10 ( C) 20 15 10 15 ( D) 20 10 20 10 19 由高中数学可知,对于连续函数 f(x),若 f(x1)与 f(ra)值的符号相反,则在 x1和x2之间必存在 x0,使得 f(x0)=0(该点称为 “零点 ”)。设有 VB函数: PriVate Function f(xAs Singlel As Single可以返回 f(x)的值 (函数体没有给出 )。下面程序的功能是从键盘输入 2个实数 x1、 x2,判断在 x1、 x2之间是否存在零点
18、。 Pdvate Sub Commandl_Click() Dim x1 As Single, x2 As Single xl: =InputSox(“请 ( A) f(x1)0 Or f(x2)0 20 编写如下程序: Private Sub Command!一 Click() Dim xAs Integer,yAs Integer x=10: y=20 Call funl(x, y) Print x; y End Sub Privam Function fun!(ByVal m As Integer,nAs Integer)As Integer m=m*m: n=n+n End Funct
19、ion 程序运行后,单击命令按钮 Commandl,输出结果为 ( A) 10 25 ( B) 10 40 ( C) 100 25 ( D) 100 40 21 设有以下过程: Pfivme Sub proc(xAs Integer,Optional yAs Integer) Print x, y End Sub 针对此过程,下面正确的过程调用语句是 ( A) Call proc(a!, 23) ( B) Call proc x, 12 ( C) proc b ( D) x=Droc(12) 22 以下关于过程及过程参数的描述中,错误的是 ( A)过程的参数可以是控件名称 ( B)调用过程时使
20、用的实参的个数应与过程形参的个数相同 (假定不含可变参数 ) ( C)只有函数过程能够将过程中处理的信息返回到调用程序中 ( D)窗体可以作为过程的参数 23 窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是( A)在设计 “粘贴 ”菜单项时 ,在菜单编辑器窗口中设置了 “有效 ”属性 (有 “”) ( B)菜单中的横线是在该菜单项的标题输入框中输入了一个 “一 ”(减号 )字符 ( C)在设计 “选中 ”菜单项时,在菜单编辑器窗口中设置了 “复选 ”属性 (有 “”) ( D)在设计该弹出菜单的主 菜单项时,在菜单编辑器窗
21、口中去掉了 “可见 ”前面的“” 24 以下打开 Visual Basic菜单编辑器的操作中,错误的是 ( A)执行 “编辑 ”菜单中的 “菜单编辑器 ”命令 ( B)执行 “工具 ”菜单中的 “菜单编辑器 ”命令 ( C)单击工具栏中的 “菜单编辑器 ”按钮 ( D)右击窗体,在弹出的快捷菜单中选择 “菜单编辑器 ”命令 25 如果一个菜单项的 Enabled属性被设置为 False,则程序运行时,该菜单项 ( A)不显示 ( B)显示但无效 ( C)有效可用 ( D)不显示但有效可用 26 以下说 法中正确的是 ( A)任何时候都可以用 Ctrl+E键打开菜单编辑器 ( B)只有当某个窗体
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 选择题 模拟 166 答案 解析 DOC
