[计算机类试卷]2004年4月国家二级(VisualBasic)笔试真题试卷及答案与解析.doc
《[计算机类试卷]2004年4月国家二级(VisualBasic)笔试真题试卷及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]2004年4月国家二级(VisualBasic)笔试真题试卷及答案与解析.doc(17页珍藏版)》请在麦多课文档分享上搜索。
1、2004 年 4月国家二级( VisualBasic)笔试真题试卷及答案与解析 1 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Move 500, 500 End Sub 程序运行后,单击命令按钮,执行的操作为 ( A) 命令按钮移动到距窗体左边界、上边界各 500的位置 ( B)窗体移动到距屏幕左边界、上边界各 500的位置 ( C)命令按钮向左、上方向各移动 500 ( D)窗体向左、上方向各移动 500 2 在窗体 上有若干控件,其中有一个名称为 Text1的文本框。影响 Text1的 Tab顺序的属
2、性是 ( A) TabStop ( B) Enabled ( C) Visible ( D) TabIndex 3 以下定义数组或给数组元素赋值的语句中,正确的是 ( A) Dim a As Variant a=Array(1,2,3,4,5) ( B) Dim a(10) As Integera =Array(1,2,3,4,5) ( C) Dim a%(10) a(1)=“ABCDE“ ( D) Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a 4 在窗体上画一个名称为 List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环
3、语句为 ( A) For i=0 To List1.ListCount-1 Next ( B) For i=0 To ListCount-1 Next ( C) For i=1 To List1.listCount Next ( D) For i=1 To ListCount Next 5 以下 Case语句中错误的是 ( A) Case 0 To 10 ( B) Case Is10 ( C) Case Is10 And Is10 6 以下关于图片框控件的说法中,错误的是 ( A) 可以通过 Print方法在图片框中输出文本 ( B)清空图片框控件中图形的方法之一是加载一个空图形 ( C)图片
4、框控件可以作为容器使用 ( D)用 Stretch属性可以自动调整图片框中图形的大小 7 执行语句 s=Len(Mid(“VisualBasic“,1,6)后, s的值是 ( A) Visual ( B) Basic ( C) 6 ( D) 11 8 以下叙述中错误的是 ( A) 下拉式菜单和弹出式菜单都用菜单编辑器建立 ( B)在多窗体程序中,每个窗体都可以建立自己的菜单系统 ( C)除分隔线外,所有菜单项都能接收 Click事件 ( D)如果把一个菜单项的 Enabled属性设置为 False,则该菜单项不可见 9 在窗体上画一个命令按钮,其名称为 Command1,然后编写如下事件过程:
5、 Private Sub Command1_Click() a = 12345 Print Format$(a, “000.00“) End Sub 程序运行后,单击命令按钮,窗体上显示的是 ( A) 123.45 ( B) 12345.00 ( C) 12345 ( D) 00123.45 10 以下叙述中错误的是 ( A) 一个工程可以包括多种类型的文件 ( B) Visual Basic应用程序既能以编译方式执行,也能以解释方式执行 ( C)程序运行后,在内存中只能驻留一个窗体 ( D)对于事件驱动型应用程序,每次运行时的执行顺序可以不一样 11 以下关于函数过程的叙述中,正确的是 (
6、A) 函数过程形参的类型与函数返回值的类型没有关系 ( B)在函数过程中,过程的返回值可以有多个 ( C)当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 ( D)如果不指明函数过程参数的类型,则该参数没有数据类型 12 以下关于变量作用域的叙述中,正确的是 ( A) 窗体中凡被声明为 Private的变量只能在某个指定的过程中使用 ( B)全局变量必须在标准模块中声明 ( C)模块级变量只能用 Private关键字声明 ( D) Static类型变量的作用域是它所在的窗体或模块文件 13 确定一个控件在窗体上的位置的属性是 ( A) Width和 Height ( B) W
7、idth或 Height ( C) Top和 Left ( D) Top或 Left 14 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Text1.Text = “Visual“ Me.Text1 = “Basic“ Text1 = “Program“ End Sub 程序运行后,如果单击命令按钮 ,则在文本框中显示的是 ( A) Visual ( B) Basic ( C) Program ( D)出错 15 以下关系表达式中,其值为 False的是 ( A) “ABC“A
8、bC“ ( B) the“Int“ 16 语句 Print 5/4*65 Mod 2的输出结果是 ( A) 0 ( B) 1 ( C) 2 ( D) 3 17 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText = InputBox(“请输入 “) Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)
9、End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入 abcdef,则在标签中显示的内容是 ( A) 空 ( B) abcdef ( C) abc ( D) def 18 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,窗体上显示的是 ( A) -5 ( B) 25 ( C) 1 ( D) -1 19 一个工程中含有窗体 For
10、m1、 Form2和标准模块 Model1,如果在 Form1中有语句 Pubilc X As Integer,在 Model1中有语句 Pubilc Y As Integer,则以下叙述中正确的是 ( A) 变量 X、 Y的作用域相同 ( B) Y的作用域是 Model1 ( C)在 Form1中可以直接使用 X ( D)在 Form2中可以直接使用 X和 Y 20 在窗体上画一个名称为 Drive1的驱动器列表框,一个名称为 Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是 ( A) Drive1_Change
11、( B) Drive1_Click ( C) Dir1_Click ( D) Dir1_Change 21 在窗体上画一个命令按钮(其 NAME属性为 Command1),然后编写如下代码 : Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(1,2,3,4); j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是 ( A) 4321 ( B) 1234 ( C) 3
12、4 ( D) 12 22 在窗体上画一个名称为 Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 ( A) Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 90 Then MsgBox “请输入大写字母 “ KeyAscii = 0 End If End Sub ( B) Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode 90 Then MsgBox “请输入大写字母 “ KeyCode =
13、 0 End If End Sub ( C) Private Sub Text1_MouseDown(Button As Integer,_ Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) 90 Then MsgBox “请输入大写字母 “ End If End Sub ( D) Private Sub Text1_Change() If Asc(Text1.Text) 64 And Asc(Text1.Text) 91 Then MsgBox “请输入大写字母 “ End If End Sub 23 假定在窗体(名
14、称为 Form1)的代码窗口中定义如下记录类型: Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程 : Private Sub Command1_Click() Dim rec As animal Open “c:vbTest.dat“ For Random As #1 Len = Len(reCreC.animalName = “Cat“ reC aColor = “White“ Put #1, , rec Close #1
15、End Sub 则以下叙述中正确的是 ( A) 记录类型 animal不能在 Form1中定义,必须在标准模块中定义 ( B)如果文件 c:vbTest.dat不存在,则 Open命令执行失败 ( C)由于 Put命令中没有指明记录号,因此每次都把记录写到文件的末尾 ( D)语句 “Put #1, , rec”将 animal类型的两个数 据元素写到文件中 24 在窗体上画一个名称为 Text1的文本框,一个名称为 Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click() n = Val(Text1.Text) If n2 = n/
16、2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后,在文本框中输入 6,然后单击命令按钮,窗体上显示的是 ( A) 72 36 ( B) 108 36 ( C) 72 6 ( D) 108 6 25 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程 : Private Sub Co
17、mmand1_Click() c = 1234 c1 = Trim(Str(C) For i = 1 To 4 Print_ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为 ( A) Right(c1,i) ( B) Left(c1,i) ( C) Mid(c1,i,1) ( D) Mid(c1,i,i) 26 在窗体上画一个名称为 Command1的命令按钮和一个名称为 Text1的文本框,然后编写如下事件过程: Private Sub Command1_Click() n = Val(Text1.Text
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
本资源只提供5页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 2004 国家 二级 VISUALBASIC 笔试 答案 解析 DOC
