Visual Basic 6.0程序设计教程 第4版 习题答案 作者 罗朝盛 第8章 习题参考答案.docVIP

第8章 习题参考答案 一、判断题 题号 1 2 3 4 5 6 答案 × √ × √ × × 二、选择题 题号 1 2 3 4 5 6 7 答案 C B A B C A A 三、程序填空 1． Open “c:\stud1.txt” For Output As #1 UCase(Text1)=”END” Print #1,Text1 2． For Input For Output As #2 Not Eof(1) Line Input #1,str1 Close #1,#2 KILL c:\old.dat 3． For Append As #1 For Input As #2 四、程序设计 1． Private Sub Form_Click() Dim strIn As String * 1, Count As Integer 打开文件进行统计 Open D:\data.txt For Input As #1 Count = 0 计数器清零 Do While Not EOF(1) strIn = Input(1, #1) 一次读出一个字符 If strIn = $ Then Count = Count + 1 Loop Close #1 将结果写入到文本文件C：\Mydir\res.txt中 Open D:\Mydir\res.txt For Output As #1 Print #1, Count Close #1 End Sub 2. Private Sub Form_Click() Dim k%, n% Dim num() As Single, sum As Single, ave As Single 打开文件进行统计 Open D:\abc.txt For Input As #1 Do While Not EOF(1) n = n + 1 ReDim Preserve num(n) Input #1, num(n) sum = sum + num(n) Loop ave = sum / n For k = 1 To n If num(k) ave Then Print num(k); Next k Close #1 End Sub 3． Private Sub Form_Click() Dim strIn As String * 1, k%, n% Dim Nm(1 To 26) As Integer 打开文件进行统计 Open D:\Lcs.txt For Input As #1 Open D:\Res.dat For Output As #2 Do While Not EOF(1) strIn = Input(1, #1) 一次读出一个字符 strIn = UCase(strIn) 转换为大写字母 If strIn = A And strIn = Z Then n = Asc(strIn) - Asc(A) + 1 Nm(n) = Nm(n) + 1 End If Loop Close #1 Print 文件中各字符出现的次数是： For k = 1 To 26 Print#2,字符 Chr(64 + k) 的个数是： Nm(k) Next k Close #2 End Sub 4. Private Sub Form_Click() Dim strIn As Byte, k%, n% 打开文件进行统计 Open D:\A.txt For Binary As #1 Open D:\a1.txt For Binary As #2 Open D:\a2.txt For Binary As #3 n = LOF(1) 求文件A.txt的长度 For k = 1 To n / 2 前一半写入到文件a1.txt Get #1, , strIn 一次读出一个字节 Put #2, , strIn Next k F