2. 计算机
  3. 阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 【说明】 某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这 些数据之和，其运行窗口

阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 【说明】 某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这 些数据之和，其运行窗口

admin2008-01-03  97
问题 阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
   某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这
些数据之和，其运行窗口如下。
   
   用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就
能在“总计”文本框中看到该文本文件中的数据之和。
   在开发过程中，设驱动器列表框名为Drivel，目录列表框名为Dirl，文件列表框名为Filel，存放数据的文本文件名为D：\test\vb7\datA
．txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为textl。
【Visual Basic代码】
   Private Sub Drivel_Change()
     Dirl．Path=(1)          ’户选择的驱动器反映到目录列表框中
   End Sub
   Private Sub Dirl_Change()
     Filel．Path=(2)            ’用户选择的文件夹改变文件列表框内容
   End Sub
   Private Sub sum_Click()
     Dim  (3) As New FileSystemOject, (4)  As TextStxeam
   ’创建自己的文件系统对象，说明自己的文本流对象
   If Right (Dirl．Path，1)="\"Then
       SetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)
     Else
       SetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)
     End“
   S=0
     Do
       d=Val (myTextFilE．ReadRow)
       S=S+d
     Loop While  (5)  
     Textl．Text=Str$(S)
   End Sub
选项
答案(1)Drivel．Drive (2)Dirl．Path (3)fso (4)myTextFile (5)d＜＞0
解析 驱动器列表框(DriveListBox)、目录列表框(DirListBox)和文件列表框(FileListBox)是Visual Basic提供的内部控件，驱动器列表框

(DriveListBox)可自动填写驱动器的名字和卷标，目录列表框(DirListBox)可显示指定驱动器的目录树，而文件列表框 (FileListBox)则是一

个特殊的ListBox控件，它显示指定目录下的所有文件，并可选择按文件的名字、扩展名或属性排列内容。
   这些控件常常在一个窗体中工作，当用户在DriveListBox中选择一个驱动器时， DirListBox控件就更新显示该驱动器上的目录树，当用户

在DirListBox中选择一条路径时，FileListBox控件中的内容为该目录下的文件列表，这些活动自动地触发Change事件。但是，这些活动不能自

动完成，需要为Change事件编写代码，通过代码将驱动器列表框的Drive属性(指明当前驱动器)赋值给目录列表框的Path属性，将目录列表框的

Path属性(指明当前路径)赋值给文件列表框的Path属性，即Dirl．Path=Drivel．Drive， Filel．Path=Dirl．Path。
   “Dim”是声明变量的关键字，在过程sum_Click()中，显然是对文件系统对象fso和文本流对象myTextFile进行声明。
   根据题目的说明，所处理的文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。计算该文

件中的数据之和时，当读入的数据d等于0时应结束计算。因此，根据循环控制，空(5)处填写“d＜＞0”(d不等于0)。
转载请注明原文地址:https://kaotiyun.com/show/ZzjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

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