大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。
Jetbrains全系列IDE稳定放心使用
实验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
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/185204.html原文链接：https://javaforall.net
![linux 解压分卷rar[通俗易懂]](https://javaforall.net/wp-content/uploads/2020/11/2020110817443450-480x300.jpg)
