code382a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 33 行

Option Explicit
Type Employee
  Name As String
  SSN As String
  Startdate As Date
End Type
Dim arrStaff(3) As Employee

Public Sub InitArr()
  arrStaff(0).Name = "Roderico"
  arrStaff(0).SSN = "999-99-9999"
  arrStaff(0).Startdate = #1/1/93#
  arrStaff(1).Name = "Jack"
  arrStaff(1).SSN = "111-11-1111"
  arrStaff(1).Startdate = #1/1/93#
  arrStaff(2).Name = "Juan Jose"
  arrStaff(2).SSN = "222-22-2222"
  arrStaff(2).Startdate = #1/1/97#
  arrStaff(3).Name = "Berta"
  arrStaff(3).SSN = "333-33-3333"
  arrStaff(3).Startdate = #1/1/97#
End Sub

Public Function ShowStaffMember(ByVal Which As Integer) As Employee
  ShowStaffMember = arrStaff(Which)
End Function

Public Sub Main()
  InitArr
  Debug.Print "Staff Member 2 name:", ShowStaffMember(2).Name
  Debug.Print "Staff Member 0 name:", ShowStaffMember(0).Name
End Sub