实验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.cn/185204.html原文链接：https://javaforall.cn
