[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷19及答案与解析.doc
《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷19及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷19及答案与解析.doc(26页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 ACCESS机试选择题(模块与 VBA编程基础)模拟试卷 19及答案与解析 一、选择题 1 若变量 i的初值为 8,则下列循环语句中循环体的执行次数为 DO While i =17 i=i+2 Loop ( A) 3次 ( B) 4次 ( C) 5次 ( D) 6次 2 InputBox函数的返回值类型是 ( A)数值 ( B)字符串 ( C)变体 ( D)视输入的数据而定 3 下列能够交换变量 X和 Y值的程序段是 ( A) Y=X: X=Y ( B) Z=X: Y=Z: X=Y ( C) Z=X: X=Y: Y=Z ( D) Z=X: W=Y: Y=Z: X=Y 4 窗体中有命令
2、按钮 commanddl和文本框 Textl,事件过程如下: Function result(ByVal X As Integer)As Boolean IfX Mod 2=0 Then result=True Flse result=False End If End Function Private Sub Comrnandl Click() x=Val(InputBox(”请输入一个整数 ”) If_Then Textl=str(x)&”是偶数 ” Else Textl=str(x)&”是奇数 ” End If End Sub 运行程序,单击命令按钮,输入 19,在 Textl中会显示 “
3、19是奇数 ”。那么在程序的空白处应填写 ( A) result(x)=”偶数 ” ( B) result(x) ( C) result(x)=”奇数 ” ( D) NOT result(x) 5 窗体有命令按钮 Commandl和文本框 Textl,对应的事件代码如下: Private Sub Command1_Click() For i=1 To 4 x=3 Forj=1 To 3 For k=1 To 2 x=x+3 Next k, j, i Text1 Value=Str(x) End Sub 运行以上事件过程,文本框中的输出是 ( A) 6 ( B) 12 ( C) 18 ( D)
4、21 6 窗体中有命令按钮 run34,对应的事件代码如下: Private Sub ran34_Enter() Dim num As Integer,a As Integer,b As Integer,i As Integer For i=1 To 10 num=InputBox(”请输入数据: ”, ”输入 ”) If Int(num 2)=num 2 Then a=a+1 Else b=b+1 End If Next i MsgBox(”运行结果: a=” Str(a) ”, b=”&Str(b) End Sub 运行以上事件过程,所完成的功能是 ( A)对输入的 10个数据求累加和 (
5、 B)对输入的 10个数据求各自的余数,然后再进行累加 ( C)对输入的 10个数据分别统计奇数和偶数的个数 ( D)对输入的 10个数据分别统计整数和非整数的个数 7 运行下列程序,输入数据 8、 9、 3、 0后,窗体中显示结果是 Private Sub Form_click() Dim sum As Integer,m As Integer sum=0 Do m=InputBox(”输入 m”) sum=sum+m Loop Until m=0 MsgBox sum End Sub ( A) 0 ( B) 17 ( C) 20 ( D) 21 8 运行下列程序段,结果是 For m=10
6、 to 1 step 0 k=k+3 Next m ( A)形成死循环 ( B)循环体不执行即结束循环 ( C)出现语法错误 ( D)循环体执行一次后结束循环 9 运行下列程序,结果是 Private Sub Command32 Click() f0=1: f1=1: k=1 Do While k =5 f=f0+f1 : f0=f1 f1=f: k=k+1 Loop MsgBox”f=” f End Sub ( A) f=5 ( B) f=7 ( C) f=8 ( D) f=13 10 有如下事件程序,运行该程序后输出结果是 Private Sub Command33_Click() Dim
7、 x As Integer,Y As Integer x=1: V=0 Do Until v =25 y=y+x*x: x=x+1 Loop MsgBox”x=“ x “ y=”&y End Sub ( A) x=1, y=0 ( B) x=4, y=25 ( C) x=5, y=30 ( D)输出其他结果 11 下列程序的功能是计算 sum=1+(1+3)+(1+3+5)+(1+3+5+39) Private Sub Command34 Click() t=0: m=1: sum=0 Do T=t+m Sum=Sum+t m= Loop While m =39 MsgBox”Sum=”&su
8、n End Sub 为保证程序正确完成上述功能,空白处应填入的语句是 ( A) m+1 ( B) m+2 ( C) t+1 ( D) t+2 12 由 “For i=1 To 16 Step 3”决定的循环结构被执行 ( A) 4次 ( B) 5次 ( C) 6次 ( D) 7次 13 若有以下窗体单击事件过程: Private Sub Form Click() result=1 For i=1 To 6 steo 3 result=result*i Nexti MsgBox result End Sub 打开窗体运行后,单击窗体,则消息框的输出内容是 ( A) 1 ( B) 4 ( C) 1
9、5 ( D) 120 14 窗体中有命令按钮 Command32,其 Click事件代码如下。该事件的完整功能是:接收从键盘输入的 10个大于 0的整数,找出其中的最大值和对应的输入位置。 Private Sub Command32 Click() max=0: max n=0 For i=1 T0 10 num=Val(InputBox(”请输入第 ”&i&”个大于 0的整数 ”) If_Then max=hum : max_n=i End If Next i MsgBox(”最大值为第 ”&max_n&”个输入的 ”&max) End Sub 程序空白处应该填入的表达式是 ( A) num
10、 i ( B) i max ( C) num max ( D) num max 15 若有如下 sub过程: Sub sfun(x As Single, Y As Single) t=x: x=t y y=t Mod Y End Sub 在窗体中添加一个命令按钮 command33,对应的事件过程如下: Private Sub Command33 Click() Dim aAs Single, b As Single a=5: b=4 sfun(a, b) MsgBox a chr(10)+chr(13)&b End Sub 打开窗体运行后,单击命令按钮,消息框中有两行输出,内容分别为 ( A
11、) 1和 1 ( B) 1 25和 1 ( C) 1 25和 4 ( D) 5和 4 16 运行下列程序,显示的结果是 Private Sub Command34_Click() i=0 DO i=i+1 Loop While i 10 MsgBox i End Sub ( A) 0 ( B) 1 ( C) 10 ( D) 11 17 运行下列程序,在立即窗口显示的结果是 Private Sub CommandO Click() Dim IAs Integer,JAs Integer For I=2 To 10 For J=2 To I 2 If I raad J=0 Then Exit Fo
12、r Next J IfJ sqr(I)Then Debug Print I; Next I End Sub ( A) 1 5 7 9 ( B) 4 6 8 ( C) 3 5 7 9 ( D) 2 3 5 7 18 运行下列过程, 当输入一组数据: 10, 20, 50, 80, 40, 30, 90, 100, 60,70,输出的结果应该是 Sub Pl() Dim i,j, arr(11)As Integer k=1 While k =10 aIr(k)=Val(InputBox(”请输入第 ”&k&”个数: ”, ”输入窗口 ”) k=k+1 Wend For i=1 To 9 j=i+1
13、 If arr(i) arr(j)Then temp=arr(i): arr(i)=arr(j): arr(j)=temp End If Debug Print arr(i) Next i End Sub ( A)无序数列 ( B)升序数列 ( C)降序数列 ( D)原输入数列 19 下列程序的功能是计算 N=2+(2+4)+(2十 4+6)+(2+4+6+40) 的值。 Private Sub Command34_Click() t=0: m=0: sum=0 Do t=t+m: sum=sum+t m=_ Loop While m 41 MsgBox”sum=”&sum End Sub 空
14、白处应该填写的语句是 ( A) t+2 ( B) t+1 ( C) m+2 ( D) m+1 20 在窗体中有一个名为 Commandl的命令按钮,事件代码如下: Private Sub Command l Click() Dim m(10) For k=1 To 10 m(k)=11-k Next k x=6 MsgBox m(2+m(x) End Sub 打开窗体,单击命令按钮,消息框的输出结果是 ( A) 2 ( B) 3 ( C) 4 ( D) 5 21 在窗体中有一个名为 run34的命令按钮,事件代码如下: Private Sub run34_Click() f1=1: f2=1
15、For n=3 To 7 f=f1+f2 : m f1=f2: f2=f Next n MsgBox f End Sub 打开窗体,单击命令按钮,消息框的输出结果 是 ( A) 8 ( B) 13 ( C) 21 ( D)其他结果 22 假定有如下的 Sub过程: Sub sfun(x As Single, y As Single) t=x: x=t y y=t Mod y End Sub 在窗体上添加一个命令按钮 (名为 Commandl),然后编写如下事件过程: Private Sub Command1_Click() Dim a as single, b as single a=5: b
16、=4 sfun a,b MsgBox a&chr(10)+chr(13) b End Sub 打开窗体运行后,单击命令按钮,消息框的两行输出内容分别为 ( A) 1和 1 ( B) 1 25和 1 ( C) 1 25和 4 ( D) 5和 4 23 Sub过程与 Function过程最根本的区别是 ( A) Sub过程的过程名不能返回值,而 Function过程能通过过程名返回值 ( B) Sub过程可以使用 Call语句或直接使用过程名调用,而 Function过程不可以 ( C)两种过程参数的传递方式不同 ( D) Function过程可以有参数, Sub过程不可以 24 在窗体中添加一个
17、名称为 Commandl的命令按钮,然后编写如下程序: Public xAs Integer Private Sub sl() Private Sub Command l_Click() x=x+20 x=10 End Sub Call sl Private Sub s2() Call s2 Dim x As Integer MsgBox x x=x+20 End Sub End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为 ( A) 10 ( B) 30 ( C) 40 ( D) 50 25 在过程定义中有语句: Private Sub GetData(ByRef f As I
18、nteger) 其中 “ByRef”的含义是 ( A)传值调用 ( B)传址调用 ( C)形式参数 ( D)实际参数 26 若要在子过程 Procl调用后返回两个变量的结果,下列过程定义语句中有效的是 ( A) Sub Proc 1(n, m) ( B) Sub Procl(ByVal n, m) ( C) Sub Procl(n, BYVal m) ( D) Sub Procl(ByVal n, ByVal m) 27 在过程定义中有语句: Private Sub GetData(ByVal data As Integer) 其中 “ByVal“的含义是 ( A)传值调用 ( B)传址调用
19、( C)形式参数 ( D)实际参数 28 要想在过程 Proc调用后返回形参 x和 y的变化结果,下列定义语句中正确的是 ( A) Sub Proc(x as Integer,y as Integer) ( B) Sub Proc(ByVal x as Integer, y as Integer) ( C) Sub Proc(x as Integer, ByVal y as Integer) ( D) Sub Proc(ByVal x as Integer, ByVal y as Integer) 29 在 VBA中,下列关于过程的描述中正确的是 ( A)过程的定义可以嵌套,但过程的调用不能嵌
20、套 ( B)过程的定义不可以嵌套,但过程的调用可以嵌套 ( C)过程的定义和过程的调用均可以嵌套 ( D)过程的定义和过程的调用均不能嵌套 30 在窗体上有一个命令按钮 Commandl,编写事件代码如下: Private Sub Commandl_Click() Dim X As Integer,Y As Integer x=12: y=32 Call Proc(x, y) End Sub Public Sub Proch As Integer,ByVal m As Integer n=n Mod 10 m=m Mod 10 End Sub 打开窗体运行后,单击命令按钮,立即窗 El上输出的
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 ACCESS 选择题 模块 VBA 编程 基础 模拟 19 答案 解析 DOC
