Версия для слабовидящих

Задача 3. Заполнить двумерный массив случайными числами от 0 до 100 и распечатать его.

Решение на Бейсик:
IINPUT i, j, DIM a(3, 5)
FOR i=1 to 3
FOR j=1 to 5
a(i, j) = INT(RND*100)
PRINT a(i, j);
NEXT j
PRINT
NEXT j

Программный код:
PUBLIC SUB Button1_Click()
DIM i AS Integer
DIM j AS Integer
DIM a AS NEW Integer[3, 5]
RANDOMIZE
FOR i = 0 TO 3 - 1
FOR j = 0 TO 5 - 1
a[i, j] = Rnd(0, 100)
PRINT a[i, j]; " ";
NEXT
PRINT
NEXT
END

 Сайт управляется системой uCoz