[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷6及答案与解析.doc
《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷6及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷6及答案与解析.doc(19页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(数据类型及运算)模拟试卷 6及答案与解析 一、选择题 1 若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type rec Code As Integer: Caption As String End Type Dim art(5)As rec 则下面的输出语句中正确的是 ( A) Print arr Code(2), arr Caption(2) ( B) Print arr Code, arr Caption ( C) Print arr(2) Code, arr(2) Caption ( D) Print Code(2), Caption(2) 2
2、以下自定义数据类型的语句中,正确的是 ( A) Type student ID As String*20 name As String*10 age As Integer End student ( B) Type student ID As String*20 name As String*10 age As Intege rEnd Type ( C) Type student ID As String name As String age As Integer End student ( D) Type ID As String*20 name As String*10 age As In
3、teger End Type student 3 下面为单精度实型 (即单精度浮点型 )变量的是 ( A) x$ ( B) x& ( C) x! ( D) x# 4 以下选项中,不合法的 Visual Basic的变量名是 ( A) a5b ( B) _xyz ( C) a_b ( D) andif 5 在标准模块中用 Public关键字定义的变量,其作用域为 ( A)本模块所有过程 ( B)整个工程 ( C)所有窗体 ( D)所有标准模块 6 以下变量名中合法的是 ( A) x-2 ( B) 12abc ( C) sum_total ( D) print 7 在某个事件过程中定义的变量是 (
4、 A)局部变量 ( B)窗体级变量 ( C)全局变量 ( D)模块变量 8 以下关于变量作用域的叙述中,错误的是 ( A)在标准模块声明部分用 Public声明的变量的作用域为整个工程文件 ( B)在标准模块声明部分用 Private声明的变量的作用域为该标准模块 ( C)在窗体 的声明部分不能用 Private声明变量 ( D)在过程中不能使用 Public声明变量 9 如果要定义一个窗体级变量,定义变量语句的位置应该是 ( A)在使用该变量的过程中 ( B)在该窗体模块所有过程的前面 ( C)在该窗体模块所有过程的后面 ( D)在某个标准模块中 10 下面能够将某个变量声明为局部变量的是
5、( A)在窗体模块的声明部分,用关键字 Static声明这个变量 ( B)在窗体模块的声明部分,用关键字 Dim声明这个变量 ( C)在需要使用这个变量的过程中,用关键字 Private声明这个变 量 ( D)在需要使用这个变量的过程中,用关键字 Public声明这个变量 11 工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是: Public x As Integer Private y As Integer窗体文件的程序代码是: Dim a As Integer Private Sub Command1_Click() Private Su bForm Load() a=a+5
6、: 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 12 设窗体上有一个 Command1命令按钮,还有以下程序代码: Private Sub Command1_Click() Private Sub proc(a As Integer) Static x As Integer Static x A
7、s Integer x=x+1 x=x+a: a=x Call proc(x) End Sub Print x, End Sub 程序运行后, 3次单击命令按钮,则产生的输出是 ( A) 1 2 3 ( B) 1 3 5 ( C) 1 3 7 ( D) 2 4 6 13 可以产生 30 50(含 30和 50)之间的随机整数的表达式是 ( A) Int(Rnd*21+30) ( B) Int(Rnd*20+30) ( C) Int(Rnd*50-Rnd*30) ( D) Int(Rnd*30+50) 14 Print Right(“VB Programming“, 2)语句的输出结果是 ( A
8、) VB ( B) Programming ( C) ng ( D) 2 15 语句: Print Int(Rnd*5+20)的输出不可能是 ( A) 20 ( B) 22 ( C) 24 ( D) 25 16 假定有以下函数过程: Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) sl=LCase(Mid(S, i, 1)+s1 Next i Fun=s1 End Function 在窗 体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Str
9、1 As String, Str2 As String Str1=InputBox(“请输入一个字符串 “): Str2=Fun(Str1) Print Str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串 “abcdefg”,则单击“确定 ” 按钮后在窗体上的输出结果为 ( A) ABCDEFG ( B) abcdefg ( C) GFEDCBA ( D) gfedcba 17 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下: Private Sub Text1 _KeyUp(KeyCode As Integer,
10、 Shift As Integer) Dim CAs String C=UCase(Chr(KeyCode): tText2 Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1中输入小写字母 a时,文本框 Text2中显示的是 ( A) A ( B) a ( C) C ( D) c 18 在窗体上画一个文本框,名称 为 Text1,然后编写如下程序: Private Sub Form_Load() Private Sub Form_Click() Text1 Text=“: Text1 SetFocus Dim a As String, s As String End
11、 Sub a=Text1 Text: s=“ For k=1 To Len(a) s=UCase(Mid(a, k, 1)+s Next k Text1 Text=s End Sub 程序运行后,在文本框中输入一个字符串,然后单击窗体,则文本框中的内容 ( A)与原字符串相同 ( B)与原字符串中字符顺序相同,但所有字母均转换为大写 ( C)为原字符串的逆序字符串,且所有字母转换为大写 ( D)为原字符串的逆序字符串 19 窗体上有一个名称为 Text1的文本框,一个名称为 Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer: b As I
12、nteger End Type Private Sub Command1_Click() Dim y As x y a=InputBox(“) If y a 2=y a 2Then y b=y a*y a Else y b: Fix(y a 2) End If Text1 Text=y b End Sub 对以上程序,下列叙述中错误的是 ( A) x是用户定义的类型 ( B) InputBox函数弹出的对话框中没有提示信息 ( C)若输入的是偶数, y b的值为该偶数的平方 ( D) Fix(y a 2)把 y a 2的小数部分四舍五入,转换为整数返回 20 设有如下程序: Private S
13、ub Form_Click() num=inputBox(“请输入一个实数 “): p=InStr(num, “ “) If p 0 Then Print Mid(num, p+1) Else Print“END“ End If End Sub 运行程序,单击窗体,根据提示输入一个数值。如果输入的不是实数,则程序输出“END”;否则 ( A)用字符方式输出该实数 ( B)输出该实数的整数部分 ( C)输出该实数的小数部分 ( D)去掉实数中的小数点,保留所有数码输出 21 窗体上有一个名称为 Command1的命令按钮,单击该按钮时所实现的功能是产生 10个随机整数,然后从键盘输入一个整数,查
14、找该数在 数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim a(10)As Integer, x As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x=InputBox(“输入 100以内的整数: “) p=0 For i=1 To 10 If a(i)=x Then p=i: Exit For End If Next If p=0 Then Print“没有找到与输 入数据相同的数 !“ Else Print Str(x)+“在数组中
15、的位置是 “+sir(p) End If End Sub 对于上述事件过程,以下叙述中正确的是 ( A)本程序实际产生的随机数是 0-99 ( B)若产生的随机数中有相同数,则 p是其中最后一个数的位置 ( C)程序有错, p的初值设置不对 ( D)程序有错, InputBox函数产生的数据与 x的类型不匹配 22 以下关系表达式中,其值为 True的是 ( A) XYZ “XYz“ ( B) VisualBasic “visualbasic“ ( C) the=“there“ ( D) Integer “Int“ 23 设 a=10, b=5, c=1,执行语句 Print a b c窗体上
16、显示的是 ( A) True ( B) False ( C) 1 ( D)出错 24 设 a=2, b=3, c=4, d=5,表达式 Not a =c Or 4*c: b 2 And b a+c的值是 ( A) -1 ( B) 1 ( C) True ( D) False 25 设: a=2, b=8, c=6, d=3,表达式 a b And Not(c d)Or d c的值是 ( A) 1 ( B) 0 ( C) True ( D) False 26 设变量 x中的值是 395,则下面语句的输出是 Print x 100+(x Mod 100) 10)*10+(x Mod 10)*100
17、 ( A) 935 ( B) 395 ( C) 539 ( D) 593 27 下列运算符中,优先级别最高的是 ( A) Not ( B) Is ( C) & ( D) And 28 下列有语法错误的赋值语句是 ( A) y=7=9 ( B) s=m+n ( C) Text1 Text=10 ( D) m+n=12 国家二级 VB机 试(数据类型及运算)模拟试卷 6答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 在标准模块中可以声明自定义类型,该类型由 Type关键字声明,在声明中要定义类型的所有域。若用自定义类型声明一个变量,则该变量拥有若干域,取得每个域的值需要用 “变量名域名
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 数据类型 运算 模拟 答案 解析 DOC
