[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷18及答案与解析.doc
《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷18及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷18及答案与解析.doc(25页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(数据类型及运算)模拟试卷 18及答案与解析 一、选择题 1 以下合法的 VB变量名是 ( A) a ( B) yPrint ( C) a-b ( D) Type 2 设在一个工程的窗体中有如下代码: Public x As Integer Private Sub Form_Load() Dim YAs Integer End Sub 在该工程的标准模块的声明部分有代码: Public a As Integer: Private b As Integer关于上述代码,以下叙述中错误的是 ( A) 变量 X的作用域是整个工程 ( B)变量 Y的作用域是 Form_Load过程
2、( C)变量 a的作用域是整个工程 ( D)变量 b的作用域是整个标准模块 3 以下不合法的 VB变量名是 ( A) filename ( B) read ( C) _y ( D) e5 4 以下关于变量作用域的叙述中,错误的是 ( A)在标准模块声明部分用 Public声明的变量的作用域为整个工程文件 ( B)在标准模块声明部分用 Private声明的变量的作用域为该标准模块 ( C)在窗体的声明部分不能用 Private声明变量 ( D)在过 程中不能使用 Public声明变量 5 下列符号常量的声明中不合法的是 ( A) Const a As Single=3 5 ( B) Const
3、a As Double=5+8 ( C) Const a As Integer=“25“ ( D) Const a=“OK“ 6 在窗体模块的声明部分声明变量时,不能使用的关键字是 ( A) Dim ( B) Public ( C) Private ( D) Static 7 下面变量定义中错误的是 ( A) Public mod As Integer ( B) Static buf ( C) Dim ch As String*10 ( D) Dim a!( 5 To 1) 8 如果要定义一个窗体级变量,定义变量语句的位置应该是 ( A)在使用该变量的过程中 ( B)在该窗体模块所有过程的前面
4、 ( C)在该窗体模块所有过程的后面 ( D)在某个标准模块中 9 下列说法中,错误的是 ( A)变量名长度不能超过 255个字符 ( B)变量名的第一个字符可以是字母或数字 ( C)变量名只能由字母、数字和下划线组成 ( D)变量名不能使用保留字 10 在标准模块中,将 a定义为 全局整型变量的语句是 ( A) Static a As Integer ( B) Dim a As Integer ( C) Private a As Integer ( D) Public a As Integer 11 下列说法中,错误的是 ( A)变量名长度不能超过 127个字符 ( B)变量名的第一个字符必
5、须是字母 ( C)变量名不能使用保留字 ( D)变量名只能由字母、数字和下划线组成 12 下面能够将某个变量声明为局部变量的是 ( A)在窗体模块的声明部分,用关键字 Static声明这个变量 ( B)在窗体模块的声明部分,用关键字 Dim声明这个变量 ( C)在需要使用这个变量的过程中,用关键字 Private声明这个变量 ( D)在需要使用这个变量的过程中,用关键字 Public声明这个变量 13 有如下过程代码: Sub var dim() Static numa As Integer Dim numb As Integer numa=numa+2: numb=numb+1: print
6、 numa; numb End Sub 连续 3次调用 var_dim过程,第 3次调用时的输出是 ( A) 2 1 ( B) 2 3 ( C) 6 1 ( D) 6 3 14 标准模块中有如下程序代码: Public x As Integer, Y As Integer Sub var_pub() x=10: y=20 End Sub 在窗体上有 1个命令按钮,并有如下事件过程: Private Sub Commandl_Click() Dim x As Integer Call var_pub x=x+100: y=y+100: Print x; y End Sub 运行程序后单击命令按钮
7、,窗体上显示的是 ( A) 100 100 ( B) 100 120 ( C) 110 100 ( D) 110 120 15 窗体上有一个 Text1文本框,一个 Commandl命令按钮,并有以下程序: Private Sub Commandl_click() Dim n If Text1 Text “123456“Then n=n+1: Print“口令输入错误 “&n&“次 “ End If End Sub 希望程序运行时得到左图所示的效果,即:输入口令,单击 “确认口令 ”命令按钮,若输入的口令不是 “123456”,则在窗体上 显示输入错误口令的次数。但上而的程序实际显示的是右图所
8、示的效果,程序需要修改。下面修改方案中正确的是 ( A)在 Dim n语句的下面添加一句: n=0 ( B)把 Print“口令输入错误 “&n&“次 “改为 Print“口令输入错误 “+n+“次 “ ( C)把 Print“口令输入错误 “&n&“次 “改为 Print“口令输入错误 “&Str(n)&“次 “ ( D)把 Dim n改为 Static n 16 工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:Public x As Integer Private Y As Integer窗体文件的程序代码是: Dim a As Integer Private Sub Co
9、mmandl_Click() Private Sub Form_Load() a=a+5: b=b+5: x=x+5: y=y+5 Dim b As Integer Print a; b; x; y a=2: b=3: x=10: Y=20 End Sub End Sub 运行程序,单击窗体上的命令按钮,则在窗体上显示的是 ( A) 5 5 15 5 ( B) 7 5 15 25 ( C) 7 8 15 5 ( D) 7 5 15 5 17 编写如下程序: Private Sub Commandl_Click() Function proc(i As Integer) Dim m As Int
10、eger,n As Integer Dim a As Integer,Static bAs Integer n=2 a=a+1: b=b+1 For m=1 T0 3 proc=a*b+i Print proc(n); End Function Next m End Sub 程序运行后,单击命令按钮 Commandl,输出结果为 ( A) 3 3 3 ( B) 3 4 5 ( C) 3 5 6 ( D) 1 2 3 18 窗体上有名称为 Commandl的命令按钮,名称分别为 Labell、 Labe12、 Labe13的标签。编写如下程序: Private x As Integer Priv
11、ate Sub Commandl_Click() Static y As Integer Dim z As Integer n=5: z=z+n: y=y+n: x=x+y Labell=x: Labe12=y: Labe13=z End Sub 运行程序,连续 3次单击命令按钮后, 3个标签中分别显示的是 ( A) 5 5 5 ( B) 15 10 5 ( C) 15 15 15 ( D) 30 15 5 19 在窗体上画一个命令按钮,然后编写如下程序: Sub inc(a As Integer) Private Sub Commandl_Click() Static x As Intege
12、r inc 2: inc 3: inc 4 x=x+a Print x; End Sub End Sub 程序运行后,第一次单击命令按钮时的输出结果为 ( A) 2 3 4 ( B) 2 5 9 ( C) 11 14 18 ( D) 4 9 16 20 设窗体上有一个 Commandl命令按钮,还有以下程序代码: Private Sub Commandl_Click() Private Sub proc(a As Integer) Static x As Integer Static x As Integer x=x+1 x=x+a: a=x Call proc(x) End Sub Prin
13、t x End Sub 程序运行后, 3次单击命令按钮,则产生的输出是 ( A) 1 2 3 ( B) 1 3 5 ( C) 1 3 7 ( D) 2 4 6 21 编写如下程序: Private Sub Commandl_Click() Dim n As Integer: Static s As Integer For n=1 To 3 s=s+n Next Print s End Sub 程序运行后,第三次单 击命令按钮 Commandl时,输出结果为 ( A) 3 ( B) 6 ( C) 9 ( D) 18 22 窗口上画一个名称为 Commandl的命令按钮,然后编写如下事件过程: P
14、rivate Sub Commmand1_Click() x=InputBox(“Input“) Select Case x Case 1, 3 Print“分支 1“ Case Is 4 Print“分支 2“ Case Else Print“Else分支 “ End Select End Sub 程序运行后,如果在输入对话框中输入 2,则窗体上显示的是 ( A)分支 1 ( B)分支 2 ( C) Else分支 ( D)程序出错 23 以下关于 MsgBox的叙述中,错误的是 ( A) MsgBox函数返回一个整数 ( B)通过 MsgBox函数可以设置信息框中图标和按钮的类型 ( C)
15、MsgBox语句没有返回值 ( D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量 24 在窗体上画一个名称为 Commandl的命令按钮,然后编写如下事件过程: Private Sub Commmand1_Click() Static x As Integer Cls For I=1 To 2 y=y+x: x=x+2 Next Print x,y End Sub 程序运行后,连续三次单击 Commandl按钮后,窗体上显示的是 ( A) 4 2 ( B) 12 18 ( C) 12 30 ( D) 4 6 25 在窗体上画一个名称为 Commandl的命令按
16、钮,然后编写如下事件过程: Private Sub Commandl_Click() A =“VisualBasic“ Print String(3, a ) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 ( A) VVV ( B) Vis ( C) sic ( D) 11 26 执行如下两条语句后,窗体上显示的是 a=9 8596 Print Format(a, “ 00, 00, 00“) ( A) 0, 009 86 ( B) 9 86 ( C) 9 86 ( D) 0, 009 86 27 设一个工程由两个窗体组成,其名称分别为 Fornm1和 Fornm2,在 Fo
17、mm1上有一 个名称为 Commandl的命令按钮。窗体 Fornm1的程序代码如下: Private Sub Commandl_Click() Private Sub g(f As Forum, x As Integer) Dim a=10 y=IIf(x 10, 100, 100) Call g(Fomm2, a) f Show End Sub f Caption=y End Sub 运行以上程序,正确的结果是 ( A) Fomm1的 Caption属性值为 100 ( B) Fornrn2的 Caption属性值为 100 ( C) Fornm1的 Caption属性值为 100 ( D
18、) Fornm2的 Caption属性值为 100 28 在窗体上画一个名称为 Commandl的命令按钮,并编写如下程序: Private Sub Commandl_Click() Private Sub f1(ByRef x1 As Integer, Dim x As Integer y1 As Integer) x=10: y=5 x1=x1+2: y1=y1+2 Call f1(x, y) End Sub Print x, y End sub 程序运行后,单击命令按钮,在窗体上显示的内容是 ( A) 10 5 ( B) 12 2 ( C) 10 7 ( D) 12 7 29 在窗体上画
19、一个名称为 File1的文件列表框,并编写如下程序: Private Sub File1_Db1Click() x=Shell(File1 FileName, 1) End Sub 以下关于该程序的叙述中,错误的是 ( A) x没有实际作用,因此可以将该语句写成 Call Shell(File1 FileName 1、 ) ( B)双击文件列表框中的文件,将触发该事件过程 ( C)要执行的文件的名字通过 File1 FileName指定 ( D) File1中显示的是的当前驱动器、当前目录下的文件 30 在窗体上画一个名称为 Commandl的命令按钮,然后编写如下程序: Option Bas
20、e 1 Private Sub Commandl_Click() Dim a As Variant a=Array(1, 2, 3, 4, 5) Sum=0 For i=1 TO 5 Sum=Sum+a(i) Next i x=Sum 5 For i=1 To 5 If a(i) x then Print a(i) Net i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 ( A) 12 ( B) 123 ( C) 345 ( D) 45 31 执行以下程序段 a =“abbacddcba“ For i=6 To 2 Step-2 X=Mid(a, i, i): Y=Left
21、(a, i) z=Reght(a, i): z=UCase(X Y z) Next i Print z 输 出的结果是 ( A) ABA ( B) ABBABA ( C) AABAAB ( D) AABAAB 32 假定一个工程由一个窗体文件 Form1和两个标准模块文件 Mode11和 Mode12组成 Mode11的代码如下: Public x As Integer: Public y As Integer Sub S1() Sub S2() x=1 y=10 S2 Form1 show End Sub End Sub Mode12的代码如下: Sub Main() S1 End Sub
22、其中 Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是 ( A) Form1Mode11Mode12 ( B) Mode11Mode12Form1 ( C) Mode12Mode11Form1 ( D) Mode12Form1Mode11 33 在窗体 (名称为 Form1)上画一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本本框中输入一个字符,则把命令按钮的标题设置为 “计算机等级考试 ”。以下能实现上述操作的时间过程是 ( A) Private Sub Text1_Change() Commandl Cap
23、tion=“计算机等级考试 “ Ead Sub ( B) Private Sub Text1_Change() Caption=“计算机等级考试 “ End Sub ( C) Private Sub Text1_Change() Text1 Caption=“计算机等级考试 “ End Sub ( D) Private Sub Text1_Change() Text1 Text=“计算机等级考试 “ End Sub 34 在窗体上画一个列表框和一个命令按钮,其名称分别为 list1和 Commandl,然后编写如下事件过程: Private Sub Form_load() List1 Addl
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 数据类型 运算 模拟 18 答案 解析 DOC
