' 导入命名空间
Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization

Public Class MainClass

   Public Shared Sub Main()
      Const NUMBER_OF_RECORDS As Integer = 100

      Dim blankRecord As Employee = New Employee("f","l")

      Dim fileOutput As FileStream

      Dim binaryOutput As BinaryWriter

      Dim fileName As String = "test.dat"
      Dim i As Integer

         Try

            fileOutput = New FileStream(fileName,FileMode.Create, FileAccess.Write)

            fileOutput.SetLength(Employee.SIZE * NUMBER_OF_RECORDS)

            binaryOutput = New BinaryWriter(fileOutput)

            For i = 0 To NUMBER_OF_RECORDS - 1
               fileOutput.Position = i * Employee.SIZE
               binaryOutput.Write(blankRecord.firstName)
               binaryOutput.Write(blankRecord.lastName)
            Next
            Console.WriteLine("File Created")
         Catch fileException As IOException
            Console.WriteLine("Cannot write to file")

         End Try


      ' close FileStream
      If (fileOutput Is Nothing) <> False Then
         fileOutput.Close()
      End If

      ' close BinaryWriter
      If (binaryOutput Is Nothing) <> False Then
         binaryOutput.Close()
      End If

   End Sub

End Class

<Serializable()> Public Class Employee
   Public firstName, lastName As String
   Shared Public SIZE As Integer = 200 
   Public Sub New(ByVal first As String, ByVal last As String)
      firstName = first
      lastName = last
   End Sub 

   Public Overrides Function ToString() As String
      Return firstName & " " & lastName
   End Function 

End Class