Private Sub button1_Click (ByVal eventSender As System Object, By Val eventargs As System. EventArgs)Handles button 1. Click Dim b, fname, nextline As string Dim recordNumber As integer 用 Write及 Writeline写3行数据到 file. tx文件中,如图6-2所示: fname=file. txt FileOpen(1, fname, Open Mode output) For recordnumber =1 To 3 循环5次 nextline="Name"& recordNumber"定义字符串 Write(1, nextline) 将字符串 nextline写入文件后不 换行 WriteLine(1, recordNumber)"将整型数 recordNumber写入文 件后再换行 Next FileClose(1) 用Iput读出 Ifile. txt中的内容到文本框中显示,如图6-3的前3行 TextBox1 Text FileClose(1) FileOpen( 1, fname, Open Mode Input) b IIIIPrivate Sub button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles button1.Click Dim b, fname, nextline As String Dim recordNumber As Integer '用Write 及WriteLine写3行数据到file.txt文件中，如图6-2所示： fname = "file.txt" FileOpen(1, fname, OpenMode.Output) For recordNumber = 1 To 3 '循环5次 nextline = "Name " & recordNumber '定义字符串 Write (1, nextline) '将字符串nextline写入文件后不 换行 WriteLine(1, recordNumber) '将整型数recordNumber写入文 件后再换行 Next FileClose(1) '用Input读出file.txt中的内容到文本框中显示，如图6-3的前3行： TextBox1.Text = "" FileClose(1) FileOpen(1, fname, OpenMode.Input) b =