首页
登录
从业资格
【说明】 某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后
【说明】 某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后
最全题库
2022-08-02
59
问题
【说明】 某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后一行以数字“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://tihaiku.com/congyezige/2428392.html
本试题收录于:
初级程序员题库软件水平考试初中高级分类
初级程序员
软件水平考试初中高级
相关试题推荐
土地权利人申请更正登记时,应当向国土资源行政主管部门提交的文件资料有( )A.
注销异议登记申请人应当提交的文件资料有( )。A.土地登记申请书 B.异议登
土地用途变更登记时申请人应当提交的权属文件资料包括( )。A.土地登记机关发出
地址变更登记时应提交的土地权属证明文件有( )。A.政府批地文件 B.地址变
下列各项中,属于土地使用权抵押权变更登记应提交的权属证明文件的有( )。A.原
下列关于土地用途变更批准文件的说法,错误的是( )。A.土地用途变更批准文件是
关于出让土地使用权的转让,下列说法不正确的是( )。A.出让合同和登记文件中所
建设用地使用权人申请划拨国有建设用地使用权初始登记时,应提交的土地权属证明文件有
证明土地权属来源所需的土地权属的参考文件不包括( )。A.地上物买卖、交换、继
现行最全面、最集中规定土地登记程序的文件是( )。A.《土地登记办法》 B.
随机试题
Shoalsoffishareabletomoveandturninseamlessformationbyfollowing
[originaltext]M:Hi,Linda!Ihaven’tseenyouforalongtime.Whathaveyoub
Ourape-menforefathershadnoobviousnaturalweaponsinthestrugglefors
(1)Neverinthehistoryofthemobilephonehastherebeensomuchhypeabo
商业银行关系人包括()。A.商业银行的董事 B.商业银行的管理人员 C.
氯氮平特别的优点是A、抗精神病作用强大 B、几无锥体外系反应 C、能直接抑制
SAC行业指数的特点是样本范围覆盖股票都进行指数撤权处理。()
上海证券交易所A股单笔买卖申报数量应当不低于50万股,或者交易金额不低于30万
下列费用中,属于建筑安装工程间接费的是()。A:勘察设计费 B:规费 C:联
女性,54岁。优秀话务员。近几年怀疑丈夫有外遇,看电视时激动,控制不住,外出走失
最新回复
(
0
)