实习内容：
例题7-1
以下程序段用来在C盘根目录下建立一个名为的顺序文件。
例题7-2
某班30名同学学习成绩如表7-2所示。建立一个名为“”的顺序文件存放该班同学的学习成绩，每条记录包括学号、姓名、高数、英语、物理、计算机刘向数据。
例题7-3
对例题7-2中生成的“”文件记录进行如下处理：
（1）计算每个学生的平均成绩。
（2）将平均成绩大于或等于80分的记录写入“”文件中。
例题7-4
统计例题7-3中生成的“”文件中的记录数。
例题7-5
将例题7-2生成的顺序文件“”读出，按随机方式写入随机文件“”中。
例题7-6
从随机文件“”中读出数据，计算平均成绩，并将大于或等于80分的学生成绩写入另一个随机文件“”中。
例题7-7
以二进制模式建立一个数据文件，其中的内容是随机产生的100个大写字母。
例题7-8
以二进制方式读取文件text。Txt，并将结果显示在文本框中。
例题7-9
编写一个复制文件的程序。
例题7-10
编写一个加密软件，要求将源文件按“字节逐位倒排序加密法”，加密。
习题7-3
把随机产生的200个4位整数存入顺序文件中。
事件代码为：
Private Sub Command1_Click()
Dim a(1 To 200) As Integer, i%, n%, m%
For i = 1 To 200
a(i) = Int(Rnd * 9000 + 1000)
Next i
Open "H:\VB实习\周晓伟\实验七\" For Output As #1
For m = 1 To 200
    Write #1, a(m);
    If m Mod 20 = 0 Then
    Print #1,
    End If
Next m
Close
End Sub
运行结果为：
习题7-4
从第三题的文件中读出数据存入数组a中，从中挑选出所有各位和百位是偶数的数据存入数组b中，并存储到随机文件中。
运行结果为：
事件代码为：
Option Base 1
Private Sub Command1_Click()
  Open "F:\VB实习\周晓伟\实验七\" For Input As #1
  Open "F:\VB实习\周晓伟\实验七\" For Random As #2
  Dim a%(1 To 200), b%()
  Dim i%, j%, data%, hun%
  j = 0
  For i = 1 To 200
      Input #1, a(i)
      data = a(i) Mod 10
      hun = (a(i) \ 100) Mod 10
      If data Mod 2 = 0 And hun Mod 2 = 0 Then
        j = j + 1乱码文字生成
        ReDim Preserve b(1 To j)
        b(j) = a(i)
        Put #2, , b(j)
      End If
    Next i
  Close
End Sub
习题7-5
准备一篇英文文章（至少三段），编程读出其中内容，将所有字符进行替代，替代关系参照课本。其中，p是某个字符的ascii值，f（p）是计算后新字符的ascii的值。如果计算后f（p）的值小于等于32或大于130，则该字符不变，否则用f（p）所对应的字符替换原有字符后写入文件中。
事件代码为：
Private Sub Form_Click()
Dim a As String * 1, fp!, p!

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。