VB实验9答案.docVIP

实验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