[计算机类试卷]国家二级VB机试(过程、多重窗体与环境应用)模拟试卷2及答案与解析.doc
《[计算机类试卷]国家二级VB机试(过程、多重窗体与环境应用)模拟试卷2及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(过程、多重窗体与环境应用)模拟试卷2及答案与解析.doc(20页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(过程、多重窗体与环境应用)模拟试卷 2及答案与解析 一、选择题 1 下面不能在信息框中输出 “VB”的是 ( A) MsgBox“VB“ ( B) x=MsgBox(“VB“) ( C) MsgBox(“VB“) ( D) Call MsgBox“VB“ 2 设子程序过程定义的首部为: Public Sub s(X As Integer, Y As Single)则以下正确的调用形式为 ( A) Call S5, 4 8 ( B) Call Sub(5, 4 8) ( C) Sub5, 4 8 ( D) S5, 4 8 3 设有如下 Command1的单击事件过程及 fun
2、过程: Private Sub Command1_Click() Private Sub fun(x As Integer) Dim x As Integer If x Mod2=0Then fun(x 2) x=Val(InputBox(“请输入一个整数 “) Print x; fun(x) End Sub End Sub 执行上述程序,输入 6,结果是 ( A) 3 6 ( B) 6 3 ( C) 6 ( D)程序死循环 4 以下关于函 数过程的叙述中,正确的是 ( A)函数过程形参的类型与函数返回值的类型没有关系 ( B)在函数过程中,过程的返回值可以有多个 ( C)当数组作为函数过程的
3、参数时,既能以传值方式传递,也能以传址方式传递 ( D)如果不指明函数过程参数的类型,则该参数没有数据类型 5 在窗体上画一个命令按钮 (名称为 Command1),并编写如下代码: Function Fun1(ByVal a As Integer, b As Integer)As Integer Dim t As Integer t=a-b: b=t+a: Fun1=t+b End Function Private Sub Command1_Click() Dim x As Integer x=10 Print Fun1(Fun1(x, (Fun1(x, x-1), x-1) End Sub
4、 程序运行后,单击命令按钮,输出结果是 ( A) 10 ( B) 0 ( C) 11 ( D) 21 6 现有如下程序: Private Sub Command1_Click() s=0 For i=1To5 a=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x =10Then t=x+1 Else t=x+2 End If f=t End Function 运行程序,则窗体上显示的是 ( A) 38 ( B) 49 ( C) 61 ( D) 70 7 求 1!+2!+10! 的程序如下: Private Fu
5、nction s(x As Integer) f=1 For i=1To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer, y As Long For i=1To10 ( ) Next Print y End Sub 为实现功能要求,程序的括号中应该填入的内容是 ( A) Call s(i) ( B) Call s ( C) y=y+s(i) ( D) y=y+s 8 设有如下事件过程: Private Sub Command1_Click()Dim a a=Array(12, 3, 8,
6、5, 10, 3, 5, 9, 2, 4) For k=1To9 Print fun(a(k-1), a(k); “ “; Next k End Sub Private Function fun(x, y)As Integer Do While x =y x=x-y Loop fun=x End Function 程序运行时的输出结果是 ( A) 4 0 1 0 3 0 0 4 0 ( B) 0 3 3 5 1 3 5 1 2 ( C) 9 -5 3 -5 7 -2 -4 7 -2 ( D) 9 3 3 5 7 3 5 7 2 9 窗体上有一个名称为 Command1的命令按钮,其单击事件过程
7、及相关的函数过程如下: Private Sub Command1_Click()Dim i As Integer For i=1To500 If p(i)Then s=s+1 Next Print s End Sub Private Function p(x As Integer)As Boolean If x Mod7 0Then p=True Else p=False End If End Function 关于上述程序,以下叙述中正确的是 ( A)程序功能是统计 1500范围内能被 7整除的整数个数 ( B) Command1_Click事件过程中 If语 句的条件表达式不完整 ( C)
8、 Function过程定义有误,函数过程 p的名称与该过程中的变量名 p相同 ( D)函数过程 p的返回值为 Boolean类型 10 以下叙述中错误的是 ( A)在通用过程中,多个形式参数之间可以用逗号作为分隔符 ( B)在 Print方法中,多个输出项之间可以用逗号作为分隔符 ( C)在 Dim语句中,所定义的多个变量可以用逗号作为分隔符 ( D)当一行中有多个语句时,可以用逗号作为分隔符 11 下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer 若要输出 8、 12、 16这 3个数
9、的最大公约数,下面正确的语句是 ( A) Print gcd(8, 12), gcd(12, 16), gcd(16, 8) ( B) Print god(8, 12, 16) ( C) Print gcd(8), gcd(12), gcd(16) ( D) Print gcd(8, gcd(12, 16) 12 以下过程定义中正确的过程首行是 ( A) Private Sub Proc(Optional a as Integer, b as Integer) ( B) Private Sub Proc(a as Integer)as Integer ( C) Private Sub Proc
10、(a()As Integer) ( D) Private Sub Proc(ByVal a()As Integer) 13 有下面程序代码: Private Sub Command1_Click() Dim x As Integer, S As Integer x=1 For k=1To3 x=x+1: proc x: s=s+x Next k Print s End Sub Private Sub proc(ByVal a As Integer) Static x As Integer x=x+1: a=a+x End Sub 程序运行后,单击命令按钮 Command1,输出结果是 ( A)
11、 6 ( B) 9 ( C) 15 ( D) 19 14 在窗体上画一个名称为 Command1的命令按钮,再画两个名称分别为 Label1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click() X=5: Y=3 Call proc(X, Y) Label1 Caption=X: Label2 Caption=Y End Sub Private Sub proc(a As Integer, ByVal b As Integer) X=a*a: Y=b+b End Sub 程序运行后,单击命令按钮,则两个标
12、签中显示的内容分别是 ( A) 25和 3 ( B) 5和 3 ( C) 25和 6 ( D) 5和 6 15 命任何一个滚动条滚动框件过程如下: Private Sub Command1_Click() Private Function f(y As Integer) x=10 Print f(x) f=y*y End Sub End Function 运行上述程序,如下叙述中正确的是: ( A)程序运行出错, x变量的类型与函数参数的类型不符 ( B)在窗体上显示 100 ( C)函数定义错,函数名 f不能又作为变量名 ( D)在窗体上显示 10 16 现有程序如下: Option Bas
13、e1 Private Sub Form_Click() Dim x(5, 6)As Integer, y(5)As Integer For i=1To5 For i=1To6 x(i, j)=Int(Rnd*9+1) Next j Next i Call f(5, 6, x, y) For i=1To5 Print y(i); Next i End Sub Sub f(m As Integer, n As Integer, a()As Integer, b() As Integer) For i=1Tom b(i)=0 For j=1Ton b(i)=b(i)+a(i, j) Next j N
14、ext i End Sub 关于上述程序,以下叙述中正 确的是 ( A)调用过程语句有错,参数不匹配 ( B)程序有错,数组下标越界 ( C) y数组中保存的是 x数组每行数据之和 ( D) x数组中数据的取值范围是 110 17 窗体上有一个名称为 Command1的命令按钮,并有如下程序代码: Private Sub Command1_Click() Static a a=1: b=2: c=3 Callf(a, b, c) Print a; b; C End Sub Sub f(ByVal x, ByRef y, z) x=x+1: y=y+1: z=z+1 End Sub 运行 程序,
15、单击命令按钮,窗体上显示的是 ( A) 1 3 3 ( B) 1 3 4 ( C) 2 3 3 ( D) 2 3 4 18 窗体上有一个名称为 Command1的命令按钮,其单击事件过程及相关的代码如下: Private Sub Command1_Click() Dim x As Integer, y As Integer x=Val(InputBox(“输入整数 “) y=Val(InputBox(“输入整数 “)Print Str(fun(x, y)+x+y) End Sub Private Function fun(ByRef m As Integer, ByVal n As Integ
16、er) m=m*m: n=n+n: fun=m+n End Function 运行程序,单击命令按钮时,出现输入对话框,分别输入 3、 5,则窗体上显示的是 ( A) 27 ( B) 28 ( C) 33 ( D) 38 19 设有如下程序: 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() Dim x As Integer, y As Integer x=10: y=15: sV x, y Print x; y End Sub 运
17、行程序,单击窗体,输出结果为 ( A) 20 10 10 10 ( B) 10 15 20 10 ( C) 20 15 10 15 ( D) 20 10 20 10 20 编写如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x=10: y=20 Call fun1(x, y) Print x; y End Sub Private Function fun1(ByVal m As Integer, n As Integer)As Integer m=m*m: n=n+n End Function 程序运行后,单击
18、命令按钮 Commandl,输出结果为 ( A) 10 25 ( B) 10 40 ( C) 100 25 ( D) 100 40 21 以下关于过程及过程参数的描述中,错误的是 ( A)过程的参数可以是控件名称 ( B)调用过程时使用的实参的个数应与过程形参的个数相同 (假定不含可变参数 ) ( C)只有函 数过程能够将过程中处理的信息返回到调用程序中 ( D)窗体可以作为过程的参数 22 下列操作中不能向工程添加窗体的是 ( A)执行 “工程 ”菜单中的 “添加窗体 ”命令 ( B)单击工具栏上的 “添加窗体 ”按钮 ( C)右击窗体,在弹出的菜单中选择 “添加窗体 ”命令 ( D)右击工
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 过程 多重 窗体 环境 应用 模拟 答案 解析 DOC
