[计算机类试卷]国家二级VB机试(程序设计基础)模拟试卷2及答案与解析.doc
《[计算机类试卷]国家二级VB机试(程序设计基础)模拟试卷2及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(程序设计基础)模拟试卷2及答案与解析.doc(19页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(程序设计基础)模拟试卷 2及答案与解析 一、选择题 1 以下自定义数据类型的语句中,正确的是 ( )。 ( 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 Integer End Type ( C) Type student ID As String name As String age As Integer End student (
2、D) Type ID As String * 20 name As String * 10 age As Integer End Type student 2 以下变量名中合法的是 ( )。 ( A) x2-1 ( B) Print ( C) str_n ( D) 2x 3 以下变量名中合法的是 ( )。 ( A) x-2 ( B) 12abe ( C) sum_total ( D) print 4 以下合法的 VB变量名是 ( )。 ( A) _x ( B) 2y ( C) a#b ( D) x_1_x 5 以下合法的 VB变量名是 ( )。 ( A) _a ( B) yPrint ( C)
3、 a-b ( D) Type 6 在窗体上画一个名称为 Command1的命令按钮,再画两个名称分别为 Label1、Label2的标签,然后编写 如下程序代码: Private X As Integer Private Sub Command1_Click() X=5: Y=3 Call proc(X, Y) Label1 Caption=X Label2 Caption=Y End Sub Private Sub proe(a As Integer, ByVal b As Integer) X=a * a Y=b+b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是
4、( )。 ( A) 25和 3 ( B) 5和 3 ( C) 25和 6 ( D) 5和 6 7 窗体上有 1个名称为 Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim p As Integer p=m(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer For i=1 To n S=s+1 Next m=S End Function 运行程序,第 2次单击命令按钮 Command1时的输出结果
5、为 ( )。 ( A) 6 ( B) 10 ( C) 16 ( D) 28 8 在一个工程的窗体中有如下代码: Public x As 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的作用域是整个标准模块 9 在窗体模块的声
6、明部分声明变量时,不能使用的关键字是 ( )。 ( A) Dim ( B) Public ( C) Private ( D) Static 10 设窗体上有一个 Command1命令按钮,还有以下程序代码: Private Sub Command1_Click() Static x As Integer x=x+1 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
7、 3 ( B) 1 3 5 ( C) 1 3 7 ( D) 2 4 6 11 在窗体上画一个文本框,其名称为 Text1,然后编写以下程序: Private Sub Form_Load() Show Text1 Text=“ Text1 SetFoeus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii=Ase(UCase(Char) End Sub 以上程序的功能是 ( )。 ( A)把输入到文本框中的字母转换为小写显示 ( B)把从键盘上输入的字符在文本框中原样显示 (
8、 C)把输入到文本框中的字母转换为大写显示 ( D)把输入到文本框中的字符转换为其 ASCII码显示 12 表达式 Sgn(0 25)的值是 ( )。 ( A) -1 ( B) 0 ( C) 1 ( D) 0 5 13 窗体上有 1个名称为 Command1的命令按钮,事件过程如下: Private Sub Command1_Cliek() m=-3 6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序,并单击命令按钮,窗体上显示的内容为 ( )。 ( A) -4 ( B) -3 ( C) 3 ( D) 3 6 1
9、4 以下能对正实数的第 3位小数四舍五入的表达式是 ( )。 ( A) 0 01 * Int(d+0 005) ( B) 0 01 * Int(100 * (d+0 005) ( C) 0 01 * Int(100 * (d+0 05) ( D) 0 01 * Int(d+0 05) 15 能够产生 1到 50之间 (含 1和 50)随机整数的表达式是 ( )。 ( A) Int(Rnd*51) ( B) Int(Rnd(50)+1) ( C) Int(Rnd*50) ( D) Int(Rnd*50+1) 16 下面程序运行时,若输入 “Visual Basic Programming”,则在
10、窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=UCase(InputBox(“请输入字母字符串 “) For k=1 To Len(ch) n=Asc(Mid(ch, k, 1)-Asc(“A“) If n =0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If m count(k)Then m=count(k) End If Next k Print m End Sub ( A) 0 ( B)
11、 1 ( C) 2 ( D) 3 17 在窗体上画一个文本框,名称为 Text1,然后编写如下程序: Private Sub Form_Load() Show Text1 Text=“ Text1 SetFocus End Sub Private Sub Form_Click() Dim a As String, s As String a=Text1 Text s=“ For k=1 To Lea(a) s=UCase(Mid(a, k, 1)+s Next k Text1 Text=s End Sub 程序运行后,在文本框中输入一个字符串,然后单击窗体,则文本框中的内容( )。 ( A)与
12、原字符串相同 ( B)与原字符串中字符顺序相同,但所有字母均转换为大写 ( C)为原字符串的逆序字符串,且所有字母转换为大写 ( D)为原字符串的逆序字符串 18 窗体上有一个名称为 Text1的文本框,一个名称为 Command1的命令按钮。要求编写一个程序,统计文本框中 0 9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10)As Integer 第 1个 For循环 For i=0 To 9 count(i)=0 Next S=Trim(Text1 Text) strLen=kn(s) 第 2个 For循环 For
13、i=1 To strLen c=Mid(S, i, 1) If c =”0”And e =“9“ Then x=Val(c) count(i)=count(i)+1 End If Next 第 3个 For循环 For i=0 To 9 Print sty(i), count(i) 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改为 coum(x)=c伽 m
14、(x)+1 19 下面程序计算并输出的是 ( )。 Private Sub Command1_Click() a=10 s=0 Do s=8+a*a*a a=a-1 Loop Until a =0 Print 8 End Sub ( A) 13+23+33+10 3的值 ( B) 10! +3 ! +2! +1!的值 ( C) (1+2+3+10) 3的值 ( D) 10个 103的和 20 下面的程序是利用公式: =4-4 3+4 5-4 7+4 9-4 11+ 计算, 的近似值 Pvivate Sub Command1_Click() Dim PI As Double, x As Doub
15、le, k As Long, sign As Integer sign=1 k=1 PI=0 Do x=sign*4 (2*k-1) PI=PI+x k=k+1 sign=_ Loop Until Abs(x) 0 000001 Print PI End Sub 在空处应填写的是 ( )。 ( A) sign+1 ( B) -sign ( C) x ( D) k 21 有如下语句序列: Dim a, b As Integer Print a Print b 执行以上语句序列,下列叙述中错误的是 ( )。 ( A)输出的 a值是 0 ( B)输出的 b值是 0 ( C) a是变体类型变量 ( D
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 程序设计 基础 模拟 答案 解析 DOC
