ubound方法是Visual Basic中的函數之一,在數組中用于返回數組的上界(即最大索引值)。它具體的語法和使用方法如下:
UBound(數組名,[維度])
其中,數組名是要獲取上界的數組的名稱。維度是一個可選項,用于指定要獲取上界的數組的特定維度。如果不指定維度,默認是1,即獲取第一維度的上界。
ubound方法返回的是一個整數,表示數組的上界索引值。對于一維數組而言,即表示數組的最后一個元素所在的索引位置。
下面是一個具體的代碼示例,展示了ubound方法的使用:
Sub TestUBound()
Dim arr() As Integer
Dim upperBound As Integer
'初始化數組
arr = Array(1, 2, 3, 4, 5)
'獲取一維數組的上界
upperBound = UBound(arr)
'輸出上界值
MsgBox "一維數組的上界為:" & upperBound
'更改數組的上界
ReDim Preserve arr(1 To 6)
'獲取更新后的上界
upperBound = UBound(arr)
'輸出新的上界值
MsgBox "更新后的一維數組的上界為:" & upperBound
End Sub
登錄后復制
在上面的示例代碼中,我們首先聲明了一個整數類型的數組arr。然后,使用Array函數初始化了一個包含5個元素的一維數組。
接下來,在第一個MsgBox語句中,我們調用了UBound(arr)來獲取數組的上界,并將結果存儲在變量upperBound中。然后,彈出一個對話框顯示上界值。
然后,使用ReDim Preserve語句將數組的大小擴展到1到6的范圍,添加了一個新的元素。
最后,在第二個MsgBox語句中,我們再次調用UBound(arr)來獲取更新后的數組上界,并將結果存儲在upperBound變量中。再次彈出對話框來顯示新的上界值。
通過上述代碼示例,我們可以清楚地了解到ubound方法的作用和使用方法。






