当前位置:首页计算机类软件水平考试初级程序员->【说明】  某个文本文件中存放了若干个非零数值有效数据,每个

【说明】

  某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后一行以数字“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)。

更新时间:2021-11-22 15:19

你可能感兴趣的试题

单选题

一台主机的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 地址
查看答案
单选题

在ISO OSF/RM参考模型中,七层协议中的__(1)__利用通信子网提供的服务实现两个用户进程之间端到端的通信。在这个模型中,如果A用户需要通过网络向B用户传送数据,则首先将数据送入应用层,在该层给它附加控制信息后送入表示层;在表示层对数据进行必要的变换并加头标后送入会话层;在会话层加头标送入传输层;在传输层将数据分解为__(本题)__后送至网络层;在网络层将数据封装成__(3)__后送至数据链路层;在数据链路层将数据加上头标和尾标封装成__(4)__后发送到物理层;在物理层数据以__(5)__形式发送到物理线路。B用户所在的系统接收到数据后,层层剥去控制信息,把原数据传送给B用户。

  • A.数据报
  • B.数据流
  • C.数据段
  • D.报文分组
查看答案
单选题

在OSI/RM中,解释应用数据语义的协议层是()。

  • A.数据链路层
  • B.网络层
  • C.表示层
  • D.应用层
查看答案
单选题

在TCP/IP协议栈中,ARP协议的作用是(),RARP协议的作用是(请作答此空)。

  • A.从MAC地址查找对应的IP地址
  • B.有IP地址查找对应的MAC地址
  • C.把全局IP地址转换为私网中的专用IP地址
  • D.用于动态分配IP地址
查看答案
单选题

在地址 http://www.dailynews.com.cn/channel/welcome.htm 中,www.dailynews.com.cn 表示( ),welcome.htm 表示(请作答此空)。

  • A.协议类型
  • B.主机域名
  • C.网页文件名
  • D.路径
查看答案
单选题

在电子表格软件Excel中,假设A1单元格的值为15,若在A2单元格输入“=AND(15<A1,A1<100)”,则A2单元格显示的值为 ()

  • A.TRUE
  • B.=AND(15<A1,A1<100)
  • C.FALSE
  • D.AND(15<A1,A1<100)
查看答案