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
