Public Class Form1
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  TextBox4.Text = Date.Today '今天的日期
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim fno As Integer
  fno = FreeFile()
  FileOpen(fno, "c:\990300.sm", OpenMode.Output)'儲存的檔案在C磁碟目錄下的990300.sm檔中
  Write(fno, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text) '寫入姓名 座號 准考證號碼 考試日期
  FileClose(fno)
  TextBox1.Text = ""
  TextBox2.Text = ""
  TextBox3.Text = ""
  TextBox4.Text = ""
 End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  Dim fno As Integer
  fno = FreeFile()
  FileOpen(fno, "c:\990300.sm", OpenMode.Input)'讀取的檔案在C磁碟目錄下的990300.sm檔中
  Input(fno, TextBox1.Text)'讀取姓名 座號 准考證號碼 考試日期
  Input(fno, TextBox2.Text)
  Input(fno, TextBox3.Text)
  Input(fno, TextBox4.Text)
  FileClose(fno)
 End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  End
 End Sub
End Class