[计算机类试卷]国家二级VB机试(Visual Basic程序设计基础)模拟试卷1及答案与解析.doc
《[计算机类试卷]国家二级VB机试(Visual Basic程序设计基础)模拟试卷1及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(Visual Basic程序设计基础)模拟试卷1及答案与解析.doc(23页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试( Visual Basic程序设计基础)模拟试卷 1及答案与解析 一、选择题 1 下面为单精度实型 (即单精度浮点型 )变量的是 ( A) x$ ( B) x& ( C) x! ( D) x# 2 双精度浮点数的类型说明符为 ( A) ( B) # ( C) & ( D) 3 下列符号常量的声明中不合法的是 ( A) Const a AsSingle=3 5 ( B) Const a AsDouble=5+8 ( C) Const a As Integer=“25“ ( D) Const a=“OK“ 4 为把圆周率的近似值 3 14159存放在变量 pi中,应该把变量 p
2、i定义为 ( A) Dim pi As Integer ( B) Dim pi(7)As Integer ( C) Dim pi As Single ( D) Dim pi As Long 5 对于语句 Dim Var1 , Var2 As Integer,下列说法中正确的是 ( A) Var1#和 Vat2都被定义为整型变量 ( B) Var1被定义为双精度型变量。 Var2被定义为整型变量 ( C) Var1被定义为长整型变量, Vat2被定义为整型 变量 ( D) Var1#被定义为变体变量, Vat2被定义为整型变量 6 下列说法中,错误的是 ( A)变量名长度不能超过 255个字符
3、( B)变量名的第一个字符可以是字母或数字 ( C)变量名只能由字母、数字和下划线组成 ( D)变量名不能使用保留字 7 有如下数据定义语句: Dim a b As Integer Dim x, y as Integer 执行上述语句后,不是整型变量的是 ( A) a ( B) b ( C) x ( D) y 8 设在一个工程的窗体中有如下代码: Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码: Public a As Integer Private b As In
4、teger 关于上述代码,以下叙述中错误的是 ( A)变量 x的作用域是整个工程 ( B)变量 y的作用域是。 Form_Load过程 ( C)变量 a的作用域是整个工程 ( D)变量 b的作用域是整个标准模块 9 在窗体模块的声明部分声明变量时,不能使用的关键字是 ( A) Dim ( B) Public ( C) Private ( D) Static 10 设窗体上有一个 Conunand1命令按钮,还有以下程序代码: Private Sub Command1_Click() Static x As Integer x=x+1 Call proc(x) Print x, End Sub
5、Private Sub proc(a As Integer) Static xA s 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 11 在标准模块中,将 a定义为全局整型变量的语句是 ( A) Static a As Integer ( B) Dim a As Integer ( C) Private a As Integer ( D) Public a As Integer 12 下面能够将某个变量声明为局部变量的是 ( A)在窗体模块的声明部分,用
6、关键字 Static声明这个变量 ( B)在窗体模块的声明部分,用关键字 Dim声明这个变量 ( C)在需要使用这个变量的过程中,用关键字 Private声明这个变量 ( D)在需要使用这个变量的过程中,用关键字 Public声明这个变量 13 编写如下程序: Dim num As Integer, r As Integer, n As Integer, i As Integer Dim arr(5)As Integer Private Sub Command1_Click() num=12: r=2 Call sub1(num, r, n) For i=n To 1 Step-1 Print
7、 arr(i); Next i End Sub Sub sub1(d As Integer, r As Integer, k As Integer) k=0 Do While d 0 k=k+1 arr(k)=d Mod r d=d r Loop End Sub 程序运行后,单击命令按钮 Command1,输出结果为 ( A) 1 1 0 0 ( B) 0 0 1 1 ( C) 0 1 0 1 ( D) 1 0 1 0 14 下列说法中错误的是 ( A)在过程中,可以用 Static定义变量,但当该过程调用结束后,其值继续保留 ( B)当用 Static关键字定义一个过程时,该过 程中的所有变
8、量都是 “Static”存储方式的 ( C) Sub Main过程一定是程序运行时首先被执行的过程,是整个程序的入口点 ( D)同一个工程中只能有一个 Sub Main过程 15 语句: Print Asc(Chr$(Mid$(“98765432“, 4, 2)的输出是 ( A) 65 ( B) A ( C) 8765 ( D) W 16 以下表达式与 Int(3 5)的值相同的是 ( A) CInt(3 5) ( B) Val(3 5) ( C) Fix(3 5) ( D) Abs(3 5) 17 语句: Print Int(Rnd*5+20)的输出不可能是 ( A) 20 ( B) 22
9、( C) 24 ( D) 25 18 窗体上有一个名称为 Command1的命令按钮,单击该按钮时所实现的功能是产生 10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 8(i)=Int(Rnd*100) Next x=InputBox(“输入 100以内的整数: “) p=0 For i=1 To 10 If a(i)=x Then p=i
10、 Exit For End If Next If p=0 Then Print“没有找到与输入数据相同的数 !“ Else Print Str(x)+“名 擞组中的位置是 “+Str(p) End If End Sub 对于上述事件过程,以下叙述中正确的是 ( A)本程序实际产生的随机数是 0-99 ( B)若产生的随机数中有相同数,则 p是其中最后一个数的 位置 ( C)程序有错, p的初值设置不对 ( D)程序有错, InputBox函数产生的数据与 x的类型不匹配 19 窗体上有一个名称为 Text1的文本框,一个名称为 Command1的命令按钮。要求编写一个程序,统计文本框中 0-9
11、各数字字符的个数。某人编写如下程序: Prirate Sub Command1_Click() Dim count(10)As Integer 第 1个 For循环 For i=0 To 9 count(i)=0 Next s=Trim(Text1 Text) strLen=Len(s) 第 2个 For循环 For vi=1 To strLen c=Mid(s, i, 1) If c =“0“And c =“9“Thn x=Val(C) count(i)=count(i)+1 End If Next 第 3个 For循环 For i=0 To 9 Print Str(i), count(i)
12、 Next End Sub 运行程序后,发现不能实现题目的要求,程序应该进行的修改是 ( A)将第 2个 For循环的初值改为 0 ( B)将第 2个 For语句改为 For i=0 To 9 ( C)去掉 x=Val(C)语句 ( D)将 count(i)=count(i)+1改为 count(x)=count(x)+1 20 有下面程序代码: Private Sub Command1_Click() Dim a As String a=“CONPUTER“ n=search(a, “T“) Print IIf(n=0, “未找到 “, n) End Sub Private Function
13、 search(str As String, ch As String) As Integer For k=1 To ten(str) c=Mid(str, k, 1) If c=ch Then search=k Exit Funotion End If Next k search=0 End Function 程序运行后,单击命令按钮 Command1,输出结果是 ( A) 0 ( B) 8 ( C) 6 ( D)未找到 21 编写如下程序: Private Sub Command1_Click() Dim x As String, y As String x=Right(“abcd“, 2
14、) Y=Mid(“dcba“, 2, 3) If x y Then Print x+y Else Print y+x End If End Sub 程序运行后,单击命令按钮 Command1,输出结果为 ( A) cdcba ( B) cbacd ( C) ebacd ( D) cbcd 22 设有如下函数: Function DelSpace(ch As String)As Integer Dim n, st$, c$ st=“ n=0 For k=1 To Len(ch) c=Mid(ch, k, 1) If c “Then st=st&c Else n=n+1 End If Next k
15、 ch=st DelSpace=n End Function 函数的功能是 ( A)统计并返回字符串 ch中字符的个数 ( B)删除字符串 ch中的空格符,返回删除字符的个数 ( C)统计并返回字符串 ch中非空格字符数 ( D)删除字符串 ch中除空格符外的其他字符,返回删除字符的个数 23 设有下面程序代码: Private Sub Command1_Click() Dim str As String, ch As String str=“Visual Basic Programming“ ch=“a“ n=fun(ch, st) Print str, n End Sub Private
16、Function fun(ch As String, str As String) As Integer Dim strbuf As String, C As String, n As Integer For k=1 To Len(str) C=Mid$(str, k, 1) If c ch Then strbuf=strbuf&c Else strbuf=strbuf&UCase(C) n=n+1 End If Next k str=strbuf fun=n End Function 程序运行时的输出是 ( A) Visual Basic Programming 0 ( B) VisuAl
17、BAsic ProgrAmming 3 ( C) Visul Bsic Progrmming 3 ( D) VisualBasicProgramming 2 24 设 a=10, b=4, c=5, d=7,表达式 a b And Not c d+6的值为 ( A) True ( B) False ( C) 1 ( D) 0 25 下列运算符中,优先级别最 低的是 ( A) Not ( B) Like ( C) Mod ( D) And 26 窗体上有一个名称为 Label的 1标签;一个名称为 Timer1的计时器,其Enabled和 Interval属性分别为 True和 1000。编写如
18、下程序: Dim n As Integer Private Sub Timer1_Timer() ch=Chr(n+Asc(“A“) Label1 Caption=ch n=n+1 n=n Mod 4 End Sub 运行程序,将在标签中 ( A)不停地依次显示字符 “A”、 “B”、 “C”、 “D”,直至窗体被关闭 ( B)依次显示字符 “A”、 “B”、 “C”、 “D”各一次 ( C)每隔 1秒显示字符 “A”一次 ( D)每隔 1秒依次显示 26个英文字母中的一个 27 设变量 x的值是 845,则下面语句的输出是 Print x 100+(x Nod 100) 10+x Mod 1
19、0 ( A) 17 ( B) 548 ( C) 845 ( D) 485 28 设: 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 29 假定有如下情况语句: Select Case X 能表示 |X| 5的 Case子句是 ( A) Case Not(-5 To 5) ( B) Case 5 To-5 ( C) Case Is -5, Is 5 ( D) Case Abs(X) 5 30 能正确表述 “x为大于等于 5并且小于 20的数 ”的 Visual Basic表达
20、式是 ( A) x =5 And x 20 ( B) x =5 Or x 20 ( C) 5 =x 20 ( D) 5 =x =20 31 有如下语句序列: Dim a b As Integer Print a Print b 执行以上语句序列,下列叙述中错误的是 ( A)输出的 a值是 0 ( B)输出的 b值是 0 ( C) a是变体类型变量 ( D) b是整型变量 32 下列程序段的输出结果是 x=5 Print x+1: x+1 ( A) 6 6 ( B) 5 5 ( C) 6 7 ( D) 5 6 33 语句 Print Format$(23846 5, “000, 000 00“)
21、的输出结果是 ( A) 23846 5 ( B) 23, 846 5 ( C) 23, 846 50 ( D) 023, 846 50 34 设程序中有以下语句: MsgBox“Visual“, “Basic“, “等级考试 “, 2 执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是 ( A)提示信息是 Visual ( B)提示信息是 Basic ( C)标题栏显示为 Visual ( D)标题栏显示为 “等级考试 “ 国家二级 VB机试( Visual Basic程序设计基础)模拟试卷 1答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 $:字符串型, &:长整型
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 VISUALBASIC 程序设计 基础 模拟 答案 解析 DOC
