[计算机类试卷]国家二级VB机试(选择题)模拟试卷161及答案与解析.doc
《[计算机类试卷]国家二级VB机试(选择题)模拟试卷161及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(选择题)模拟试卷161及答案与解析.doc(24页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(选择题)模拟试卷 161及答案与解析 一、选择题 1 要求当鼠标在图片框 P1中移动时,立即在图片框中显示鼠标的位置坐标。 下面能正确实现上述功能的事件过程是 ( A) Private Sub P 1 MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single) Print X, Y End Sub ( B) Private Sub P 1 MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Pict
2、ure PrintX, Y End Sub ( C) Private Sub P1 MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single) P1 Print X, Y End Sub ( D) Private Sub Form , _MouseMove(Button As Integer,Shift As Integer X As Single Y As Single) P1 Print X, Y End Sub 2 窗体的 MouseUp事件过程如下: Private Sub Form MouseUp(B
3、utton As Integer,Shift As Integer,X As Single, Y As Single)End Sub关于以上定义,以下叙述中错误的是 ( A)根据 Shift参数,能够确定使用转换键的情况 ( B)根据 X、 Y参数可以确定触发此事件时鼠标的位置 ( C) Button参数的值是在 MouseUp事件发生时,系统自动产生的 ( D) MouseUp是鼠标向上移动时触发的事件 3 命令按钮 Commandl的 MouseUp事件过程结构如下: Private Sub Commandl MouseUp(Button As Integer,Shift As Integ
4、er,X As Single, Y As Single) * End Sub 则以下叙述中错误的是 ( A) X、 Y参数表示的是 Commandl左上角在窗体中的位置 ( B) BuRon参数用于确定按下的鼠标键 ( C) Shift参数用于确定是否按下了 Alt、 Ctr1或 Shift键 ( D) MouseUp表示抬起鼠标按键时触发的事件 4 有下面事件过程: Private Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single, Y As Single) IfBuRon=2 Then Forml PSet(
5、X, Y)PSet方法可以在 X, Y处画一个点 End If End Sub 程序运行后,产生的效果是 ( A)在窗体上每单击鼠标左键一次,就在鼠标位置处画一个点 ( B)按着鼠标左键,移动鼠标,可在窗体上画出 鼠标的运动轨迹 ( C)按着鼠标右键,移动鼠标,可在窗体上画出鼠标的运动轨迹 ( D)不按任何鼠标键,移动鼠标,可在窗体上画出鼠标的运动轨迹 5 窗体上已有 1个名称为 Picturel的图片框,要求实现下面 2个功能之一: (1)在窗体上移动鼠标时,立即将 Picturel显示在鼠标位置 (2)在窗体上单击鼠标时,立即将 Picturel显示在鼠标位置下面不能实现上述任何功能的事件
6、过程是 ( A) Pfivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Picturel Move X, Y End Sub ( B) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single) Picturel Move X, Y End Sub ( C) Pfivate Sub Form_MouseDown(Button As Integer, Shif
7、t As Integer, X As Single, Y As Single) Picturel CurrentX=X: Picturel Current Y=Y End Sub ( D) Private SUb Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picturel,Move X, Y End Sub 6 编写如下程序: Private Sub Form_Click() Print“Welcome!” End Sub PfivMe SUb Form MouseDown(But
8、ton As Integer,Shift As Integer,X As Single, Y As Single) Print“欢迎 !” End Sub Pfivme SUb Form_MouseUp(Button As Integer,Shift As Integer,X As Single, Y As Single) Print“热烈欢 ( A)欢迎 !热烈欢迎 !Welcome! ( B)欢迎 !Welcome!热烈欢迎 ! ( C) Welcome!欢迎 !热烈欢迎 ! ( D) Welcome!热烈欢迎 !欢迎 ! 7 下列操作说明中,错误的是 ( A)在具有焦点的对象上进行一次按
9、下字母键操作,会引发 KeyPress事件 ( B)可以通过 MousePointer属性设置鼠标光标的形状 ( C)不可以在属性窗口设置 MousePointer属性 ( D)可以在程序代码中设置 MousePointer属性 8 窗体上有 1个名称为 Textl的文本框, 1个名称为 Labell的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为 ( A) Prive SUb Labell_Click() ( B) Private Sub Labell_Change0 Labell Caption=Textl Text Labell
10、Caption=Textl Text End SubEnd Sub ( C) Private Sub Textl-Click() ( D) Private Sub Textl-ChangeO Labell Caption=Textl Text Labell Caption=Textl Text End SubEnd Sub 9 鼠标拖放控件要触发两个事件, 这两个事件是 ( A) DragOver事件和 DragDrop事件 ( B) Drag事件和 DragDrop事件 ( C) MouseDown事件和 KeyDown事件 ( D) MouseUp事件和 KeyUp事件 10 为了实现对象
11、的自动拖放,应该设置该对象的一个属性。下面设置中正确的是 ( A) DragMode=1 ( B) DragMode=0 ( C) Draglcon=1 ( D) Draglcon=0 11 下列有关文件的叙述中,正确的是 ( A)以 Output方式打开一个不存在的文件时,系统将显示出 错信息 ( B)以 Append方式打开的文件,既可以进行读操作,也可以进行写操作 ( C)在随机文件中,每个记录的长度是固定的 ( D)无论是顺序文件还是随机文件,其打开的语句和打开方式都是完全相同的 12 下列关于顺序文件的描述中,正确的是 ( A)文件的组织与数据写入的顺序无关 ( B)主要的优点是占空
12、间少,且容易实现记录的增减操作 ( C)每条记录的长度是固定的 ( D)不能像随机文件一样灵活地存取数据 13 下面关于文件叙述中错误的是 ( A) VB数据文件需要先打开,再进行处理 ( B)随机 文件每个记录的长度是固定的 ( C)不论是顺序文件还是随机文件,都是数据文件 ( D)顺序文件的记录是顺序存放的,可以按记录号直接访问某个记录 14 以下关于文件的叙述中,错误的是 ( A)顺序文件有多种打开文件的方式 ( B)读取顺序文件的记录时,只能从头至尾逐记录进行 ( C)顺序文件中各记录的长度是固定的 ( D)随机文件一般占用空间比较小 15 用语句 Open“C: teac txt”F
13、or Input As #打开文件后,就可以编程序 ( A)将 C盘根目录下 teac txt文件的内容读入内 存 ( B)在 C盘根目录下建立名为 teac txt的文件 ( C)把内存中的数据写入 C盘根目录下名为 teac txt的文件 ( D)将某个磁盘文件的内容写入 C盘根目录下名为 teac txt的文件 16 以下不属于 Visual Basic数据文件的是 ( A)顺序文件 ( B)随机文件 ( C)数据库文件 ( D)二进制文件 17 下面关于 VB数据文件的叙述中错误的是 ( A) VB数据文件不包括 VB的窗体文件 ( B) VB应用程序可以用随机方式读写数据文件 ( C
14、) VB应用程序在读写数据文件之前,必须 用 Open语句打开该文件 ( D) VB应用程序不能把一个二维表格中的数据存入文件 18 某人编写了下面的程序,希望能把 Textl文本框中的内容写到 out txt文件中 P Private Sub Command 1Click() Open“out txt”For Output As2 Print“Textl” Close#2 End Sub 调试时发现没有达到目的,为实现上述目的,应做的修改是 ( A)把 Print“Text1”改为 Print#2, Textl ( B)把 Print”Text1”改为 Print Text1 ( C)把 P
15、rint“Text1”改为 Write“Text1” ( D)把所有 #2改为 #1 19 设有语句 Open“c: Test Dat”For OutputAs#1则以下叙述中错误的是 ( A)该语句打开 C盘根目录下的一个文件 Test Dat,如果该文件不存在则出错 ( B)该语句打开 C盘根目录下一个名为 Test Dat的文件,如果该文件不存在则创建该文件 ( C)该语句打开文件的文件号为 1 ( D)执行该语句后,就可以通过 Print#语句向文件 Test Dat中写入信息 20 顺序文件在一次打开期间 ( A)只能读,不能写 ( B)只能写,不能读 ( C)既可读,又可写 ( D
16、)或者只读,或者只写 21 设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10: TelNum As String*20 End Type 在窗体上画一个名为 Commandl的命令按钮,要求当执行事件过程 Command1Click时,在顺序文件 Person txt中写入一条 Books类型的记录。下列能够完成该操作的事件过程是 ( A) Private Sub Command1 Click() ( B) Private Sub Command 1 Click() Dim B As Books Dim B As Books Op
17、en“Person txt”For Output As#1Open“Person txt”For Input As #1 B Name=InputBox(“输入姓名 ”)B Name=InputBox(“输入姓名 ”) B TelNum=InputBox(“输入电话号码 ”)B TelNum=InputBox(“输入电话号码 ”) Write #1, B Name, B TelNum Print ( C) Private Sub Commandl Click() ( D) Private Sub Commandl Click() Dim B As BooksOpen“Person txt”Fo
18、r Input As#1 Open”Person txt”For Output As #1Name=InputBox(“输入姓名 ”) B Name=InputBox(“输入姓名 ”)TelNum=InputBox(“输入电话号码 ”) B TelNum=InputBox(“输入电话号码 ”)Print #1, Name, TelNum Write#1, B Close#1Close #1 End 22 以下关于文件的叙述中,错误的是 ( A)顺序文件中的记录是一个接一个地顺序存放 ( B)随机文件中记录的长度是随机的 ( C)文件被打开后,自动生成一个文件指针 ( D) EOF函数用来测试是
19、否到达文件尾 23 以下叙述中错误的是 ( A) Print #语句和 Write#语句都可以向文件中写入数据 ( B)用 Print #语句和 Write#语句所建立的顺序文 件格式总是一样的 ( C)如果用 Print #语句把数据输出到文件,则各数据项之间没有逗号分隔,字符串也不加双引号 ( D)如果用 Write #语句把数据输出到文件,则各数据项之间自动插入逗号,并且把字符串加上双引号 24 为了保存数据,需打开顺序文件 “E: UserData txt”,以下正确的命令是 ( A) Open E: UserData txt For Input As#1 ( B) Open“E: U
20、serData txt”For Input As #2 ( C) Open E: UserData txt For Output As1 ( D) Open“E: UserData txt”For Output As #2 25 为了读取数据,需打开顺序文件 “D: data5 txt”,以下正确的命令是 ( A) Open D: data5 txt For Input As#1 ( B) Open“D: idata5 txt”For Input As#2 ( C) Open D: data5 txt For Output As#1 ( D) Open”D: data5 txt”For Out
21、put As#2 26 在窗体上画一个名称为 Command1的命令按钮,并编写如下程序: Private Type Record IDAs Integer: NameAs String*20 End Type Private Sub Command 1Click() Dim MaxSize, NextChar,MyChar Open“d: temp female txt“For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step一 1 MyChar=Input(1, #1) ( A) True ( B) False ( C) 0
22、( D) Null 27 窗体上有一个名称为 Text1的文本框,一个名称为 Commandl的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Commandl Click() Dim s1 As String, s2 As Strilag Open“c: d4 dat”For Append As#3 Line Input#3, s1 Line Input#3, s2 Text1 Text=s1+s2 Close End Sub 该程序运行时有错误,应该进行的修改是 ( A)将 Open语句中的 For Append改为 For Input ( B)将 Line In
23、put改为 Line ( C)将两条 Line Input语句合并为 Line Input#3, s1, s2 ( D)将 Close语句改为 Close#3 28 窗体上有一个名称为 Commandl的命令按钮。要求编写程序,把文件 f1 txt的内容写到文件 f2 txt中,然后将 f1 txt删除。命令按钮的单击事件过程如下: Private Sub Commandl Click() Open“c: f1 txt”For InputAs#1 Open“c: f2 txt”For OutputAs#2 Do While Not EOF(2) Line Input#1, strl Print
24、#2, str1 Loop Close Kill“e: f1 txt” End Sub ( A)打开 f1 txt应该使用 Output方式,打开 f2 txt应该使用 Input方式 ( B) Not F OF(2)应该改为 Not EOF(1) ( C) Line Input应改为 Get ( D) Close语句 改为 Close All 29 窗体上有一个名称为 Commandl的命令按钮。其单击事件过程如下: Private Sub Command 1 Click() Open”c: kfl txt“For InputAs#1: Open”c: f2 txt”For OutputAs
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 选择题 模拟 161 答案 解析 DOC
