VB学习资料(18)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

Dim a(1 To 5) As student, t As student Open “stud.dat” For Output As #1

‘ Open “stud.dat” For Random As #2 Len= Len(t) 打开随机文件

n = 5

For i = 1 To n

a(i).total=a(i).s1+a(i).s2 + a(i).s3 a(i).aver = a(i).total / 3 Next i

For i = 1 To n - 1 For j = i + 1 To n

If a(i).aver < a(j).aver Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i

Print " 学号 姓名 语文 数学 英语 总分 平均分"

For i = 1 To n

Print Tab(2); a(i).no; Tab(10); a(i).name; Tab(18); a(i).s1; " ";

Print a(i).s2; " "; a(i).s3; " "; a(i).total; " "; a(i).aver

Write#1,a(i).no,a(i).name,a(i).s1, a(i).s2,a(i).s3,a(i).total, (i).aver

‘ Put#2，i, a(i) 写入随机文件

Next i Close#1 End Sub

注意: 写入文件一行一个记录

运行结果

说明：

交换两个记录数组元素的值，则该记录数组元素的所有成员都将交换。

6.7 常用算法（2） 1. 求最大值和最小值

【例】找10个数中的最大值与最小值。