[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷9及答案与解析.doc
《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷9及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷9及答案与解析.doc(19页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(数据类型及运算)模拟试卷 9及答案与解析 一、选择题 1 为把圆周率的近似值 3 14159存放在变量 pi中,应该把变量 pi定义为 ( A) Dim pi As Integer ( B) Dim pi(7) As Integer ( C) Dim pi As Single ( D) Dim pi As Long 2 有如下语句序列: Dim a b As Integer Print a Print b执行以上语句序列,下列叙述中错误的是 ( A)输出的 a值是 0 ( B)输出的 b值是 0 ( C) a是变体类型变量 ( D) b是整型变量 3 假定有如下的程序段:
2、Dim intVar As Integer intvar=True Print intVar则输出结果是 ( A) 0 ( B) -1 ( C) True ( D) False 4 双精度浮点数的类型说明符为 ( A) ( B) # ( C) & ( D) 5 设窗体文件中有下面的事件过程: Private Sub Command1_Click()Dim s a =100 Print a End Sub 其中变量 a和 s的数据类型分别是 ( A)整型,整型 ( B)变体型,变体型 ( C)整型,变体型 ( D)变体型,整型 6 有数据定义语句: Dim X, Y As Integer以上语句
3、表明 ( A) X、 Y均是整型变量 ( B) X是整型变量, Y是变体类型变量 ( C) X是变体类型变量, Y是整型变量 ( D) X是整型变量, Y是字符型变量 7 以下关于变量作用域的叙述中错误的是 ( A)在窗体模块的声明部分声明的 Private变量,其作用域是窗体内的所有过程 ( B)在标准模块的声明部分声明的 Private变量,其作用域是模块内的所有过程 ( C)在窗体模块的声明部分声明的 Pubilc变量,其作用域是本窗体的所有过程 ( D)在标准模块的声明部分声明的 Pubilc变量,其作用域是应用程序的所有过程 8 以下不合法的 VB变量名是 ( A) filename
4、 ( B) read ( C) _y ( D) e5 9 下面变量定义中错误的是 ( A) Public rood As Integer ( B) Static buf ( C) Dim ch As String*10 ( D) Dim a!(-5To-1) 10 下列说法中,错误的是 ( A)变 量名长度不能超过 127个字符 ( B)变量名的第一个字符必须是字母 ( C)变量名不能使用保留字 ( D)变量名只能由字母、数字和下划线组成 11 窗体上有一个 Text1文本框,一个 Command1命令按钮,并有以下程序: Private Sub Command1_click()Dim nIf
5、 Textl Text “123456“Thenn=n+1: Print“口令输入错误 “&n&“次 “End IfEnd Sub希望程序运行时得到左图所示的效果,即:输入口令,单击 “确认口令 ”命令按钮,若输入的口令不是 “123456”,则在窗体上显示输入错误口令的次数。但上而的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是 ()。( A)在 Dim n语句的下面添加一句: n=0 ( B)把 Print”口令输入错误 “&n&“次 “改为 Print“口令输入错误 “+n+t“次 “ ( C)把 Print“口令输入错误 “&n&“次 “改为 Print“口令输入
6、错误 “&Str(n)&“次 “ ( D)把 Dim 改为 Static n 12 在窗体上画一个命令按钮,然后编写如下程序: Sub inc(a As Integer) Static x As Integer x=x+a Print x: End Sub Private Sub Command1_Click() inc2: inc3: inc4 End Sub 程序运行后,第一次单击命令按钮时的输出结果为 ( A) 2 3 4 ( B) 2 5 9 ( C) 11 14 18 ( D) 4 9 16 13 执行以下程序段 aS=“Visual Basic Programming“: b$=“
7、C+“ c$=UCase(Left$(a$, 7)& b$ & Right$(a$, 12) 变量 c$的值为 ( A) Visual BASIC Programming ( B) VISUAL C+Programming ( C) Visual C+Programming ( D) VISUAL BASIC Programming 14 要计算 x的平方根并放入变量 y,正确的语句是 ( A) y=Exp(x) ( B) y=Sgn(x) ( C) y=Int(x) ( D) y=Sqr(x) 15 语句: Print Asc(Chr$(Mid$(“98765432“, 4, 2)的输出是
8、( A) 65 ( B) A ( C) 8765 ( D) W 16 设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr=“ strL=Len(xStr)i=1 Do While i =strL 2 tStr=tStr&Mid(xStr, i, 1)&Mid(xStr,strL-i+1, 1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程: Private Sub
9、 Command1_Click() Dim S1 As String S1=“abcdef“: Print UCase(Fun(S1) End Sub 程序运行后,单击命令按钮,输出结果是 ( A) ABCDEF ( B) abcdef ( C) AFBECD ( D) DEFABC 17 窗体上有一个名称为 Text1的文本框,一个名称为 Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer: b As Integer End Type Private Sub Command1_Click() Dim y As x y a=InputBox
10、(“ “) 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的小数部分四舍五入,转换为整数返回 18 设有如下程序: Private Sub Form_Click() num=InputBox(“请输入一个实数 “): P=InStr(num, “ “) If p 0T
11、hen Print Mid(num, p+1) Else Print“END“ End If End Sub 运行程序单击窗体,根据提示输入一个数值。如果不是输入实数,则输出 “END”;否则 ( A)用字符方式输出该实数 ( B)输出该实数的整数部分 ( C)输出该实数的小数部分 ( D)去掉实 数中小数点,保留所有数码输出 19 窗体上有一个名称为 Command1的命令按钮,单击该按钮时所实现的功能是产生 10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Comman
12、d1_Click() Dim a(10)As Integer, x As Integer For i=1To10 a(i)=Int(Rnd*100) Next x=InputBox(“输入 100以内的整数: “): P=0 Fori=1To10 If a(i)=xThen p=i: Exit For End If Next If p=0Then Print“没有找到与输入数据相同的数 !“ Else Print Str(x)+“在数组中的位置是 “+Str(p) End If End Sub 对于上述事件过程,以下叙述中正确的是 ( A)本程序实际产生的随机数是 0-99 ( B)若产生的随
13、机数中有相同数,则 p是其中最后一个数的位置 ( C)程序有错, p的初值设置不对 ( D)程序有错, InputBox函数产生的数据与 x的类型不 匹配 20 窗体上有 1个名称为 Command1的命令按钮,事件过程如下: Private Sub Command1_Click() m=-3 6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Printn End Sub 运行程序,并单击命令按钮,窗体上显示的内容为: ( A) -4 ( B) -3 ( C) 3 ( D) 3 6 21 以下程序的功能是随机产生 10个两位的整数: Option Ba
14、se1 Private Sub Command1_Click() Dim a(10)As Integer, i As Integer Randomize For i=1To10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序,发现有错误,需要对产生随机数的语句进行修改。以下正确的修改是 ( A) a(i)=Int(Rnd*100) ( B) a(i)=Int(Rnd*90)+10 ( C) a(i)=Int(Rnd*100)+10 ( D) a(i)=Int(Rnd*101) 22 设 a=4, b=5, c=6,执行语句 Print
15、a b And b c窗体上显示的是 ( A) True ( B) False ( C)出错信息 ( D) 0 23 设 a=2, b=3, c=4, d=5,下列表达式的值是 a b And c =d Or2*a c ( A) True ( B) False ( C) -1 ( D) 1 24 已知 a=6, b=15, c=23,则语句 Print Sgn(a+bMod6-c a)&a+b的输出结果为 ( A) 6 ( B) 16 ( C) 31 ( D) 121 25 表达式 12 2 4的值是 ( A) 1 5 ( B) 2 ( C) 4 ( D) 1 26 设 A、 B、 C是三角形
16、的 3条边,则以下表示 “任意两边之和大于第三边 ”的布尔表达式是 ( A) A+B C Or A+C B Or B+C A ( B) A+B C Or A+C B Or B+C A ( C) No(A+B =C Or A+C =B Or B+C =A) ( D) A+B =C And A+C =B And B+C =A 27 能正确表述 “x为大于等于 5并且小于 20的数 ”的 Visual Basic表达式是 ( A) x =5And x 20 ( B) x =5Or x 20 ( C) 5 =x 20 ( D) 5 =x =20 28 以下叙述中错误的是 ( A)续行符与它前面的字符之
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 数据类型 运算 模拟 答案 解析 DOC
