大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。
Jetbrains全系列IDE稳定放心使用
实验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”
.name = “李四”
.mark = 99
End With
Put #1, 2, Student
With Student
.no = “0003”
.name = “王五”
.mark = 88
End With
Put #1, 3, Student
With Student
.no = “0004”
.name = “赵六”
.mark = 55
End With
Put #1, 4, Student
With Student
.no = “0005”
.name = “钱七”
.mark = 77
End With
Put #1, 5, Student
Close #1
End Sub
Private Sub Command2_Click()
Open “C:\Random.dat” For Random As #1 Len = Len(Student)
Print
Print “Random.dat 文件内容：”
For i = 1 To 5
Get #1, i, Student
Print Student.no, Student.name, Student.mark
Stud(i) = Student
Next i
Close #1
For i = 1 To 5
For j = i + 1 To 5
If Stud(i).mark > Stud(j).mark Then t = Stud(i): Stud(i) = Stud(j): Stud(j) = t ‘按成绩排序
Next j
Next i
Open “C:\Random1.dat” For Random As #2 Len = Len(Student)
For i = 1 To 5
Put #2, i, Stud(i)
Next i
Close #1
End Sub
Private Sub Command3_Click()
Open “C:\Random1.dat” For Random As #1 Len = Len(Student)
Print
Print “Random1.dat 文件内容：”
For i = 1 To 5
Get #1, i, Student
Print Student.no, Student.name, Student.mark
Stud(i) = Student
Next i
Close #1
End Sub
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/185108.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
