code274a.txt

VB大全（精华版）源代码

Option Base 1
Option Explicit
Type Record
  RecordNum As Long
  RecordName As String
  RecordDate As Date
End Type

Public Sub Main()
  Dim I As Integer
  Dim Names(3) As String
  Dim WriteRecord As Record

  Names(1) = "Ted"
  Names(2) = "Roderico"
  Names(3) = "Jon"
  Open "c:\Record.Txt" For Random As #1
  For I = 1 To 3
    WriteRecord.RecordNum = I
    WriteRecord.RecordName = Names(I)
    WriteRecord.RecordDate = Date
    Put #1, I, WriteRecord
  Next
  Close #1
End Sub