[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷24及答案与解析.doc
《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷24及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷24及答案与解析.doc(25页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(数据类型及运算)模拟试卷 24及答案与解析 一、选择题 1 执行如下两条语句后,窗体上显示的是 a=9 8596 Print Format(a, “$00, 00, 00”) ( A) 0, 009 86 ( B) $9 86 ( C) 9 86 ( D) $0, 009 86 2 设一个工程由两个窗体组成,其名称分别为 Fornm1和 Forum2,在 Fornml上有一个名称为 Command1的命令按钮。窗体 Fornm1的程序代码如下: Private Sub Commandl_Click() Dim a=10 Call g(Fornm2, a) End Sub P
2、rivate Sub g(f As Fornm, x As Integer) y=IIf(x10, 100,一 100) f Show f Caption=y End Sub 运行以上程序,正确的结果是 ( A) Fornml的 Caption属性值为 100 ( B) Forum2的 Caption属性值为 100 ( C) Fornml的 Caption属性值为 -100 ( D) Forum2的 Caption属性值为 100 3 在窗体上画一个名称为 Command1的命令按钮,并编写如下程序: Private Sub Command1_Click() Dim x As Integer
3、 x=10: y=5 Call f1(x, y) Print x, y End sub Private Sub f1(ByRef x1 As Integer, _ y1 As Integer) x1=x1+2: y1=y1+2 End Sub 程序运行后,单击命令按钮,在窗体上显示 的内容是 ( A) 10 5 ( B) 12 2 ( C) 10 7 ( D) 12 7 4 在窗体上画一个名称为 Filel的文件列表框,并编写如下程序: Private Sub File1_DblClick() x=Shell(File1 FileName, 1) End Sub 以下关于该程序的叙述中,错误的
4、是 ( A) x没有实际作用,因此可以将该语句写成 Call Shell(File1 FileName, 1) ( B)双击文件列表框中的文件,将触发该事件过程 ( C)要执行的 文件的名字通过 File1 FileName指定 ( D) File1中显示的是的当前驱动器、当前目录下的文件 5 在窗体上画一个名称为 Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Commandl_Click() Dim a As Variant a=Array(1, 2,3, 4, 5) Sum=0 For i=1 To 5 Sum=Sum+a(i) Nex
5、t i x=Sum 5 For i=1 To 5 If a(i) x then Print a(i) Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 ( A) 12 ( B) 123 ( C) 345 ( D) 45 6 执行以下程序段 aS=”abbacddcba” For i=6 To 2 Step一 2 X=Mid(a, i, i): Y=Lett(a, i) z=Right(a, i): z=UCase(X Y z) Next i Print z 输出的结果是 ( A) ABA ( B) BBABBA ( C) AABAAB ( D) AABAAB 7 假
6、定一个工程由一个窗体文件 Form1和两个标准模块文件 Model1和 Model2组成 Model1的代码如下: Public x As Integer: Publicy, As Integer Sub S1() Sub S2() x=1 y=10 S2 Form1 show End Sub End Sub Model2的代码如下: Sub Main() S1 End Sub 其中 Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是 ( A) Form1Model1Model2 ( B) Model1Model2Form1 ( C) Model2Model1Form1 ( D)
7、 Model2Form1Model1 8 在窗体 (名称为 Form1)上画一个名称为 Text1的文本框和一个名称为 Command1的命 令按钮,然后编写一个事件过程。程序运行后,如果在文本本框中输入一个字符,则把命令按钮的标题设置为 “计算机等级考试 ”。以下能实现上述操作的时间过程是 ( A) Private Sub Text1_Change() Command1 Caption=”计算机等级考试 ” End Sub ( B) Private Sub Text1_Change() Caption=”计算机等级考试 ” End Sub ( C) Private Sub Text1_Cha
8、nge() Textl Caption=”计算机等级考试 ” End Sub ( D) Private Sub Text1_Change() Text1 Text=”计算机等级考试 ” End Sub 9 在窗体上画一个列表框和一个命令按钮,其名称分别为 list1和 Command1,然后编写如下事件过程: Private Sub Form load() List1 Addltem”Item1”: List1 Addltem”Itern2”: Listl Addltem”Item3” End Sub Private Sub Command1_Click () List1 List(List1
9、 ListCount)=”AAAA” End Sub 程序运行后,单击命令按钮,其结果为 ( A)把字符串 “AAAA”添加到列表框中,但位置不能确定 ( B)把字符串 “AAAA”添加到列表框的最后 (即 “Item3”的后面 ) ( C)把列表框原有的最后一项改为 “AAAA” ( D)把字符串 “AAAA”插入到列表框的最前面 (即 “Item1”的前面 ) 10 在窗体上画一个命 令按钮,然后编写如下事件过程: Private SUb Commandl_Click For i=1 To 5 a(i)=Chr(Asc(”A”)+(i一 1) Next i For Each b In a
10、Print b: Next End Sub 程序运行后,单击命令按钮,输出结果是 ( A) ABCDE ( B) 1 2 3 4 5 ( C) abcde ( D)出错信息 11 设窗体上有一个名为 Text1的文本框,并编写如下程序: Private Sub Form_load0 Show Text1 Text=“”: Text1 SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,_shift As integer X As Single, Y As Integer) Print”程序设计 ” End Sub Privat
11、e Sub Text_KeyDown(keyCod As Integer,_shift As Integer) Print”Visual Basic”; End Sub 程序运行后,如果在文本框中输入字母 “a”,然后单击窗体,则在窗体上显示的内容是 ( A) Visual Basic ( B)程序设计 ( C) Visual Basic程序设计 ( D) a程序设计 12 假定有下表所列的菜单结构: 要求程序运行后,如果单击菜单项 “大图标 ”,则在该菜单前添加一个 “”。以下正确的是 ( A) Private Sub bigicon_Click() bigicon Checked=Fals
12、e End Sub ( B) Private Sub bigicon_Click() Me appear bigicon Checked=True End Sub ( C) Private Sub bigicon_Click() bigicon Checked=True End Sub ( D) Private Sub bigicon_Click() appear bigicon Checked=True End Sub 13 以下能从字 符串 “VisualBasic”中直接取出子字符串 “Basic”的函数是 ( A) Left ( B) Mid ( C) String ( D) Inst
13、r 14 在菜单编辑器中建立 1个名称为 Menu()的菜单项,将其 “可见 ”属性设置为False,并建立其若干子菜单,然后编写如下过程 Private Sub Form_MousDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=1 Then PopupMenu Menu() End If End Sub 则以下叙述中错误的是 ( A)该过程的作用是弹出一个菜单 ( B)单击鼠标右键时弹出菜单 ( C) Menu()是在菜单编辑器中定义的弹出菜单的名称 ( D)参数 X、 Y指明鼠标当前
14、位置的坐标 15 设有如下的用户定义类型: Type Student Number As String: Name As String: Age As Integer End Type 则以下正确引用该类型成员的 代码是 ( A) Student name=”李明 ” ( B) Dim S As Student S name=”李明 ” ( C) Dim S As Type Student S name=”李明 ” ( D) Dim s As Type S name=”李明 ” 16 在窗体上画一个命令按钮和两个标签,其名称分别为 Command1、 Label1和Label2,然后编写如下事
15、件过程: Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1: b=0 Forj=1 To 10 a=a+1: b=b+2 Nextj Label1 Caption=Str(a): Label2 Caption=Str(b) End Sub 程序运行后,单击命令按钮,在标签 Label1和 Label2中显示的内容分别是 ( A) 10和 20 ( B) 20和 110 ( C) 200和 110 ( D) 110和 20 17 为达到把 a、 b中的值交换后输出的目的,某人编程如下: Private Sub Commandl_Click(
16、) a =10: b =20 Call swap(a, b) Print a,b End Sub Private Sub swap(ByVal a As Integer, ByVal b As Integer) c=a: a=b: b=c End Sub 在运行时发现输出结果错了,需要修改。下面列出的错误原因和修改方案中正确的是 ( A)调用 swap过程的语句错误,应改为: Call swap(a, b) ( B)输出语句错误,应改为: print”aIt, V!b” ( C)过程的形式参数有错,应改为 swap(ByRef a Integer, ByRefb Integer) ( D) s
17、wap中 3条赋值语句的顺序是错误的,应改为 a=b: b=c: c=a 18 设有如图所示窗体和以下程序: Pirint Sub Commandl_Click() Text1 Text=”Visual Basic”End SubPrivate Sub Text_LostFocus() If Text1 Text”BASIC”Then Text1 Text=“”: Text SetFocus End IfEnd Sub 程序运行时,在 Text1文本框中输入 “Basic”(如图所示 ),然后单击 Command按钮,则产生的结果是 ( A)文本框中无内容,焦点在文本框中 ( B)文本框中为
18、“Basic”,焦点在文本框中 ( C)文本框中为 “Basic”,焦点在按钮上 ( D)文本框中为 “Visual Basic”,焦点在按钮上 19 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim I As Integer,n As Integer For i=0 T0 50 i=i+3: n=n+1 If i10 Then Exit For Next Text1 Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是 ( A) 2 (
19、B) 3 ( C) 4 ( D) 5 20 设有以下函数过程: Function fun(a As Integer,b As Integer) Dim C As Integer Ifa4 X=X*Y.Y=Y+1 Loop Print X ( A) 1 ( B) 4 ( C) 8 ( D) 20 23 下面函数的功能应该是:删除字符串 str中所有与变量 ch相同的字符,并返回删除后的结果。例如:若 str=“ABCDABCD”, ch=“B”,则函数的返回值为:“ABCDCD” Function delchar(str As string,ch As; Dim k As Integer,tem
20、p As String,ret As String ret=“ For k=1 To Len(str) Temp=Mid(str,k,1) If temp=ch Then ret=ret temp End If Next k delchar=ret 但实际上函数有错误,需要修改。下面的修改方案中正确的是 ( A)把 ret=ret temp改为 ret=temp ( B)把 Iftemp=ch Then改为 Iftemp=5 x=a*b Print b; x a=a+b: b=b+a Loop End Sub 程序运行后,单击窗体,输出结果是 ( A) 1 1 2 3 ( B) 1 1 2 4
21、 ( C) 1 1 3 8 ( D) 1 1 3 6 27 表达式 Int(Rnd(0)*50)所产生的随机数范围是 ( A) (0 50) ( B) (1, 50) ( C) (0, 49) ( D) (1, 49) 28 现有如下一段程序: Option Base1 Private Sub Command1_Click() Dim a a=Array(3, 5, 7, 9): x=1 For i=4 To 1 Step-1 s=s+a(i)*X: X=X*10 Next Print S End Sub 执行程序,单击 Command1命令按钮,执行上述事件过程,输出结果是 ( A) 975
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 数据类型 运算 模拟 24 答案 解析 DOC
