数组存取
存数组
Private Sub Command2_Click()
Dim fileNumber As Integer
Dim S9 As String
Dim k As Integer
Dim l As Integer
On Error Resume Next
fileNumber = FreeFile()
S9 = "D:\zs.txt"
If Dir(S9) <> "" Then Kill S9
Open S9 For Binary As #fileNumber
k = UBound(arr)
Put #fileNumber, , k
Put #fileNumber, , arr
l = UBound(azz)
Put #fil