| 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/Archive/Examples/ |
Upload File : |
MaxSize = 5
REDIM MyArray(MaxSize, MaxSize)
FOR I = 1 TO MaxSize ' Vertical
FOR J = 1 TO MaxSize ' Horizontal
MyArray(I, J) = 0
NEXT J
NEXT I
Count = 1
FOR J = 1 TO MaxSize
StopNow = 0
StoreMe = INT(RND(1) * 100) + 1
HashValue = StoreMe - (INT(StoreMe / 5) * 5) + 1
WHILE StopNow <> 1
IF MyArray(Count, HashValue) = 0 THEN
MyArray(Count, HashValue) = StoreMe
StopNow = 1
ELSE
Count = Count + 1
END IF
WEND
PRINT StoreMe; SPACE$(1);
NEXT J
PRINT
PRINT
FOR I = 1 TO MaxSize ' Vertical
FOR J = 1 TO MaxSize ' Horizontal
PRINT MyArray(I, J); SPACE$(5);
NEXT J
PRINT
NEXT I
END