【计算机类职业资格】国家二级VB机试（键盘与鼠标事件过程、多重窗体与数据文件）模拟试卷1及答案解析.doc

1、国家二级 VB机试（键盘与鼠标事件过程、多重窗体与数据文件）模拟试卷 1及答案解析(总分：56.00，做题时间：90 分钟)一、选择题(总题数：28，分数：56.00)1.下列事件的事件过程中，参数是输入字符 ASCII码的是( )。（分数：2.00）A.KeyDown事件B.KeyUp事件C.KeyPress事件D.Change事件2.以下说法中正确的是( )。（分数：2.00）A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress事件过程B.因为窗体不接受焦点，所以窗体不存在自己的 KeyPress事件过程C.若按下的键相同，KeyPress 事件过程中的 KeyAs

2、cii参数与 KeyDown事件过程中的 KeyCode参数的值也相同D.在 KeyPress事件过程中，KeyAscii 参数可以省略3.将窗体的 KeyPreview属性设为 True，然后编写如下程序： Private Sub FormKeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub FormKeyPress(KeyAsciiAs Integer) Print Chr(KeyAscii) End Sub 运行程序时，按下字母键 a，则窗体上显示的是( )。（分数：2.00

3、）A.A aB.A AC.a AD.a a4.以下可以判断是否在文本框(名称为 Text1)内按下了回车键的事件过程是( )。（分数：2.00）A.Textl_ChangeB.Textl一 ClickC.Text1_KeyPressD.Text1一 GotFocus5.下面叙述中错误的是( )。（分数：2.00）A.由于窗体不能获得焦点，所以窗体没有键盘事件B.框架控件没有键盘事件C.标签控件没有键盘事件D.文本框有键盘事件，但当 Enabled属性被设置为 False时，其键盘事件无法被激活6.设窗体上有一个名称为 Checkl的复选框，并有下面程序代码：Private Sub Check

4、l 一MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)ChecklValue=lEnd Sub根据上面的事件过程，可以得出结论( )。（分数：2.00）A.鼠标单击该复选框，复选框的标题被改为“1”B.鼠标右键单击该复选框，可以选中该复选框C.鼠标左键单击该复选框，它被选中，右键单击它，取消选中D.鼠标右键单击该复选框，它被选中，左键单击它，取消选中7.窗体的 MouseUp事件过程如下：Private Sub FormMouseUp(Buaon As Integer，Shift As Integer，X

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

6、述中错误的是( )。（分数：2.00）A.x、y 参数表示的是 Commandl左上角在窗体中的位置B.Button参数用于确定按下的鼠标键C.Shift参数用于确定是否按下了 Alt、Ctrl 或 Shift键D.MouseUp表示抬起鼠标按键时触发的事件9.要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为 Labell)中，如下图所示，放开鼠标左键后，停止同步显示。 （分数：2.00）A.Pfivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y A

7、s Single) If Button=1 Then Labell=“X=”&X” Y=”&Y End If End SubB.Private Sub FormMouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=l Then Labell=“X=“&X” Y=”&Y End If End SubC.Private Sub FormMouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1

8、Then Labell=”X=”&X&” Y=”&Y End If End SubD.Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) Labell=”X=”&X&” Y=”&Y End Sub10.下列操作说明中，错误的是( )。（分数：2.00）A.在具有焦点的对象上进行一次按下字母键操作，会引发 KeyPress事件B.可以通过 MousePointer属性设置鼠标光标的形状C.不可以在属性窗口设置 MousePointer属性D.可以在程序代码中设置 MouseP

9、ointer属性11.为了实现对象的自动拖放，应该设置该对象的一个属性。下面设置中正确的是( )。（分数：2.00）A.DragMode=lB.DmgMode=0C.Dragleon=1D.DragIeon=012.鼠标拖放控件要触发两个事件，这两个事件是( )。（分数：2.00）A.DragOver事件和 DragDrop事件B.Drag事件和 DragDrop事件C.MouseDown事件和 KeyDown事件D.MouseUp事件和 KeyUp事件13.设工程中有 2个窗体：Form1 和 Form2，每个窗体上都有一个名称为 Text1的文本框。若希望把 Form1上文本框中的内容复制

10、到 Form2上的文本框中，应进行的操作是( )。（分数：2.00）A.执行 Form1中的语句：Form1Textl=Form2Text1B.执行 Form1中的语句：Text1=Form1TextC.执行 Form2中的语句：Form1Textl=Text1D.执行 Form2中的语句：Text1=Form1Text114.如果要将一个窗体从内存中清除，应使用的语句是( )。（分数：2.00）A.UnloadB.ShowC.LoadD.Hide15.为了在 FormLoad事件过程中用 Print方法在窗体上输出指定的内容，首先应执行的操作是( )。（分数：2.00）A.设置窗体的 Vis

11、ible属性B.设置窗体的 AutoRedraw属性C.调用窗体的 Show方法D.设置窗体的 Enabled属性16.以下关于 VB特点的叙述中，错误的是( )。（分数：2.00）A.VB中一个对象可有多个事件过程B.VB应用程序能以编译方式运行C.VB应用程序从 FormLoad事件过程开始执行D.在 VB应用程序中往往通过引发某个事件导致对对象的操作17.Visual Basic中的“启动对象”是指启动 Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于 Visual Basic“启动对象”的描述中，错误的是( )。（分数：2.00）A.“启动对象”可以是指定的标准

12、模块B.“启动对象”可以是指定的窗体C.“启动对象”可以是 Sub Main过程D.若没有经过设置，则默认的“启动对象”是第一个被创建的窗体18.对于含有多个窗体的工程而言，以下叙述中正确的是( )。（分数：2.00）A.没有指定启动窗体时，系统自动将最后一个添加的窗体设置为启动窗体B.启动窗体可以通过“工程属性”对话框指定C.L0ad方法兼有装入和显示窗体两种功能D.Hide方法可以将指定的窗体从内存中清除19.以下关于 VB文件的叙述中，正确的是( )。（分数：2.00）A.标准模块文件的扩展名是frmB.一个vbg 文件中可以包括多个vbp 文件C.一个vbp 文件只能含有一个标准模块文

13、件D.类模块文件的扩展名为has20.以下关于文件的叙述中，错误的是( )。（分数：2.00）A.顺序文件有多种打开文件的方式B.读取顺序文件的记录时，只能从头至尾逐记录进行C.顺序文件中各记录的长度是固定的D.随机文件一般占用空间比较小21.下列关于顺序文件的描述中，正确的是( )。（分数：2.00）A.文件的组织与数据写入的顺序无关B.主要的优点是占空间少，且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据22.VB应用程序不能把一个二维表格中的数据存入文件( )。（分数：2.00）A.VB数据文件不包括 VB的窗体文件B.VB应用程序可以用随机方式读写

14、数据文件C.VB应用程序在读写数据文件之前，必须用 Open语句打开该文件D.VB应用程序不能把一个二维表格中的数据存入文件23.下面关于文件叙述中错误的是( )。（分数：2.00）A.VB数据文件需要先打开，再进行处理B.随机文件每个记录的长度是固定的C.不论是顺序文件还是随机文件，都是数据文件D.顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录24.用语句 Open“C：teactxt”For Input As#1 打开文件后，就可以编程序( )。（分数：2.00）A.将 C盘根目录下 teactxt 文件的内容读入内存B.在 C盘根目录下建立名为 teactxt 的文件C.把内存

15、中的数据写入 c盘根目录下名为 teactxt 的文件D.将某个磁盘文件的内容写入 C盘根目录下名为 teactxt 的文件25.为了保存数据，需打开顺序文件”E：UserDatatxt”，以下正确的命令是( )。（分数：2.00）A.Open E：UserDatatxt For Input As#1B.Open”E：UserDatatxt”For：input As#2C.Open E：UserDatatxt For Output As#lD.Open”E：UserDatatxt”For Output As#226.为了读取数据，需打开顺序文件”D：data5txt”，以下正确的命令是( )。

16、（分数：2.00）A.Open D：data5txt For Input As#1B.Open”D：data5txt”For Input As#2C.Open D：data5txt For Output As#1D.Open“D：data5txt”For Output As#227.设在当前目录下有一个名为“filetxt”的文本文件，其中有若干行文本。编写如下程序： Private Sub CommandlClick() Dim ch$ascii As Integer Open”filetxt”For Input As#1 While Not EOF(1) Line Input#1ch as

17、cii=toascii(ch) Print ascii Wend Close#1 End Sub Private Function toascii(mystr As String)As Integer n=0 For k=1 To Len(mystr) n=n+Asc(Mid(mystr，k，1) Next k toastii=n End Function程序的功能是( )。（分数：2.00）A.按行计算文件中每行字符的 ASC码之和，并显示在窗体上B.计算文件中所有字符的 ASC码之和，并显示在窗体上C.把文件中所有文本行按行显示在窗体上D.在窗体上显示文件中所有字符的 ASC码值28.文件

18、 d：citytxt 的内容如下： BeiJing TianJin ShangHai ChongQing 编写如下事件过程： Private Sub FormClick() Dim InD Open“d：citytxt”For Input As#1 Do While Not EOF(1) Line Input#1InD Loop Close 1 Print InD End Sub 运行程序，单击窗体，输出结果是( )。（分数：2.00）A.文件 citytxt 的全部内容B.BeiJingC.ChongQingD.空白国家二级 VB机试（键盘与鼠标事件过程、多重窗体与数据文件）模拟试卷 1答案

19、解析(总分：56.00，做题时间：90 分钟)一、选择题(总题数：28，分数：56.00)1.下列事件的事件过程中，参数是输入字符 ASCII码的是( )。（分数：2.00）A.KeyDown事件B.KeyUp事件C.KeyPress事件 D.Change事件解析：解析：KeyPress 事件参数 KeyAscii As Integer，KeyAscii 是所按键字符的 ASCII码。KeyDown和 Keyup事件参数有两个，是 KeyCode As Integer和 Shift As Integer，KeyCode 是按键的实际的ASCII码，同一个按键上的大小写字母它们的 KeyCode

20、相同(使用大写字母的 ASCII码)。2.以下说法中正确的是( )。（分数：2.00）A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress事件过程 B.因为窗体不接受焦点，所以窗体不存在自己的 KeyPress事件过程C.若按下的键相同，KeyPress 事件过程中的 KeyAscii参数与 KeyDown事件过程中的 KeyCode参数的值也相同D.在 KeyPress事件过程中，KeyAscii 参数可以省略解析：解析：B)选项错误原因：窗体有自己的 KeyPress事件过程；c)选项错误原因：KeyPress 事件过程中的 KeyAscii参数返回按键的 ASCI

21、I码值，大小写字母返回值不同；而 KeyDown事件过程中的 KeyCode参数返回的是按键代码，大小写字母返回值相同。故按下的键相同时，keyAscii 和 KeyCode参数不一定返回相同值；D)选项错误原因：KeyPress 事件中的 KeyAscii参数不能省略。A)选项正确。3.将窗体的 KeyPreview属性设为 True，然后编写如下程序： Private Sub FormKeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub FormKeyPress(KeyAsci

22、iAs Integer) Print Chr(KeyAscii) End Sub 运行程序时，按下字母键 a，则窗体上显示的是( )。（分数：2.00）A.A aB.A A C.a AD.a a解析：解析：KeyCode 是按键的实际字符(不区分大小写)，KeyAscii 是以字符为准，是所按键的 ASCII码。4.以下可以判断是否在文本框(名称为 Text1)内按下了回车键的事件过程是( )。（分数：2.00）A.Textl_ChangeB.Textl一 ClickC.Text1_KeyPress D.Text1一 GotFocus解析：解析：KeyPress 事件：用户按下并且释放一个会产

23、生 ASCII码的键时被触发。此事件只对会产生ACSII码的按键有反应，包括数字、大小写的字母、Enter、Backspace、Esc、Tab 等，对于如方向键这样的不会产生 ASCII码的按键，KeyPress 事件就不会被触发。5.下面叙述中错误的是( )。（分数：2.00）A.由于窗体不能获得焦点，所以窗体没有键盘事件 B.框架控件没有键盘事件C.标签控件没有键盘事件D.文本框有键盘事件，但当 Enabled属性被设置为 False时，其键盘事件无法被激活解析：解析：KeyPreview 属性返回或设置一个值，以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件为：KeyDown、

24、KeyUp 和 KeyPress。当 KeyPreview的值为 True时窗体先接收键盘事件，然后是活动控件接收事件；为 False时(缺省值)活动控件接收键盘事件，而窗体不接收。6.设窗体上有一个名称为 Checkl的复选框，并有下面程序代码：Private Sub Check l 一MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)ChecklValue=lEnd Sub根据上面的事件过程，可以得出结论( )。（分数：2.00）A.鼠标单击该复选框，复选框的标题被改为“1”B.鼠标右键单击该复选框，可

25、以选中该复选框 C.鼠标左键单击该复选框，它被选中，右键单击它，取消选中D.鼠标右键单击该复选框，它被选中，左键单击它，取消选中解析：解析：在鼠标单击事件过程中，Button 属性值为 1时代表按下鼠标左键，值为 2时代表按下鼠标右键，单击鼠标左键或者右键都能触发 MouseDown事件。Value 属性值决定每个复选框的选中状态：0 为未选、1 为选中、2 为不可用(以灰色呈现)。选 B)。7.窗体的 MouseUp事件过程如下：Private Sub FormMouseUp(Buaon As Integer，Shift As Integer，X As Single，Y As Single)

26、End Sub 关于以上定义，以下叙述中错误的是( )。（分数：2.00）A.根据 Shift参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button参数的值是在 MouseUp事件发生时，系统自动产生的D.MouseUp是鼠标向上移动时触发的事件 解析：解析：MouseUp 事件是鼠标松开时触发的事件过程，事件过程的 Button参数值由系统产生，为被按下的键，Shift 参数表示 Shift、Ctrl 和 Alt键的状态，X、Y 参数表示光标的当前位置。8.命令按钮 Commandl的 MouseUp事件过程结构如下：Private Sub Com

27、mandlMouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)End Sub 则以下叙述中错误的是( )。（分数：2.00）A.x、y 参数表示的是 Commandl左上角在窗体中的位置 B.Button参数用于确定按下的鼠标键C.Shift参数用于确定是否按下了 Alt、Ctrl 或 Shift键D.MouseUp表示抬起鼠标按键时触发的事件解析：解析：X，Y 用来表示鼠标光标当前在窗体上的 X、Y 轴坐标。9.要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为

28、Labell)中，如下图所示，放开鼠标左键后，停止同步显示。 （分数：2.00）A.Pfivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1 Then Labell=“X=”&X” Y=”&Y End If End SubB.Private Sub FormMouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=l Then Labell=“X=“&X” Y

29、=”&Y End If End SubC.Private Sub FormMouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1 Then Labell=”X=”&X&” Y=”&Y End If End Sub D.Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) Labell=”X=”&X&” Y=”&Y End Sub解析：解析：鼠标移动时产生的事件是 Mou

30、seMove事件。MouseDown 事件过程的参数定义如下： Sub Form_MouseMove(Button As integer，Shift As Integer，x As Single，y As single) 其中 Button表示被按下的鼠标键，按下左键时值为 1，按下右键时值为 2，按下中间键时值为 4。x，y 参数表示鼠标光标当前位置的坐标。 题目要求按住左键时移动显示鼠标位置，因此在事件过程要判断是否按下了左键，按下了左键则在标签中显示鼠标位置，否则不显示。因此可用Button=1 来判断是否按下了左键及是否显示鼠标位置。因此应该选择 C选项。10.下列操作说明中，错误的是

31、( )。（分数：2.00）A.在具有焦点的对象上进行一次按下字母键操作，会引发 KeyPress事件B.可以通过 MousePointer属性设置鼠标光标的形状C.不可以在属性窗口设置 MousePointer属性 D.可以在程序代码中设置 MousePointer属性解析：解析：可以在属性窗口中给 MousePointer属性设置属性值。故 c选项错误。11.为了实现对象的自动拖放，应该设置该对象的一个属性。下面设置中正确的是( )。（分数：2.00）A.DragMode=l B.DmgMode=0C.Dragleon=1D.DragIeon=0解析：解析：实现对象的自动拖放应设置 Drag

32、Mode=1。12.鼠标拖放控件要触发两个事件，这两个事件是( )。（分数：2.00）A.DragOver事件和 DragDrop事件 B.Drag事件和 DragDrop事件C.MouseDown事件和 KeyDown事件D.MouseUp事件和 KeyUp事件解析：解析：当鼠标拖动控件到目标对象上，不松开鼠标时，触发目标对象的 DragOver事件；松开鼠标时，就会触发目标对象的：DragDrop 事件。故选 A。13.设工程中有 2个窗体：Form1 和 Form2，每个窗体上都有一个名称为 Text1的文本框。若希望把 Form1上文本框中的内容复制到 Form2上的文本框中，应进行的

33、操作是( )。（分数：2.00）A.执行 Form1中的语句：Form1Textl=Form2Text1B.执行 Form1中的语句：Text1=Form1TextC.执行 Form2中的语句：Form1Textl=Text1D.执行 Form2中的语句：Text1=Form1Text1 解析：解析：把 Forml上文本框中的内容复制到 Form2上的文本框中，应该在 Form2中添加语句：Textl=FormlText1。14.如果要将一个窗体从内存中清除，应使用的语句是( )。（分数：2.00）A.Unload B.ShowC.LoadD.Hide解析：解析：Unload 语句用来将指定窗

34、体从内存中清除。格式：Unload 窗体名称。15.为了在 FormLoad事件过程中用 Print方法在窗体上输出指定的内容，首先应执行的操作是( )。（分数：2.00）A.设置窗体的 Visible属性B.设置窗体的 AutoRedraw属性C.调用窗体的 Show方法 D.设置窗体的 Enabled属性解析：解析：窗体加载的时候可以 Print，但这个时候还没有显示出来，看不到 Print的结果，要调用窗体的 Show方法显示结果。16.以下关于 VB特点的叙述中，错误的是( )。（分数：2.00）A.VB中一个对象可有多个事件过程B.VB应用程序能以编译方式运行C.VB应用程序从 Fo

35、rmLoad事件过程开始执行 D.在 VB应用程序中往往通过引发某个事件导致对对象的操作解析：解析：VB 应用程序不一定从 FromLmad事件开始执行，它是由工程中启动对象决定先从哪儿开始执行。故 C选项错误。17.Visual Basic中的“启动对象”是指启动 Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于 Visual Basic“启动对象”的描述中，错误的是( )。（分数：2.00）A.“启动对象”可以是指定的标准模块 B.“启动对象”可以是指定的窗体C.“启动对象”可以是 Sub Main过程D.若没有经过设置，则默认的“启动对象”是第一个被创建的窗体解析

36、：解析：VB 中启动对象可以是 Sub Main过程或窗体，不能是标准模块。故 A选项错误。18.对于含有多个窗体的工程而言，以下叙述中正确的是( )。（分数：2.00）A.没有指定启动窗体时，系统自动将最后一个添加的窗体设置为启动窗体B.启动窗体可以通过“工程属性”对话框指定 C.L0ad方法兼有装入和显示窗体两种功能D.Hide方法可以将指定的窗体从内存中清除解析：解析：没有指定启动窗体时，系统自动将第一个窗体默认为启动窗体，所以选项 A)错误；要想使包含多个窗体的工程中的某个窗体在程序运行时首先显示，则方法就是在“工程属性”对话框中将“启动对象”设置为某个窗体，所以选项 B)正确；Loa

37、d 方法有装入窗体功能，所以选项 c)错误；Hide 方法使指定的窗体不显示，但不从内存中删除窗体，所以选项 D)错误。19.以下关于 VB文件的叙述中，正确的是( )。（分数：2.00）A.标准模块文件的扩展名是frmB.一个vbg 文件中可以包括多个vbp 文件 C.一个vbp 文件只能含有一个标准模块文件D.类模块文件的扩展名为has解析：解析：标准模块文件的扩展名是。bas；工程组文件的扩展名是.vbs，由多个工程文件组成；工程文件的扩展名是vbp，可以含有多个标准模块文件；类模块文件的扩展名为cls。20.以下关于文件的叙述中，错误的是( )。（分数：2.00）A.顺序文件有多种打开

38、文件的方式B.读取顺序文件的记录时，只能从头至尾逐记录进行C.顺序文件中各记录的长度是固定的 D.随机文件一般占用空间比较小解析：解析：顺序文件中各记录的长度不固定。21.下列关于顺序文件的描述中，正确的是( )。（分数：2.00）A.文件的组织与数据写入的顺序无关B.主要的优点是占空间少，且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据 解析：解析：顺序文件的特点是：文件中各记录写入、存放和读取的顺序是一致的，即最先写入的记录放在文件的最前面，后面写入的依次往后面存放，最后写人的记录存放在文件的最后。读取时也是，先读取完前面的记录，才能读取后面的记录。所

39、以文件的组织与数据写入的顺序有关，而且读取文件时效率低，不灵活。故 A选项错误，D 选项正确。根据顺序文件的特点，文件实现记录的增减不容易。故 B选项错误。顺序文件的每条记录中各数据项个数不固定，所以记录的长度也不固定。故 C选项错误。22.VB应用程序不能把一个二维表格中的数据存入文件( )。（分数：2.00）A.VB数据文件不包括 VB的窗体文件B.VB应用程序可以用随机方式读写数据文件C.VB应用程序在读写数据文件之前，必须用 Open语句打开该文件D.VB应用程序不能把一个二维表格中的数据存入文件 解析：解析：VB 应用程序可以把一个二维表格中的数据存入文件。23.下面关于文件叙述中错

40、误的是( )。（分数：2.00）A.VB数据文件需要先打开，再进行处理B.随机文件每个记录的长度是固定的C.不论是顺序文件还是随机文件，都是数据文件D.顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录 解析：解析：顺序文件的记录是顺序存放的，先写入的记录存放在文件的最前面，后写入的依次往后面存放，最后写入的记录放在文件的最后面。如果访问某条记录，要先访问前面的记录，才能访问后面的记录，不能按记录号直接访问。故 D选项错误。24.用语句 Open“C：teactxt”For Input As#1 打开文件后，就可以编程序( )。（分数：2.00）A.将 C盘根目录下 teactxt 文件

41、的内容读入内存 B.在 C盘根目录下建立名为 teactxt 的文件C.把内存中的数据写入 c盘根目录下名为 teactxt 的文件D.将某个磁盘文件的内容写入 C盘根目录下名为 teactxt 的文件解析：解析：Open 语句兼有打开文件和建立文件两种功能，Input 是指定顺序输入方式，题意为打开已存在的数据文件，以便从文件中读出记录。25.为了保存数据，需打开顺序文件”E：UserDatatxt”，以下正确的命令是( )。（分数：2.00）A.Open E：UserDatatxt For Input As#1B.Open”E：UserDatatxt”For：input As#2C.Ope

42、n E：UserDatatxt For Output As#lD.Open”E：UserDatatxt”For Output As#2 解析：解析：打开顺序文件的基本格式为：Open“文件名称”For Mode As#文件号。 “文件名称”表示要打开的文件的路径。 Mode 为打开模式：OutPut 用于输出；Append 用于追加写入；Input 用于读取。 文件号为打开文件时指定的句柄(即文件号)。26.为了读取数据，需打开顺序文件”D：data5txt”，以下正确的命令是( )。（分数：2.00）A.Open D：data5txt For Input As#1B.Open”D：data5

43、txt”For Input As#2 C.Open D：data5txt For Output As#1D.Open“D：data5txt”For Output As#2解析：解析：打开顺序文件的基本格式为：Open“文件名称”For Mode As#文件号。 “文件名称”表示要打开的文件的路径。 Mode 为打开模式：OutPut 用于输出；Append 用于追加写入；Input 用于读取。 文件号为打开文件时指定的句柄(即文件号)。27.设在当前目录下有一个名为“filetxt”的文本文件，其中有若干行文本。编写如下程序： Private Sub CommandlClick() Dim c

44、h$ascii As Integer Open”filetxt”For Input As#1 While Not EOF(1) Line Input#1ch ascii=toascii(ch) Print ascii Wend Close#1 End Sub Private Function toascii(mystr As String)As Integer n=0 For k=1 To Len(mystr) n=n+Asc(Mid(mystr，k，1) Next k toastii=n End Function程序的功能是( )。（分数：2.00）A.按行计算文件中每行字符的 ASC码之和

45、，并显示在窗体上 B.计算文件中所有字符的 ASC码之和，并显示在窗体上C.把文件中所有文本行按行显示在窗体上D.在窗体上显示文件中所有字符的 ASC码值解析：解析：过程 toascii的功能是依次取出传入字符串中的每个字符，用 Asc函数将这个字符转换为相应的 ASCII码值，通过 For循环将这些值累加。累加值由过程名返回。Click 事件中以顺序输入方式打开filetxt 文件，即以读取方式打开文件。While 循环的结束条件是到达文件尾部，在循环体中，Line Input#语句读取文件中的一行数据存入变量 ch中，然后以 ch为参数调用过程 toascii，即计算这一行字符中所有字符的

46、 ASCII码值的和，返回值赋给变量 ascii，在窗体上输出 ascii的值。所以 While循环结束时，将在窗体上显示输出 filetxt 中每一行数据的 ASCII码值的和。因此答案为 A。28.文件 d：citytxt 的内容如下： BeiJing TianJin ShangHai ChongQing 编写如下事件过程： Private Sub FormClick() Dim InD Open“d：citytxt”For Input As#1 Do While Not EOF(1) Line Input#1InD Loop Close 1 Print InD End Sub 运行程序，单击窗体，输出结果是( )。（分数：2.00）A.文件 citytxt 的全部内容B.BeiJingC.ChongQing D.空白解析：解析：#1 文件以读操作的方式打开。在文件结尾的部分退出。退出时 InD内存储的内容是ChongQing，打印的内容就是 ChongQing，选 D)。