【说明】
某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“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）。
你可能感兴趣的试题
一台主机的IP地址为202.123.25.36，掩码为255.255.254.0。如果该主机需要在该网络进行直接广播，那么它应该使用的目的地址为（ ）
-
- A.202.123.25.0
- B.202.123.25.255
- C.202.123.24.0
- D.202.123.24.255
- 查看答案
在计算机系统的日常维护工作中，应当注意硬盘工作时不能__(2)__。另外，需要防范病毒，而__(3)__是不会被病毒感觉的。
-
- A.电子邮件
- B.硬盘
- C.U盘
- D.ROM
- 查看答案
有 4 个 IP 地址：201.117.15.254、201.117.17.01、201.117.24.5 和 201.117.29.3，如果子网掩码为 255.255.248.0，则这 4 个地址分别属于3个子网；其中属于同一个子网的是（）
-
- A.201.117.15.254 和 201.117.17.01
- B.201.117.17.01 和 201.117.24.5
- C.201.117.15.254 和 201.117.29.3
- D.201.117.24.5 和 201.117.29.3
- 查看答案
在异步通信中，每个字符包含1位起始位、7位数据位、1位奇偶位和1位终止位，每秒钟传送200个字符，采用4相位调制，则码元速率为（）。
-
- A.50波特
- B.500波特
- C.550波特
- D.1000波特
- 查看答案
在 Windows 中，运行（ ）命令得到下图所示结果。以下关于该结果的叙述中，错误的是（ ）。
Pinging 59.74.111.8 with 32 bytes of data:
Reply from 59.74.111.8: bytes=32 time=3ms TTL=60
Reply from 59.74.111.8: bytes=32 time=5ms TTL=60
Reply from 59.74.111.8: bytes=32 time=3ms TTL=60
Reply from 59.74.111.8: bytes=32 time=5ms TTL=60
Ping statistics for 59.74.111.8:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 3ms, Maximum = 5ms, Average = 4ms
-
- A.该命令使得本地主机向目标主机发送了 4 个数据包
- B.本地主机成功收到了目标主机返回的 4 个数据包
- C.本地主机与目标主机连接正常
- D.该命令用于查看目标主机的 IP 地址
- 查看答案