VB程序设计教程(第四版)龚沛曾-实验8-1_vb程序设计语法do while not eof() loop-优快云博客

本文链接：https://blog.youkuaiyun.com/xcxgood/article/details/89945848

这篇博客介绍了如何使用VB编程实现创建和读取数据文件。通过实验8-1，展示了如何利用Print#和Write#语句将学生信息写入文件，以及如何用Line Input语句读取文件内容，显示在文本框中。实验涉及到字符串和整型数据的处理，以及文件操作的基本步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

实验8-1

编写如图2.8.1所示的应用程度。若单击“建立文件”按钮，则分别用Print#和和Write#语句将三个同学的学号、姓名和成绩写入Score.dat和Score1.dat；若单击“读取文件”按钮，则用line Input 语句按行将两个（当前目录）文件中的数据显示在相应的文本框。
其中：学号和姓名是字符串类型，成绩是整型。

解题，画2个按钮，2个文本框（2个文本框的 MultiLine 属性设置为 True），代码如下：
Private Sub Command1_Click()
    Open "c:\score" For Output As #1
    Print #1, "051023", "王海涛", 66
    Print #1, "052498", "周文英", 88
    Print #1, "050992", "陈建东", 77

    Open "c:\score1" For Output As #2
    Write #2, "051023", "王海涛", 66
    Write #2, "052498", "周文英", 88
    Write #2, "050992", "陈建东", 77

Close
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""

    Dim no As String, name As String, s As Integer
    Open "c:\score" For Input As #1
    Do While Not EOF(1)
        Line Input #1, linedata
        Text1.Text = Text1.Text & linedata & Chr(13) & Chr(10)
    Loop

    Open "c:\score1" For Input As #2
    Do While Not EOF(2)
        Line Input #2, linedata
        Text2.Text = Text2.Text & linedata & Chr(13) & Chr(10)
    Loop

Close
End Sub