VB实验9答案.doc

实验9 文件 一、实验目的和要求 了解. 第六大题 第1题 (p235，参照vb1.exe) 先用附件中的记事本新建文件，输入书中数据，将文件保存为aaa.txt，并将aaa.txt移到与vb1.exe同一个文件夹下，再运行vb1.exe。 提示：打开与运行程序同一个文件夹下的文件用： Open App.Path + \aaa.txt For Input As #1 注意：App.Path表示你保存的工程所在的文件夹 过程设计： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(4, 4) As Single, Max As Single 读文件aaa.txt 中的数据到数组 a(4, 4) 中 Open App.Path + \aaa.txt For Input As #1 For i = 1 To 4 For j = 1 To 4 Input #1, a(i, j) 读文件中的一个数 Print a(i, j); 打印数组值 Next Print 打印换行 Next Close #1 处理数组a(4, 4)中的数据 For i = 1 To 4 获得第i行绝对值最大数 Max = a(i, 1) For j = 2 To 4 If Abs(a(i, j)) Abs(Max) Then Max = a(i, j) Next j 处理第i行所有元素都除以该行上绝对值最大的元素 For j = 1 To 4 a(i, j) = a(i, j) / Max Next j Next i 保存数组a(4, 4)中数据到文件中 Open App.Path + \bbb.txt For Output As #1 For i = 1 To 4 For j = 1 To 4 If j 4 Then Write #1, a(i, j), 不换行 Else Write #1, a(i, j) End If Next Next Close #1 End Sub 程序2. 第六大题 第2题 (p235, 参照 vb2.exe) 提示：打开与运行程序同一个文件夹下的文件用： Open App.Path + \aaa.txt For Input As #1 注意：App.Path表示你保存的工程所在的文件夹 过程设计： Private Sub Command1_Click() Dim sn As String, sno As String, cj1 As Integer, cj2 As Integer, cj3 As Integer Open App.Path + \score.txt For Input As #1 Open App.Path + \bad.txt For Output As #2 Open App.Path + \pass.txt For Output As #3 Do While Not EOF(1) Input #1, sn, sno, cj1, cj2, cj3 If (cj1 60 And cj2 60) Or (cj1 60 And cj3 60) Or (cj2 60 And cj3 60) Then Write #2, sn, sno, cj1, cj2, cj3 Else Write #3, sn, sno, cj1, cj2, cj3 End If Loop Close 关闭所有文件 End Sub 程序3.补充题 请参考Design29.exe文件的运行结果，新建一个Design29.Vbp工程，完成“文本浏览器”应用程序的设计（其中窗体文件请命名为Design29.frm）。 1）文件列表框能过滤文本文件。 2）当单击某文本文件名后，在Text1显示文件名（包括路径），在Text2显示该文件内容。 3）当双击某文件文件名后，调用记事本程序对文本文件进行编辑。 4）界面及功能设计请参考Design29.exe文件。 程序运行界面 调用记事本 文件列表框的pattern属性设置为*.txt Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Priv