Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Dim myArr
Dim j
myArr = GetMyArray(10)
For j = 0 To UBound(myArr)
WScript.Echo myArr(j)
Next
Function GetMyArray(nSize)
Dim arrWorking()
Dim i
For i = 0 To nSize
ReDim Preserve arrWorking(i)
arrWorking(i) = Int(100 * Rnd(1))
Next
GetMyArray = arrWorking
End Function