code229a.txt

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

Public Sub Main()
  Dim Int_Values(4) As Integer
  Dim Float_Values(4) As Single

  Int_Values(0) = 51
  Int_Values(1) = 23
  Int_Values(2) = 2
  Int_Values(3) = 44
  Int_Values(4) = 45
  Float_Values(0) = 21.1
  Float_Values(1) = 13.3
  Float_Values(2) = 22.2
  Float_Values(3) = 34.4
  Float_Values(4) = 15.5
  Debug.Print "Number of elements in int_values", _
     UBound(Int_Values) - LBound(Int_Values)
  Debug.Print "Number of elements in float_values ", _
     UBound(Float_Values) - LBound(Float_Values)
End Sub