Função VBScript UBound
A função UBound retorna o maior subscrito da matriz especificada. Portanto, esse valor corresponde ao tamanho da matriz.
Sintaxe
UBound(ArrayName[,dimension])
ArrayName, um parâmetro obrigatório. Este parâmetro corresponde ao nome da matriz.
dimension, um parâmetro opcional. Isso leva um valor inteiro que corresponde à dimensão da matriz. Se for '1', retorna o limite inferior da primeira dimensão; se for '2', retorna o limite inferior da segunda dimensão e assim por diante.
Exemplo
<!DOCTYPE html>
<html>
<body>
<script language = "vbscript" type = "text/vbscript">
Dim arr(5)
arr(0) = "1" 'Number as String
arr(1) = "VBScript" 'String
arr(2) = 100 'Number
arr(3) = 2.45 'Decimal Number
arr(4) = #10/07/2013# 'Date
arr(5) = #12.45 PM# 'Time
document.write("The Largest Subscript value of the given array is : " & UBound(arr))
' For MultiDimension Arrays :
Dim arr2(3,2)
document.write(
"The Largest Subscript of the first dimension of arr2 is : " & UBound(arr2,1) & "<br />")
document.write(
"The Largest Subscript of the Second dimension of arr2 is : " & UBound(arr2,2) & "<br />")
</script>
</body>
</html>
Quando o código acima é salvo como .HTML e executado no Internet Explorer, ele produz o seguinte resultado -
The Largest Subscript value of the given array is : 5
The Largest Subscript of the first dimension of arr2 is : 3
The Largest Subscript of the Second dimension of arr2 is : 2