實驗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