试题七（15 分，每空3 分） 阅读以下说明及Visual Basic 程序代码，将应填入（n）处的字句写在答题纸的对应栏内。 [说明] 某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“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 TextStream ’ 创建自己的文件系统对象，说明自己的文本流对象 If Right(Dir1.Path, 1) = "/" Then Set myTextFile = fso.OpenTextFile(Dir1.Path + File1.FileName) Else Set myTextFile = fso.OpenTextFile(Dir1.Path + "/" + File1.FileName) End If S = 0 Do d = Val(myTextFile.ReadRow) S = S + d Loop While （5） Text1.Text = Str$(S) End Sub

题库:初级程序员 类型:简答题 时间:2021-07-10 11:19:44 免费下载:《问答集》Word试卷

试题七（15 分，每空3 分） 阅读以下说明及Visual Basic 程序代码，将应填入（n）处的字句写在答题纸的对应栏内。 [说明] 某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“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 TextStream ’ 创建自己的文件系统对象，说明自己的文本流对象 If Right(Dir1.Path, 1) = "/" Then Set myTextFile = fso.OpenTextFile(Dir1.Path + File1.FileName) Else Set myTextFile = fso.OpenTextFile(Dir1.Path + "/" + File1.FileName) End If S = 0 Do d = Val(myTextFile.ReadRow) S = S + d Loop While （5） Text1.Text = Str$(S) End Sub

本题关键词:分部工程顺序码,应急处置程序,天然免疫应答分子,免疫应答过程,免疫应答,初次应答,免疫应答反应,工程说明,适应性免疫应答,处方药说明书;