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方法的作用和使用方法。