第07章 文件习题参考答案

第07章文件习题参考答案

第1题

'方法1 读文件采用Line Input语句，每次读取1条记录，并计数

Dim s As String, n As Integer 'n为计数器

Open "c:\doc.txt" For Input As #1 '假设读取的文件为"c:\doc.txt"

Do While Not EOF(1) '判断记录是否读完

Line Input #1, s '读1条记录"

n = n + 1 '计数

Loop

Close #1

Print "共有" & n & "行"

'方法2读文件采用Input函数，每次读取1个字符，判断记录分隔标记—回车符，并计数

Dim s As String, n As Integer 'n为计数器

Open "c:\doc.txt" For Input As #1 '假设读取的文件为"c:\doc.txt"

Do While Not EOF(1) '判断记录是否读完"

s = Input(1, #1) '读取1个字符

If Asc(s) = 13 Then '判断字符是否为回车符（ASCII码值为13）

n = n + 1 '若回车符，则为计数

End If

Loop

Close #1

n = n + 1 '最后1条记录末尾无回车符，因此计数器应再+1

Print "共有" & n & "行"

第2题

'方法1 应用文本框Text的KeyPress事件，判断KeyAscii值若为13（回车），则进行文件追加（写）操作，应用文本框Text的Change事件，关闭结束程序执行。

Private Sub Text1_Change()

If UCase(Text1.Text) = "END" Then '判断是否结束程序

End

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim s As String '存放文本框中输入内容

Open "c:\dat.txt" For Append As #1 '以追加方式打开文件

If KeyAscii = 13 Then '判断按键是否为回车符s = Text1.Text '得到文本框中被容

Print #1, s '向文件中写1条记录

Text1.Text = "" '写记录后清除文本框中内容End If

Close #1

End Sub

'方法2 应用窗体的Form_Load()事件：打开文件；

应用文本框Text1的KeyPress事件：则进行文件写操作

应用窗体的Change事件：关闭文件。

Private Sub Form_Load() '打开文件

Open "c:\dat.txt" For Output As #1 '启动窗体时，以打开文件End Sub

Private Sub Text1_Change() '关闭文件

If UCase(Text1.Text) = "END" Then '判断是否结束写文件

Close #1 '关闭文件

End '结束程序执行

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) '写文件

'判断KeyAscii值若为13（回车），则进行文件追加（写）操作

Dim s As String '存放文本框中输入内容

If KeyAscii = 13 Then '判断按键是否为回车符s = Text1.Text '得到文本框中被容

Print #1, s '向文件中写1条记录

Text1.Text = "" '写记录后清除文本框中内容End If

End Sub

第3题

'方法1 一个数据，作为1条记录

Dim i As Integer, n As Integer

Open "c:\file1.txt" For Output As #1 '打开文件

For i = 1 To 200

n = Int(Rnd() * 9000 + 1000)

Write #1, n '写一个数据，作为1条记录"

Next i

Close #1 '关闭文件

MsgBox "文件写完"

第4题

'方法1 读文件，数组处理，写文件单独处理

Dim a%(1 To 200), b%() '定义数组

Dim s%, m%, n%, j%, i% 's存放读取的数据，m,n为计数器

Open "c:\file1.txt" For Input As #1 '打开文件（读）

Do While Not EOF(1)

Input #1, s '读1条记录（1个数据)

n = n + 1 '计数

a(n) = s '数组元素赋值

Loop

Close #1 '关闭文件file1

For i = 1 To n '判断并计数a数组中符合要求数据个数If a(i) Mod 2 = 0 And a(i) \ 10 Mod 2 = 0 Then

m = m + 1 '计数

End If

Next i

ReDim b(1 To m) '依据m计数结果，定义b数组的实际大小For i = 1 To n

If a(i) Mod 2 = 0 And a(i) \ 10 Mod 2 = 0 Then '判断

j = j + 1

b(j) = a(i) '将a数组中符合要求数据赋值给b数组End If

Next i

Open "c:\file2.txt" For Output As #2 '打开文件（写）

For j = 1 To m

Write #2, b(j) '将b数组元素写入文件file2 Next j

Close #2

MsgBox "文件写完"

'方法2 将读文件、数据处理和数组赋值同时处理，写文件单独处理Dim a%(1 To 200), b%() '定义数组

Dim s%, m%, n% 's存放读取的数据，m,n为计数器

ReDim b%(1 To 200) '初次定义b数组大小

Open "c:\file1.txt" For Input As #1 '打开文件（读）

Do While Not EOF(1)

Input #1, s '读1条记录（1个数据)

n = n + 1 '文件file记录计数

a(n) = s 'A数组元素赋值

If a(n) Mod 2 = 0 And a(n) \ 10 Mod 2 = 0 Then '判断符合要求的数据

m = m + 1 '符合条件数据计数

b(m) = a(n) '符合条件数据赋值给b数组元素

End If

Loop

Close #1 '关闭文件file1

ReDim Preserve b(1 To m) '依据m计数结果，定义b数组的实际大小

Open "c:\file2.txt" For Output As #2 '打开文件（写）

For j = 1 To m

Write #2, b(j) '将b数组元素写入文件file2

Next j

Close #2

MsgBox "文件写完"

'方法3 将读文件、数据处理和数组赋值、写文件同时处理

Dim a%(1 To 200), b%() '定义数组

Dim s%, m%, n% 's存放读取的数据，m,n为计数器

ReDim b%(1 To 200) '初次定义b数组大小

Open "c:\file1.txt" For Input As #1 '打开文件（读）

Open "c:\file2.txt" For Output As #2 '打开文件（写）

Do While Not EOF(1)

Input #1, s '读1条记录（1个数据)

n = n + 1 '文件file记录计数

a(n) = s 'A数组元素赋值

If a(n) Mod 2 = 0 And a(n) \ 10 Mod 2 = 0 Then '判断并计数a数组中符合要求数据个数

m = m + 1 '符合条件数据计数

b(m) = a(n) '符合条件数据赋值给b数组元素

Write #2, b(m) '将b数组元素写入文件file2

End If

Loop

Close #1, #2 '关闭文件file1,file2

MsgBox "文件写完"

第5题

'方法1 将原来的读文件，进行字符变换，构造处理后字符串，写新的文件

Dim s$, s1$,s2$, i%, n% 's存放读取1条记录数据，n存放记录中字符数

Open "c:\file3.txt" For Input As #1 '打开文件（读）

Open "c:\file4.txt" For Output As #2 '打开文件（写）

Do While Not EOF(1) '读文件

Line Input #1, s '读1条记录

n = Len(s) '计算字符串长度

s2 = ""

For i = 1 To n '依次处理字符串中的每个字符

s1 = Mid(s, i, 1) '取出1个字符

p = Asc(s1) '得到字符的ASCII码值

fp = p * 11 Mod 256 '进行字符替代处理

If fp <= 32 Or fp > 130 Then '判断字符是否替换

fp = p '字符不替换（不变）

End If '符合条件数据赋值给b数组元素

s2 = s2 + Chr(fp) '构造处理后的字符串

Next i

Write #2, s2 '将处理后的数据写入文件file4

Loop

Close #1, #2 '关闭文件file1,file2

MsgBox "文件写完"

第6题

'方法1 定义记录类型，记录数组，打开文件，数组赋值、排序、将数组值写入2个文件Private Type student '定义记录数据类型，用于存放学生成绩

xm As String * 1

s1 As Integer

s2 As Integer

s3 As Integer

s4 As Integer

s5 As Integer

avg As Single

End Type

Private Sub Command1_Click()

Dim a(1 To 20) As student 'a数组存放20个学生成绩数据

Dim t As student '用于数据交换

Open "c:\file5.txt" For Output As #1 '打开顺序文件（写）

Open "c:\file6.txt" For Random As #2 '打开随机文件（写）

For i = 1 To 20 '数组赋值，采用随机数方式

a(i).xm = Chr(64 + i)

a(i).s1 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s2 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s3 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s4 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s5 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).avg = (a(i).s1 + a(i).s2 + a(i).s3 + a(i).s4 + a(i).s5) / 5

Next i

For i = 1 To 19 '数组排序，比较交换法

For j = i + 1 To 20

If a(i).avg > a(j).avg Then '判断，比较交换

t = a(i)

a(i) = a(j)

a(j) = t

End If

Next j

Next i

For i = 1 To 20

Write #1, a(i).xm, a(i).s1, a(i).s2, a(i).s3, a(i).s4, a(i).s5, a(i).avg '写顺序file5

Put #2, , a(i) '写随机文件file6

Next i

Close #1, #2 '关闭文件file1,file2

MsgBox "文件写完"

End Sub

'方法1 定义记录类型，记录数组，打开文件，数组赋值、排序（比较法）、将数组值写入2个文件

Private Type student '定义记录数据类型，用于存放学生成绩

xm As String * 1

s1 As Integer

s2 As Integer

s3 As Integer

s4 As Integer

s5 As Integer

avg As Single

End Type

Private Sub Command1_Click()

Dim a(1 To 20) As student 'a数组存放20个学生成绩数据

Dim t As student '用于数据交换

Open "c:\file5.txt" For Output As #1 '打开顺序文件（写）

Open "c:\file6.txt" For Random As #2 '打开随机文件（写）

For i = 1 To 20 '数组赋值，采用随机数方式

a(i).xm = Chr(64 + i)

a(i).s1 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s2 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s3 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s4 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).s5 = Int(Rnd() * (100 - 50 + 1) + 50)

a(i).avg = (a(i).s1 + a(i).s2 + a(i).s3 + a(i).s4 + a(i).s5) / 5

Next i

For i = 1 To 19 '数组排序，选择法

k = i

For j = i + 1 To 20

If a(k).avg > a(j).avg Then '比较判断

k = j '确定较大数下标

End If

Next j

t = a(i) '数据交换

a(i) = a(k)

a(k) = t

Next i

For i = 1 To 20

Write #1, a(i).xm, a(i).s1, a(i).s2, a(i).s3, a(i).s4, a(i).s5, a(i).avg '写顺序file5

Put #2, , a(i) '写随机文件file6

Next i

Close #1, #2 '关闭文件file1,file2

MsgBox "文件写完"

End Sub