home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 39 / IOPROG_39.ISO / SOFT / sdkjava40.exe / data1.cab / fg_Samples / Samples / COM / SafeArray / SimpleObject.cls < prev    next >
Encoding:
Visual Basic class definition  |  2000-05-04  |  612 b   |  30 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "SimpleObject"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Public Function ComputeSum(A() As Long)
  11.     Dim l As Long
  12.     Dim i As Integer
  13.  
  14.     l = 0
  15.     For i = LBound(A) To UBound(A)
  16.         l = l + A(i)
  17.     Next i
  18.     ComputeSum = l
  19. End Function
  20.  
  21.  
  22. Public Function CreateSquares()
  23.     Dim A(-4 To 6) As Long
  24.     Dim i As Long
  25.     For i = 0 To 10
  26.         A(i + LBound(A)) = i * i
  27.     Next i
  28.     CreateSquares = A
  29. End Function
  30.