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

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

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

VB程序设计教程(第四版)龚沛曾实验8-2
VB程序设计教程(第四版)龚沛曾实验8-2 将斐波那契数列的前10项写入文件Fb .dat,然后从该文件将数据读取出来并计算合计和平均数,最后送入列表框. 要求:文件数据格式如2.8.2所示,列表框 ...
VB程序设计教程(第四版)龚沛曾-实验8-5
实验8-5 编写一个能将任意两个文件的内容合并的程序,程序界面由读者由自由设计. 解题,在窗体建立一个按钮控件,假定C盘已经有两个要合并的文件text1.dat和text2.dat,代码如下: Pri ...
VB程序设计教程(第四版)龚沛曾-实验8-2
实验8-2 将斐波那契数列的前10项写入文件Fb .dat,然后从该文件将数据读取出来并计算合计和平均数,最后送入列表框. 要求:文件数据格式如2.8.2所示,列表框中项目格式如图2.8.3所示. 解 ...
VB程序设计教程(第四版)龚沛曾-实验8-1
实验8-1 编写如图2.8.1所示的应用程度.若单击"建立文件"按钮,则分别用Print#和和Write#语句将三个同学的学号.姓名和成绩写入Score.dat和Score1.da ...
VB程序设计教程(第四版)龚沛曾-实验8-7
实验8-7 在教学篇例8.7的基础上增加"修改确定"按钮以及用于定位记录的按钮面板,如图2.8.5所示,并编写时间过程. 解题,代码如下: 先建立标准模块,代码是: Type st ...
vb程序设计教程第4版龚沛曾实验答案解析
这里只是个人对书中题目的解答,并不代表最优代码.仅供参考.有哪里错误或者不足的地方还望指出,Thanks♪(･ω･)ﾉ以及不要脸地求探讨求点赞.嘿嘿这里使用的是<vb程序设计教程(第四版 ...
用vb编制一个计算机程序,VB程序题：编一模拟袖珍计算器的完整程序，界面如下图所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 VB源码龚沛曾...
VB程序题:编一模拟袖珍计算器的完整程序,界面如下图所示.要求:输入两个操作数和一个操作符,根据操作符决定所做的运算. VB源码龚沛曾提示: 1.为了程序运行正确,对存入操作符的文本框Text3, ...
vb实验第四版答案_Visual Basic程序设计教程(第4版)实验答案.doc
您所在位置:网站首页 > 海量文档 &nbsp>&nbsp计算机&nbsp>&nbspVisual Basic Visual Basic程序设计教程( ...
c语言编程第四版李丽娟课程,C语言程序设计教程第4版普通高等教育“十一五”国家级规划教材教学课件李丽娟 C语言程序设计教程（第4版）_第4章_分支结构.pdf...
C语言程序设计教程 (第4版) 第4章分支结构李丽娟 2013年2月第4章分支结构本章主要内容 1. if语句的基本结构 2.if~else语句基本结构 3. if语句的嵌套结构 4. sw ...

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

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

最新文章

热门文章