[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷28及答案与解析.doc
《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷28及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷28及答案与解析.doc(23页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(数据类型及运算)模拟试卷 28及答案与解析 一、选择题 1 以下关于变量作用域的叙述中错误的是 ( A)在窗体模块的声明部分声明的 Private变量,其作用域是窗体内的所有过程 ( B)在标准模块的声明部分声明的 Private变量,其作用域是模块内的所有过程 ( C)在窗体模块的声明部分声明的 Pubilc变量,其作用域是本窗体的所有过程 ( D)在标准模块的声明部分声明的 Pubilc变量,其作用域是应用程序的所有过程 2 在某个事件过程中定义的变量是 ( A)局部变量 ( B)窗体 级变量 ( C)全局变量 ( D)模块变量 3 以下合法的 VB变量名是 ( A)
2、_a ( B) yPrint ( C) ab ( D) Type 4 设在一个工程的窗体中有如下代码: Public XAs Integer Private Sub Form_Load() Dim Y As Integer End Sub 在该工程的标准模块的声明部分有代码: Public a As Integer: Private b As Integer 关于上述代码,以下叙述 中错误的是 ( A)变量 X的作用域是整个工程 ( B)变量 Y的作用域是 Form_Load过程 ( C)变量 a的作用域是整个工程 ( D)变量 b的作用域是整个标准模块 5 以下不合法的 VB变量名是 ( A
3、) filename ( B) read ( C) _y ( D) e5 6 以下关于变量作用域的叙述中,错误的是 ( A)在标准模块声明部分用 Public声明的变量的作用域为整个工程文件 ( B)在标准模块声明部分用 Private声明的变量的作用域为该标准模块 ( C)在窗体的声明部分不能用 Private声 明变量 ( D)在过程中不能使用 Public声明变量 7 下列符号常量的声明中不合法的是 ( A) Const a As Single=3 5 ( B) Const a As Double=5+8 ( C) Const a As Integer=”25” ( D) Const a
4、=”OK” 8 在窗体模块的声明部分声明变量时,不能使用的关键字是 ( A) Dim ( B) Public ( C) Private ( D) Static 9 下面变量定义中错误的是 ( A) Public mod As Integer ( B) Static buf ( C) Dim ch As String*10 ( D) Dim a!(-5 To1) 10 如果要定义一个窗体级变量,定义变量语句的位置应该是 ( A)在使用该变量的过程中 ( B)在该窗体模块所有过程的前面 ( C)在该窗体模块所有过程的后面 ( D)在某个标准模块中 11 下列说法中,错误的是 ( A)变量名长度不能
5、超过 255个字符 ( B)变量名的第一个字符可以是字母或数字 ( C)变量名只能由字母、数字和下划线组成 ( D)变量名不能使用保留字 12 在标准模块中,将 a定义为全局整型变量的语句是 ( A) Static a As Integer ( B) Dim a As Integer ( C) Private a As Integer ( D) Public a As Integer 13 下列说法中,错误的是 ( A)变量名长度不能超过 127个字符 ( B)变量名的第一个字符必须是字母 ( C)变量名不能使用保留字 ( D)变量名只能由字母、数字和下划线组成 14 下面能够将某个变量声明为
6、局部变量的是 ( A)在窗体模块的声明部分,用关键字 Static声明这个变量 ( B)在窗体模块的声明部分,用关键字 Dim声明这个变量 ( C)在需要使用这个变量的过程中,用关键字 Private声明这个变量 ( D)在需要使用这个变量的过程中,用关键字 Public声明这个变量 15 有如下过程代码: Sub var_dim() Static numa As Integer Dim numb As Integer numa=numa+2: numb=numb+1: print numa; numb End Sub 连续 3次 调用 var_dim过程,第 3次调用时的输出是 ( A) 2
7、 1 ( B) 2 3 ( C) 6 1 ( D) 6 3 16 标准模块中有如下程序代码: Public X As Integer, Y As Integer Sub var_pub() x=10: y=20 End Sub 在窗体上有 1个命令按钮,并有如下事件过程: Private Sub Commandl_Click() Dim XAs Integer Call var pub x=x+100: y=y+100: Print x; y End Sub 运行程序后单击命令按钮,窗体上显示的是 ( A) 100 1 00 ( B) 100 120 ( C) 110 100 ( D) 110
8、 120 17 窗体上有一个 Textl文本框,一个 Commandl命令按钮,并有以下程序: Private Sub Commandl_Click() Dim n IfTextl Text”123456”Then n=n+1 Print”口令输入错误 ”&n&”次 ” End If End Sub 希望 程序运行时得到左图所示的效果,即:输入口令,单击 “确认口令 ”命令按钮,若输入的口令不是 “123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是 ( A)在 Dim n语句的下面添加一句: n=0 ( B)把 Pri
9、nt”口令输入错误 ”&n&”次 ”改为 Print”口令输入错误 ”+n+”次 ” ( C)把 Print”口令输入错误 ”&n&”次 ”改为 Print”口令输入错误 ”&Str(n) ”次 ” ( D)把 Dim n改为 Static n 18 工 程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:Public XAs Integer Private Y As Integer窗体文件的程序代码是: Dim aAs Integer Private Sub Form_Load() Dim b As Integer a=2: b=3: x=10: y=20 End Sub Priv
10、ate Sub Commandl_Click() a=a+5: b=b+5: x=x+5: y=y+5 Print a; b; x; y End Sub 运行程序,单击窗体上的命令按钮,则在窗体上显示的是 ( A) 5 5 15 5 ( B) 7 5 15 25 ( C) 7 8 15 5 ( D) 7 5 15 5 19 编写如下程序: Private Sub Commandl_Click() Dim m As Integer,n As Integer n=2 For m=1 To 3 Print proc(n); Next m End Sub Function proc(i As Inte
11、ger) Dim a As Integer,Static b As Integer a=a+1: b=b+1 proc=a*b+i End Function 程序运行后,单击命令按钮 Commandl,输出结果为 ( A) 3 3 3 ( B) 3 4 5 ( C) 3 5 6 ( D) 1 2 3 20 窗体上有名称为 Commandl的命令按钮,名称分别为 Labell、 Label2、 Label3的标签。编写如下程序: Private x As Integer Private Sub Commandl_Click() Static vAs Integer Dim zAs Integer
12、 n=5: z=z+n: y=y+n: x=x+y Label1=x: Label2=y: Label3=z End Sub 运行程序,连续 3次单击命令按钮后, 3个标签中分别显示的是 ( A) 5 5 5 ( B) 15 10 5 ( C) 15 15 15 ( D) 30 15 5 21 在窗体上画一个命令按钮,然后 编写如下程序: Sub inc(a As Integer) Static x As Integer x=x+a Print x; End Sub Private Sub Commandl_Click() inc 2: inc 3: inc 4 End Sub 程序运行后,第
13、一次单击命令按钮时的输出结果为 ( A) 2 3 4 ( B) 2 5 9 ( C) 11 14 18 ( D) 4 9 16 22 设窗体上有一个 Commandl命令按钮,还有以下程序代码: Private Sub Commandl_Click() Static x As Integer x=x+l Call proc(x) Print x, End Sub Private Sub proc(a As Integer) Static x As Integer X=x+a: a=x End Sub 程序运行后, 3次单击命令按钮,则产生的输出是 ( A) 1 2 3 ( B) 1 3 5 (
14、 C) 1 3 7 ( D) 2 4 6 23 编写如下程序: 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 24 窗口上画一个名称为 Commandl的命令按钮,然后编写如下事件过程: Private Sub Commmandl_Click() x=InputB ox(”Input”) Select Cas
15、e x Case 1 3 Print”分支 1” Case Is4 Print”分支 2” Case Else Print”Else分支 ” End Select End Sub 程序运行后,如果在输入对话框中输入 2,则窗体上显示的是 ( A)分支 1 ( B)分支 2 ( C) Else分支 ( D)程序出错 25 以 下关于 MsgBox的叙述中,错误的是 ( A) MsgBox函数返回一个整数 ( B)通过 MsgBox函数可以设置信息框中图标和按钮的类型 ( C) MsgBox语句没有返回值 ( D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量 26
16、 在窗体上画一个名称为 Commandl的命令按钮,然后编写如下事件过程: Private Sub Commmandl_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 27 在窗体上画一个名称为 Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() AS=”VisualBasic”
17、 Print String(3, aS) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 ( A) VVV ( B) Vis ( C) sic ( D) 11 28 执行如下两条语句后,窗体上显示的是 a=9 8596 Print Format(a, ”$00, 00, 00”) ( A) 0, 009 86 ( B) $9 86 ( C) 9 86 ( D) $0, 009 86 29 设一个工程由两个窗体组成,其名称分别为 Fornm1和 Fornm2,在 Fornm1上有一个名称为 Commandl的命令按钮。窗体 Fomml的程序代码如下: Private Sub Co
18、mmandl_Click() Dim a=10 Call g(Fomm2, a) End Sub Private Sub g(fAs Forum, x As Integer) y=IIf(x10, 100, -100) f Show f Caption=y End Sub 运行以上程序,正确的结果是 ( A) Fornml的 Caption属性值为 100 ( B) Forum2的 Caption属性值为一 100 ( C) Fornml的 Caption属性值为 -100 ( D) Forum2的 Caption属性值为 100 30 在窗体上画一个名称为 Commandl的命令按钮,并编写
19、如下程序: Private Sub Command l Click() Dim x As Integer x=10: y=5 Call fl(x, y) Print x, y End sub Private Sub fl(ByRef x 1 As Integer, _ y1 As Integer) x1=x1+2: y1=y1+2 End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 ( A) 10 5 ( B) 12 2 ( C) 10 7 ( D) 12 7 31 在窗体上画一个名称为 Filel的文件列表框,并编写如下程序: Private Sub File1_DblClick
20、O x=Shell(File1 FileName, 1) End Sub 以下关于该程序的叙述中,错误的是 ( A) x没有实际作用,因此可以将该语句写成 Call Shell(Filel FileName, 1) ( B)双击 文件列表框中的文件,将触发该事件过程 ( C)要执行的文件的名字通过 Filel FileName指定 ( D) Filel中显示的是的当前驱动器、当前目录下的文件 32 在窗体上画一个名称为 Commandl的命令按钮,然后编写如下程序: Option Base1 Private Sub Commandl_Click() Dim a As Variant a=Arr
21、ay(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) Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 ( A) 12 ( B) 123 ( C) 345 ( D) 45 33 执行以下程序段 aS=”abbacddcba” For i=6 To 2 Step一 2 X=Mid(a, i, i): Y=Lefl(a, i) z=Right(a, i): z=UCase(X Y z) Next i Print Z 输出
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 数据类型 运算 模拟 28 答案 解析 DOC
