ImageVerifierCode 换一换
格式:DOC , 页数:22 ,大小:108KB ,
资源ID:1327529      下载积分:5000 积分
快捷下载
登录下载
邮箱/手机:
温馨提示:
如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝扫码支付 微信扫码支付   
注意:如需开发票,请勿充值!
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【http://www.mydoc123.com/d-1327529.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文(【计算机类职业资格】二级VISUAL+BASIC-95及答案解析.doc)为本站会员(sofeeling205)主动上传,麦多课文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文库(发送邮件至master@mydoc123.com或直接QQ联系客服),我们立即给予删除!

【计算机类职业资格】二级VISUAL+BASIC-95及答案解析.doc

1、二级 VISUAL+BASIC-95 及答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:48,分数:100.00)1.文本框 Text1 的 KeyDown 事件过程如下:Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)End Sub 其中参数 KeyCode 的值表示的是发生此事件时(分数:3.00)A.是否按下了 Alt 键或 Ctrl 键B.按下的是哪个数字键C.所按的键盘键的键码D.按下的是哪个鼠标键2.VB 中有 3 个键盘事件:KeyPress、KeyDown、KeyUp,若光标在

2、 Text1 文本框中,则每输入一个字母(分数:3.00)A.这 3 个事件都会触发B.只触发 KeyPress 事件C.只触发 KeyDown、KeyUp 事件D.不触发其中任何一个事件3.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1 和 Text1),并把窗体的 KeyPreview 属性设置为 True,然后编写如下代码: Dim SaveAll As String Private Sub Form_Load() Text1.Text=“:Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LC

3、ase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii_ As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为(分数:3.00)A.vbVBB.不显示任何信息C.VBD.出错4.窗体上有一个 Text1 文本框,并编写了下面事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub 程序运行时,在文本框

4、中输入字符“A”,则在文本框中实际显示的是(分数:3.00)AABBCCDD5.对于文本框 Text1,能够获得按键的 ASCII 码值的事件过程是(分数:2.00)A.Text1_KeyUpB.Text1_KeyPressC.Text1_ClickD.Text1_Change6.将窗体的 KeyPreview 属性设为 True,然后编写如下程序: Private Sub Form_KeyDown(KeyCode_ As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAsc

5、ii As Integer) Print Chr(KeyAscii) End Sub 运行程序时,按下字母键 a,则窗体上显示的是(分数:2.00)A.A AB.A aC.a AD.a a7.在窗体上画 1 名为 Command1 的命令按钮和 1 名 Text1 的文本框,再编写如下程序: Dim ss As String Private Sub Text1_KeyPress(KeyAscii_ As Integer) If Chr(KeyAscii)“Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As

6、 String, i As Integer For i=Len(ss) To 1 Step-1 m=m+Mid(ss, i, 1) Next Text1.Text=UCase(m) End Sub 程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是(分数:2.00)A.NUMBER 100B.REBMUNC.REBMUN 100D.001 REBMUN8.窗体上有 1 个名称为 Text1、内容为空的文本框。编写如下事件过程: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Prin

7、t Text1.Text; End Sub 运行程序,并在文本框中输入“123”,则在窗体上的输出结果为(分数:2.00)A.123B.112C.12123D.1121239.设窗体上有 2 个文本框 Text1 和 Text2,并有下面的事件过程: Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If “A“=Chr(KeyAscii) And Chr(KeyAscii)=“Z“ Then n=n+1 End If If KeyAscii=13 Then Text2.Text=n End Sub 程序运行时,在文本框 Text1 中

8、输入“Visual Basic 6.0”并按回车键后,在文本框 Text2 中显示的是(分数:2.00)A.2B.9C.13D.1610.若看到程序中有以下事件过程,则可以肯定的是,当程序运行时 Private Sub Click_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single) Print“VB Program“ End Sub(分数:2.00)A.用鼠标左键单击名称为“Command1”的命令按钮时,执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时,执行此过程C.用鼠标右键

9、单击名称为“MouseDown”的控件时,执行此过程D.用鼠标左键或右键单击名称为“Click”的控件时,执行此过程11.设有窗体的 Form_MouseMove 事件过程如下: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If(ButtonAnd 3)=3 Then Print“检查按键“ End If End Sub 关于上述过程,以下叙述中正确的是(分数:2.00)A.按下鼠标左键时,在窗体上显示“检查按键”B.按下鼠标右键时,在窗体上显示“检查按键”C

10、.同时按下鼠标左、右键时,在窗体上显示“检查按键”D.不论做何种操作,窗体上都不会显示12.要求当鼠标在图片框 P1 中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是(分数:2.00)A.Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Print X, YEnd SubB.Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Singl

11、e)Picture.Print X, YEnd SubC.Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)P1.Print X, YEnd SubD.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)P1.Print X, YEnd Sub13.窗体的 MouseUp 事件过程如下: Private Sub Form_MouseUp(Butto

12、n As Integer, Shift As Integer, X As Single, Y As Single) End Sub 关于以上定义,以下叙述中错误的是(分数:2.00)A.根据 Shift 参数,能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button 参数的值是在 MouseUp 事件发生时,系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件14.命令按钮 Command1 的 MouseUp 事件过程结构如下: Private Sub Command1_MouseUp(Button As Integer, Shift As Int

13、eger, X As Single, Y As Single) End Sub 则以下叙述中错误的是(分数:2.00)A.X、Y 参数表示的是 Command1 左上角在窗体中的位置B.Button 参数用于确定按下的鼠标键C.Shift 参数用于确定是否按下了 Alt、Ctrl 或 Shift 键D.MouseUp 表示抬起鼠标按键时触发的事件15.有下面事件过程: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then Form1.P

14、Set(X, Y)“PSet 方法可以在 X,Y 处画一个点 End If End Sub 程序运行后,产生的效果是(分数:2.00)A.在窗体上每单击鼠标左键一次,就在鼠标位置处画一个点B.按着鼠标左键,移动鼠标,可在窗体上画出鼠标的运动轨迹C.按着鼠标右键,移动鼠标,可在窗体上画出鼠标的运动轨迹D.不按任何鼠标键,移动鼠标,可在窗体上画出鼠标的运动轨迹16.窗体上已有 1 个名称为 Picture1 的图片框,要求实现下面 2 个功能之一:(1)在窗体上移动鼠标时,立即将 Picture1 显示在鼠标位置(2)在窗体上单击鼠标时,立即将 Picture1 显示在鼠标位置下面不能实现上述任何

15、功能的事件过程是(分数:2.00)A.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd SubB.Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd SubC.Private Sub Form_MouseDown(Button As Integer, Shift

16、 As Integer, X As Single, Y As Single)Picture1.CurrentX=X:Picture1.CurrentY=YEnd SubD.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd Sub17.编写如下程序: Private Sub Form_Click() Print “Welcome!“ End Sub Private Sub Form_MouseDown(Button As In

17、teger, Shift As Integer, X As Single, Y As Single) Print“欢迎!“ End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print“热烈欢迎!“ End Sub 程序运行后,单击窗体,输出结果为(分数:2.00)A.欢迎! 热烈欢迎! Welcome!B.欢迎! Welcome! 热烈欢迎!C.Welcome! 欢迎! 热烈欢迎!D.Welcome! 热烈欢迎! 欢迎!18.下列操作说明中,错误的是(

18、分数:2.00)A.在具有焦点的对象上进行一次按下字母键操作,会引发 KeyPress 事件B.可以通过 MousePointer 属性设置鼠标光标的形状C.不可以在属性窗口设置 MousePointer 属性D.可以在程序代码中设置 MousePointer 属性19.窗体上有 1 个名称为 Text1 的文本框,1 个名称为 Label1 的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为(分数:2.00)A.Private Sub Label1_Click()Label1.Caption=Text1.TextEnd SubB.Pri

19、vate Sub Label1_Change()Label1.Caption=Text1.TextEnd SubC.Private Sub Text1_Click()Label1.Caption=Text1.TextEnd SubD.Private Sub Text1_Change()Label1.Caption=Text1.TextEnd Sub20.鼠标拖放控件要触发两个事件,这两个事件是(分数:2.00)A.DragOver 事件和 DragDrop 事件B.Drag 事件和 DragDrop 事件C.MouseDown 事件和 KeyDown 事件D.MouseUp 事件和 KeyUp

20、 事件21.为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是(分数:2.00)A.DragMode=1B.DragMode=0C.Draglcon=1D.Draglcon=Q22.下列有关文件的叙述中,正确的是(分数:2.00)A.以 Output 方式打开一个不存在的文件时,系统将显示出错信息B.以 Append 方式打开的文件,既可以进行读操作,也可以进行写操作C.在随机文件中,每个记录的长度是固定的D.无论是顺序文件还是随机文件,其打开的语句和打开方式都是完全相同的23.下列关于顺序文件的描述中,正确的是(分数:2.00)A.文件的组织与数据写入的顺序无关B.主要的优

21、点是占空间少,且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据24.下面关于文件叙述中错误的是(分数:2.00)A.VB 数据文件需要先打开,再进行处理B.随机文件每个记录的长度是固定的C.不论是顺序文件还是随机文件,都是数据文件D.顺序文件的记录是顺序存放的,可以按记录号直接访问某个记录25.以下关于文件的叙述中,错误的是(分数:2.00)A.顺序文件有多种打开文件的方式B.读取顺序文件的记录时,只能从头至尾逐记录进行C.顺序文件中各记录的长度是固定的D.随机文件一般占用空间比较小26.用语句 Open“C:/teac.txt“For Input As

22、#1 打开文件后,就可以编程序(分数:2.00)A.将 C 盘根目录下 teac.txt 文件的内容读入内存B.在 C 盘根目录下建立名为 teac.txt 的文件C.把内存中的数据写入 C 盘根目录下名为 teac.txt 的文件D.将某个磁盘文件的内容写入 C 盘根目录下名为 teac.txt 的文件27.以下不属于 Visual Basic 数据文件的是(分数:2.00)A.顺序文件B.随机文件C.数据库文件D.二进制文件28.下面关于 VB 数据文件的叙述中错误的是(分数:2.00)A.VB 数据文件不包括 VB 的窗体文件B.VB 应用程序可以用随机方式读写数据文件C.VB 应用程序

23、在读写数据文件之前,必须用 Open 语句打开该文件D.VB 应用程序不能把一个二维表格中的数据存入文件29.某人编写了下面的程序,希望能把 Text1 文本框中的内容写到 out.txt 文件中 P Private Sub Command1_Click() Open“out.txt“ For Output As #2 Print“text1“ Close#2 End Sub 调试时发现没有达到目的,为实现上述目的,应做的修改是(分数:2.00)A.把 Print“Text1“改为 Print#2,Text1B.把 Print“Text1“改为 Print Text1C.把 Print“Tex

24、t1“改为 Write“Text1“D.把所有#2 改为#130.设有语句 Open“c:/Test.Dat“ For Ouput As #1 则以下叙述中错误的是(分数:2.00)A.该语句打开 C 盘根目录下的一个文件 Test.Dat,如果该文件不存在则出错B.该语句打开 C 盘根目录下一个名为 Test.Dat 的文件,如果该文件不存在则创建该文件C.该语句打开文件的文件号为 1D.执行该语句后,就可以通过 Print#语句向文件 Test.Dat 中写入信息31.顺序文件在一次打开期间(分数:2.00)A.只能读,不能写B.只能写,不能读C.既可读,又可写D.或者只读,或者只写32.

25、设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10:TelNum As String*20 End Type 在窗体上画一个名为 Command1 的命令按钮,要求当执行事件过程 Command1_Click 时,在顺序文件Person.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是(分数:2.00)A.Private Sub Command1_Click()Dim B As BooksOpen “Person.txt“ For Output As #1.Name=InputBox(“输入姓名“).Tel

26、Num=InputBox(“输入电话号码“)Write#1, B.Name, B.TelNumClose #1End SubB.Private Sub Command1_Click()Dim B As BooksOpen “Person.txt“ For Input As #1.Name=InputBox(“输入姓名“).TelNum=InputBox(“输入电话号码“)Print#1, .Name, .TelNumClose #1End SubC.Private Sub Command1_Click()Dim B As BooksOpen“Person.txt“ For Output As

27、#1.Name=InputBox(“输入姓名“).TelNum=InputBox(|输入电话号码“)Write #1.B Close #1End SubD.Private Sub Command1_Click()Open “Person.txt“ For Input As #1Name=InputBox(“输入姓名“)TelNum=InputBox(“输入电话号码“)Print #1, Name, TelNumClose #1End Sub33.以下关于文件的叙述中,错误的是(分数:2.00)A.顺序文件中的记录是一个接一个地顺序存放B.随机文件中记录的长度是随机的C.文件被打开后,自动生成一

28、个文件指针D.EOF 函数用来测试是否到达文件尾34.以下叙述中错误的是(分数:2.00)A.Print 群语句和 Write#语句都可以向文件中写入数据B.用 Print#语句和 Write#语句所建立的顺序文件格式总是一样的C.如果用 Print#语句把数据输出到文件,则各数据项之间没有逗号分隔,字符串也不加双引号D.如果用 Write#语句把数据输出到文件,则各数据项之间自动插入逗号,并且把字符串加上双引号35.为了保存数据,需打开顺序文件“E:/UserData.txt”,以下正确的命令是(分数:2.00)A.Open E:/UserData.txt For Input As#1B.O

29、pen“E:/UserData.txt“For Input As #2C.Open E:/UserData.txt For Output As#1D.Open“E:/UserData.txt“For Output As #236.为了读取数据,需打开顺序文件“D:/data5.txt”,以下正确的命令是(分数:2.00)A.Open D:/data5.txt For Input As #1B.Open “D:/data5.txt“For Input As #2C.Open D:/data5.txt For Output As #1D.Open “D:/data5.txt“For Output

30、As #237.在窗体上画一个名称为 Command1 的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Command1_Click() 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) Next NextChar Print EOF(1) Cl

31、ose#1 End Sub 运行程序,单击命令按钮,其输出结果为(分数:2.00)A.TrueB.FalseC.0D.Null38.窗体上有一个名称为 Text1 的文本框,一个名称为 Command1 的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String, s2 As String Open “c:/d4.dat“ For Append As #3 Line Input#3, s1 Line Input#3, s2 Text1.Text=s1+s2 Close End Sub 该程序运行时有错误,应该进

32、行的修改是(分数:2.00)A.将 Open 语句中的 ForAppend 改为 ForInputB.将 LineInput 改为 LineC.将两条 Line Input 语句合并为 Line Input #3, s1, s2D.将 Close 语句改为 Close #339.窗体上有一个名称为 Command1 的命令按钮。要求编写程序,把文件 f1.txt 的内容写到文件 f2.txt 中,然后将 f1.txt 删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open“c:/f1.txt“For Input As #1 Open“c:/f2.

33、txt“ For Output As #2 Do While Not EOF(2) Line Input #1, str1 Print #2, str1 Loop Close Kill“c:/f1.txt“ End Sub 该程序运行时发生错误,应该进行的修改是(分数:2.00)A.打开 f1.txt 应该使用 Output 方式,打开 f2.txt 应该使用 Input 方式B.Not EOF(2)应该改为 Not EOF(1)C.Line Input 应改为 GetD.Close 语句改为 Close All40.窗体上有一个名称为 Cornmand1 的命令按钮。其单击事件过程如下: P

34、rivate Sub Command1_Click() Open“c:/f1.txt“ For Input As#1:Open“c:/f2.txt“For Output As#2 Do While Not EOF(1) Line Input#1, str1:Print#2, str1 Loop Close End Sub 以下关于上述程序的叙述中,错误的是(分数:2.00)A.功能是将 f2.txt 中的内容复制到 f1.txt 中B.f1.txt 和 f2.txt 均是顺序文件C.EOF 函数可以判断是否已到文件的末尾D.Close 能够把打开的两个文件都关闭41.文件 d:/city.tx

35、t 的内容如下: BeiJing TianJin ShangHai ChongQing 编写如下事件过程: Private Sub Form_Click() DimInD Open“d:/city.txt“For Input As #1 Do While Not EOF(1) Line Input #1.InD Loop Close 1 Print InD End Sub 运行程序,单击窗体,输出结果是(分数:2.00)A.文件 city.txt 的全部内容B.BeiJingC.ChongQingD.空白42.在窗体上有两个名称分别为 Text1、Text2 的文本框,一个名称为 Comman

36、d1 的命令按钮。运行后的窗体外观如图所示。 (分数:2.00)A.Open“c:/Test2.dat“ For Output As #1 Put #1, 1, p Close #1B.Open“c:/Test2.dat“ For Random As #1 Get #1, 1, p Close #1C.Open“c:/Test2.dat“ For Random As #1 Len=Len(p)Put#1, 1, p Close #1D.Open“c:/Test2.dat“ For Random As #1 Len=Len(p)Get #1, 1, p Close #143.关于随机文件,以下叙

37、述中错误的是(分数:2.00)A.使用随机文件能节约空间B.随机文件记录中,每个字段的长度是固定的C.随机文件中,每个记录的长度相等D.随机文件的每个记录都有一个记录号44.下面语句中能够打开随机文件的是(分数:2.00)A.Open“file.txt“For Random As #1B.Open“file.txt“ For Input As #1C.Open“file.txt“ For Output As #1D.Open“file.txt“ For Append As #145.如果改变驱动器列表框的 Drive 属性,则将触发的事件是(分数:2.00)A.ChangeB.ScrollC.

38、KeyDownD.KeyUp46.要使得文件列表框 File1 中只显示文件扩展名为.jpg 的图片文件,则下列正确的语句是(分数:2.00)A.File1.Pattern=“*.jpg“B.File1.Parent=“*.jpg“C.File1.Path=“*.jpg“D.File1.Pattern=“图片文件|*.jpg“47.通过一个属性可以获得文件列表框中当前被选中文件的文件名,这个属性是(分数:2.00)A.DirB.PathC.DriveD.FileName48.关于文件操作,以下叙述中正确的是(分数:2.00)A.Kill 命令的作用是删除用户编写的 VB 程序文件B.使用 Na

39、me 命令能够对文件或文件夹重新命名C.用 FileCopy 进行文件拷贝时,可以使用通配符D.用 FileCopy 可以将打开的文件复制到指定的文件夹二级 VISUAL+BASIC-95 答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:48,分数:100.00)1.文本框 Text1 的 KeyDown 事件过程如下:Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)End Sub 其中参数 KeyCode 的值表示的是发生此事件时(分数:3.00)A.是否按下了 Alt 键或 Ctrl 键B

40、.按下的是哪个数字键C.所按的键盘键的键码 D.按下的是哪个鼠标键解析:解析 本题考查的考点是有关键盘事件 KeyDown 的。KeyCode 参数是表示所按键的位置信息的代码。2.VB 中有 3 个键盘事件:KeyPress、KeyDown、KeyUp,若光标在 Text1 文本框中,则每输入一个字母(分数:3.00)A.这 3 个事件都会触发 B.只触发 KeyPress 事件C.只触发 KeyDown、KeyUp 事件D.不触发其中任何一个事件解析:解析 当控件具有焦点时,如果按下一个字母键,将会依次触发此控件的 KeyDown、KeyUp 和KeyPress 事件。3.在窗体上画一个命

41、令按钮和一个文本框(名称分别为 Command1 和 Text1),并把窗体的 KeyPreview 属性设置为 True,然后编写如下代码: Dim SaveAll As String Private Sub Form_Load() Text1.Text=“:Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii_ As Integer) SaveAll=SaveAll+Chr(KeyAsci

42、i) End Sub 程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为(分数:3.00)A.vbVB B.不显示任何信息C.VBD.出错解析:解析 本题考查的考点是有关键盘事件的。KeyPreview 属性用于设置是否在控件的键盘事件之前激活窗体的键盘事件。KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键时触发的事件,KeyAscii 参数是所按键的 ASCII 的代码,将每个字符的大、小写形式作为不同的键代码解释。本题中输入“VB”的时候触发了窗体的 KeyPress 事件,将全局变量 SaveAll 设置为了“VB”,

43、所以单击命令按钮后,文本框中的值为“vbVB”。4.窗体上有一个 Text1 文本框,并编写了下面事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub 程序运行时,在文本框中输入字符“A”,则在文本框中实际显示的是(分数:3.00)AABBCCDD 解析:解析 KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键时触发的事件,KeyAscii 参数是所按键的 Ascii 的代码,将每个字符的大、小写形式作为不同的键代码解释。本题中令参数 Ke

44、yAscii 自加 3,则为该字母后面第三个字母。5.对于文本框 Text1,能够获得按键的 ASCII 码值的事件过程是(分数:2.00)A.Text1_KeyUpB.Text1_KeyPress C.Text1_ClickD.Text1_Change解析:解析 KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键时触发的事件,KeyAscii 参数是所按键的 Ascii 的代码,将每个字符的大、小写形式作为不同的键代码解释。6.将窗体的 KeyPreview 属性设为 True,然后编写如下程序: Private Sub Form_KeyDown

45、(KeyCode_ As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 运行程序时,按下字母键 a,则窗体上显示的是(分数:2.00)A.A AB.A a C.a AD.a a解析:解析 KeyCode 参数是表示所按键的位置信息的代码,同一字符大、小写状态下的 KeyCode 参数值相同,都是大写字符的 ASCII 码值;KeyAscii 参数是所按键的 ASCII 码值,该参数传递

46、一个字符,并且把字符的大、小写形式作为两种不同的字符。7.在窗体上画 1 名为 Command1 的命令按钮和 1 名 Text1 的文本框,再编写如下程序: Dim ss As String Private Sub Text1_KeyPress(KeyAscii_ As Integer) If Chr(KeyAscii)“Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String, i As Integer For i=Len(ss) To 1 Step-1 m=m+Mid(ss, i, 1) N

47、ext Text1.Text=UCase(m) End Sub 程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是(分数:2.00)A.NUMBER 100B.REBMUNC.REBMUN 100D.001 REBMUN 解析:解析 KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键触发的,KeyPress(KeyAscii As Integer)事件中 KeyAscii 参数是所按键的 ASCII 代码,该参数不显示键盘的物理状态,而只是传递一个字符代码。KeyPress 将每个字符的大、小写形式作为不同的键代

48、码解释,即作为两种不同的字符。Chr()可返回 ASCII 码对应的字符。 本题程序运行后,在文本框中每输入一个字符,将执行 Text1_KeyPress 事件过程,变量 ss 的值也随即变化,当输入“Number100”后,变量 ss=“Number100“。单击命令按钮后,执行 Command1_Click 事件过程,将字符串“Number100”中的字符逆序排列并以大写形式显示在文本框中,即“001 REBMUN”。8.窗体上有 1 个名称为 Text1、内容为空的文本框。编写如下事件过程: Private Sub Text1_KeyUp(KeyCode As Integer, Shif

49、t As Integer) Print Text1.Text; End Sub 运行程序,并在文本框中输入“123”,则在窗体上的输出结果为(分数:2.00)A.123B.112C.12123D.112123 解析:解析 当对象具有焦点时,释放键盘上某个按下的键时将触发该对象的 KeyUp 事件,所以每在文本框中按键一次就会触发一次该事件,第一次输出 1,第二次输出 12,第三次输出 123。9.设窗体上有 2 个文本框 Text1 和 Text2,并有下面的事件过程: Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If “A“=Chr(KeyAscii) And Chr(KeyAscii)=“Z“ Then n=n+1 End If If KeyAscii=13 Then Text2.Text=n End Sub 程序运行时,在文本框 Text1 中输入“Visual Basic 6.0”并按回车键后,在文本框 Text2 中显示的是(分数:2.00)A.2 B.9C.13D.16解析:解析 KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键触发的,KeyPress

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1