题目内容

阅读以下说明及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

查看答案
更多问题

鄂温克族工艺品“太阳花”是根据鄂温克族神话《太阳姑娘希文乌娜吉》开发而成。()

直觉可以帮助我们预测变化与结果。()

第二节 书面表达
假定你是李明。2008年第29届夏季奥林匹克运动会将在中国北京举行,现正征集吉祥物。你希望藏羚羊能够人选。请你给国际奥委会(IOC)写封信,说明为什么藏羚羊是合适的吉祥物。
理由包括:
● 性情温顺,象征和平和友谊;
● 耐高寒,速度快,象征奥运精神。
注意:
1.生词:吉祥物 mascot
藏羚羊Tibetan antelope
象征 symbol,to symbolize
温顺 mild
2.词数100词左右,信的开头与结尾已为你写好;
3.请直接将书面表达写在答题卡2背面。

人们大都会主动摒弃自己不喜欢的东西。()

答案查题题库