VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "BinaryFile"
   ClientHeight    =   1995
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4395
   LinkTopic       =   "Form1"
   ScaleHeight     =   1995
   ScaleWidth      =   4395
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim c As Variant
    c = "abcd"
    Dim numFile As Integer
    numFile = FreeFile()
    Open App.Path + "\test.dat" For Binary Access Read Write As #numFile
    Put #numFile, 1, c
    Get #numFile, 1, c
    Form1.Print c
    Close #numFile
        
    Dim MyArray1(2, 1) As Integer
    Dim MyArray2(2, 1) As Integer
    '聲明Integer類型數組

    MyArray1(0, 0) = 10
    MyArray1(0, 1) = 6

    MyArray1(1, 0) = 9
    MyArray1(1, 1) = 66

    MyArray1(2, 0) = 8
    MyArray1(2, 1) = 888
    '為數組MyArray1賦值
    numFile = FreeFile()
    Open App.Path + "\test.dat" For Binary Access Read Write As #numFile
    Put #numFile, Len(c) * 8, MyArray1
    '將數組MyArray1的內容存入test.dat
    '注意指定的存入位置
    'Len(c)得到的是字符串中字符的個數
    '而每個字符占8bit
    '所以MyArray1存儲在先前寫入的內容后
    '必須設置開始存入位置為Len(c)*8

    Get #numFile, Len(c) * 8, MyArray2
    '將指定位置的內容存入MyArray2
    Dim i, j As Integer
    For i = 0 To 2
        For j = 0 To 1
        Form1.Print MyArray2(i, j)
        Next
    Next
    '顯示MyArray2內容
    Close #numFile
End Sub