2. 从业资格
  3. 【说明】 　　某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后

【说明】 　　某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后

最全题库2022-08-02  28
问题 【说明】　　某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和，其运行窗口如下：用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就能在“总计”文本框中看到该文本文件中的数据之和。　　在开发过程中，设驱动器列表框名为Drive1，目录列表框名为Dir1，文件列表框名为File1，存放数据的文本文件名为D:\test\vb7\data.txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为text1。 【Visual Basic代码】　　Private Sub Drive1_Change ()　　　Dir1.Path = ___（1）___ ‘用户选择的驱动器反映到目录列表框中　　End Sub　　Private Sub Dir1_Change ()　　　File1.Path = ___（2）___ ‘用户选择的文件夹改变文件列表框内容　　End Sub　　Private Sub sum_Click ()　　　Dim ___（3）___ As New FileSystemObject ， ____（4）____ As TestStream‘创建自己的文件系统对象，说明自己的文本流对象　　　If Right ( Dir1.Path ， 1 ) = “ \ ” Then　　　Set myTextFile = fso.OpenTextFile ( Dir1.Path + File1.FileName)　　End If　　　Set myTextFile= fso.OpenTextFile ( Dir1.Path + “ \ ” +File1.FileName)　　　S = 0　　　Do　　　D = Val ( myTextFile.ReadRow )　　　S = S + d　　　Loop While ___（5）___　　Text1.Text = Str$ (S)　End Sub
选项
答案
解析 （1） Drive1.Drive
（2） Dir1.Path
（3） fso
（4） myTextFile
（5） d ＜> 0

这些控件常常在一个窗体中工作，当用户在DriveListBox中选择一个驱动器时，DriveListBox控件就更新显示该驱动器上的目录树，当用户在DirListBox中选择一条路径时，FileListBox控件中的内容为该目录下的文件列表，这些活动自动地触发Change事件。但是，这些活动不能自动完成，需要为Change事件编写代码，通过代码将驱动器列表框Drive属性（指明当前驱动器）赋值给目录列表框的Path属性，将目录列表框的Path属性（指明当前路径）赋值给文件列表框的Path属性，即Dir1.Path=Drive1.Drive，File1.Path=Dir1.Path。
    “Dim”是声明变量的关键字，在过程sum_Click()中，显然是对文件系统对象fso和文本流对象myTextFlie进行声明。
    根据循环控制，空（5）处填写“d＜>0”（d不等于0）。
转载请注明原文地址:https://www.tihaiku.com/congyezige/2428392.html
本试题收录于： 初级程序员题库软件水平考试初中高级分类

初级程序员

软件水平考试初中高级

相关试题推荐
随机试题
最新回复(0)