UC知道VB中的数组作为参数值的传递
来源：百度知道 编辑：UC知道 时间：2024/05/14 12:05:25
我学习VB遇到些麻烦，请高手指教
Private Sub Form_click()
Dim data(5 To 14) As Integer
Dim i%
For i = 5 To 14
data(i) = 30 - i
Next i
For i = 5 To 14
Print data(i);
Next i
Print
Call sort(data())
For i = 5 To 14
Print data(i);
Next i
End Sub
Private Sub sort(element() As Integer)
Dim i%, j%, t%
[u]For i = LBound(element, 1) To UBound(element, 1) - 1[/u]
For j = i + 1 To UBound(element, 1)
If element(i) > element(j) Then
t = element(i)
element(i) = element(j)
element(j) = t
End If
Next j
Next i
End Sub
这段代码中LBound(element,1)中的“1”是代表什么啊，是什么意思？
Private Sub Form_click()
Dim data(5 To 14) As Integer
Dim i%
For i = 5 To 14
data(i) = 30 - i
Next i
For i = 5 To 14
Print data(i);
Next i
Call sort(data())
For i = 5 To 14
Print data(i);
Next i
End Sub
Private Sub sort(element() As Integer)
Dim i%, j%, t%
[u]For i = LBound(element, 1) To UBound(element, 1) - 1[/u]
For j = i + 1 To UBound(element, 1)
If element(i) > element(j) Then
t = element(i)
element(i) = element(j)
element(j) = t
End If
Next j
Next i
End Sub
这段代码中LBound(element,1)中的“1”是代表什么啊，是什么意思？
1 代表数组element的第一维，可省略，省略时就表示第一维！
LBound(element,1) 表示：返回elemen数组的第一维的下界
LBound 函数: 返回一个 Long 型数据，其值为指定数组维可用的最小下标。
>>语法
LBound(arrayname[, dimension])
>>LBound 函数的语法包含下面部分：
arrayname 必需的。数组变量的名称，遵循标准的变量命名约定。
dimension 可选的；Variant (Long)。指定返回哪一维的下界。1 表示第一维，2 表示第二维，如此类推。如果省略 dimension，就认为是 1。
>>说明
LBound 函数与 UBound 函数一起使用，用来确定一个数组的大小。UBound 用来确定数组某一维的上界。
>>对具有下述维数的数组而言，LBound 的返回值见下表：
Dim A(1 To 100, 0 To 3, -3 To 4)
语句 返回值
LBound(A, 1) 1
LBound(A, 2) 0
LBound(A, 3) -3
所有维的缺省下界都是 0 或 1，这取决于 Option Base 语句的设置。使用 Array 函数创建的数组的下界为 0；它不受 Option Base 的影响。
>>对于那些在 Dim 中用 To 子句来设定维数的数组而言，Private、Public、ReDim 或 Static 语句可以用任何整数作为下界。
==============================
UBound 函数: 返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
>>语法
UBound(arrayname[, dimension]