[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷10及答案与解析.doc
《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷10及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷10及答案与解析.doc(18页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(数据类型及运算)模拟试卷 10及答案与解析 一、选择题 1 若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type rec Code As Integer: Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是 ( A) Print arr Code(2), arr Caption(2) ( B) Print arr Code, arr Caption ( C) Print art(2) Code, art(2) Caption ( D) Print Code(2), Caption(2) 2
2、 以下自定义数据类型的语句中,正确的是 ( A) Type student ID As String*20name As String*10age As Integer End student ( B) Type student ID As String*20name As String*10age As Integer End Type ( C) Type student ID As String name As String ageAs Integer End student ( D) Type ID As String*20name As String*10age As Integer
3、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 在某个事件过程中定义的变量是 ( A)局部
4、变量 ( B)窗体级变量 ( C)全局变量 ( D)模块变量 8 以下关于变量作用域的叙述中,错误的是 ( A)在标准模块声明部分用 Public声明的变量的作用域为整个工程文件 ( B)在标准模块声明部分用 Private声明的变量的作用域为该标准模块 ( C)在窗体的声明部分不 能用 Private声明变量 ( D)在过程中不能使用 Public声明变量 9 如果要定义一个窗体级变量,定义变量语句的位置应该是 ( A)在使用该变量的过程中 ( B)在该窗体模块所有过程的前面 ( C)在该窗体模块所有过程的后向 ( D)在某个标准模块中 10 下面能够将某个变量声明为局部变量的是 ( A)在
5、窗体模块的声明部分,用关键字 Static声明这个变量 ( B)在窗体模块的声明部分,用关键字 Dim声明这个变量 ( C)在需要使用这个变量的过程中,用关键字 Private声明这个变量 ( D) 在需要使用这个变量的过程中,用关键字 Public声明这个变量 11 工程文件中包含一个模块文件和一个窗体文件。 模块文件的程序代码是: Public x As Integer Private y As Integer窗体文件的程序代码是: Dim a As Integer Private Sub Form_Load() Dim b As Integer a=2: b=3: x=10: y=20
6、End Sub Private Sub Command1_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 12 设窗体上有一个 Command1命令按钮,还有以下程序代码: Private Sub Command1_Click() Static x As Integer x=x+1 Call proc(x) Print x, End Sub Private S
7、ub proc(a As Integer) Static x As Integer x=x+a: a=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+501 14 Print Right(“VB Programming“, 2)语句的输出 结果是 ( A) V
8、B ( 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=1To Len(S) s1=LCase(Mid(S, i, 1)+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮,然后编写如 下事件过程: Private Sub Command1_Click() Dim Str1 As
9、 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, Shift
10、 As Integer) Dim c As String C=UCase(Chr(KeyCode): Text2 Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1中输入小写字母 a时,文本框 Text2中显示的是 ( A) A ( B) a ( C) C ( D) c 18 在窗体上画一个文本框,名称为 Text1,然后编写如下程序 : Private Sub Form_Load() Text1 Text=“: Text1 SetFocus End Sub Private Sub Form_Click() Dim avAs String, s As String a
11、: Text1 Text: s=“ For k=1To 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 Intege
12、r End Type Private Sub Command1_Click() Dim y As x y a=InputBox(“) Ify 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 Sub Form
13、_Click() num=InputBox(“请输入一个实数 “): P=InStr(num, “ “) If p 0Then 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=1To10 a(i)=Int(Rnd*100) Next x=InputBox(“输入 100以内的整数: “) p=0 For i=1To10 If a(i)=x Then p=i: Exit For End If Next If p=0Then Print“没有找到与输入数据相同的数 !“ Else Print Str(x)+“在数组中的位置是 “+ Str(p)
15、 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窗体上显示的是 ( A) Tru
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 数据类型 运算 模拟 10 答案 解析 DOC
