VB序列化读取和存储文件

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nums(10) As Integer
        Dim i As Integer
        For i = 0 To 10
            nums(i) = Int(Rnd() * 500) + 100
        Next
        Dim sfFormatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim fStream As New FileStream(Application.StartupPath & "/test.txt", FileMode.Create)
        sfFormatter.Serialize(fStream, nums)
        fStream.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim nums(10) As Integer
        Dim fStream As New FileStream(Application.StartupPath & "/test.txt", FileMode.Open)
        Dim sfFormatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        nums = sfFormatter.Deserialize(fStream)
        fStream.Close()

        Dim i As Integer
        For i = 0 To 9
            Console.WriteLine(nums(i))
        Next
    End Sub