VB程序设计教程(第四版)龚沛曾-实验8-6

最新推荐文章于 2020-12-29 09:35:55 发布

xcxgood

最新推荐文章于 2020-12-29 09:35:55 发布

阅读量1.6k

点赞数

分类专栏：学习课后习题答案文章标签： VB程序设计教程第四版龚沛曾实验

本文链接：https://blog.csdn.net/xcxgood/article/details/89946017

版权

这篇博客介绍了如何使用VB进行随机文件操作，包括创建包含学生信息的Random.dat文件，读取并按成绩排序后写入新的Random1.dat文件，以及验证排序后的文件内容。解题代码详细展示了数据结构、文件输入输出及排序算法的应用。

摘要由CSDN通过智能技术生成

实验8-6

VB程序题：编写一个随机文件程序。
要求：
（1）建立一个具有5个学生的学号、姓名和成绩的随机文件(Random. dat)。
（2）读出Random．dat文件中的内容，然后按成绩排序，最后按顺序写入另一个随机文件(Randoml．dat)。
（3）再一次读出文件的内容，按文件中的顺序将学生的信息显示在屏幕上，检查正确性。

解题，画3个按钮控件，代码如下：

Private Type Studtype
    no As String * 4
    name As String * 6
    mark As Single
End Type
Dim Student As Studtype, Stud(1 To 5) As Studtype, t As Studtype

Private Sub Command1_Click()
    Open "C:\Random.dat" For Random As #1 Len = Len(Student)
    With Student
        .no = "0001"
        .name = "张三"
        .mark = 66
    End With
    Put #1, 1, Student

With Student
.no = "0002