С помощью генератора случайных чисел создать и вывести на экран массив случайных действительных чисел

cls
dim a(10,10)
 
for i=1 to 10
for j=1 to 10
а(i,j)= int(rnd(1)*4)
next j
next i

CLS
 
DIM A!(1 TO 10, 1 TO 10)
DIM B!(1 TO 10, 1 TO 10)
DIM key$
 
RANDOMIZE TIMER
 
FOR i = 1 TO 10
  FOR j = 1 TO 10
    A!(i, j) = RND * 2 + 2
    B!(i, j) = 0
  NEXT j
NEXT i
 
FOR i = 1 TO 10
  B!(i, i) = A!(i, i) * A!(i, i)
NEXT i
 
LOCATE 1, 33
PRINT "The Matrix A"
LOCATE 3
 
FOR i = 1 TO 10
  FOR j = 1 TO 10
    'PRINT A!(i, j);
    PRINT USING "  ##.##"; A!(i, j);
  NEXT j
  PRINT
  PRINT
NEXT i
 
LOCATE , 25
PRINT "Press key to print matrix B..."
 
DO
  key$ = INKEY$
LOOP WHILE key$ = ""
 
PRINT
PRINT
 
FOR i = 1 TO 10
  FOR j = 1 TO 10
    PRINT USING "  ##.##"; B!(i, j);
  NEXT j
  PRINT
  PRINT
NEXT i

SCREEN 12
 
LF$ = CHR$(52)
RT$ = CHR$(54)
UP$ = CHR$(56)
DN$ = CHR$(50)
 
OLF$ = CHR$(0) + CHR$(75)
OUP$ = CHR$(0) + CHR$(72)
ORT$ = CHR$(0) + CHR$(77)
ODN$ = CHR$(0) + CHR$(80)
 
X0 = 300
Y0 = 240
 
PRINT "Press any arrow keys to start and control movin'. `Esc` to exit"
 
CIRCLE (X0, Y0), 20, 15
PAINT (X0, Y0), 15, 15
 
pressbtn:
 
KEY$ = INKEY$
IF KEY$ = "" THEN GOTO pressbtn
 
SELECT CASE KEY$
  CASE LF$: X = X0 - 10: Y = Y0: IF X < 20 THEN X = X0
  CASE RT$: X = X0 + 10: Y = Y0: IF X > 600 THEN X = X0
  CASE UP$: Y = Y0 - 10: X = X0: IF Y < 40 THEN Y = Y0
  CASE DN$: Y = Y0 + 10: X = X0: IF Y > 400 THEN Y = Y0
  CASE OLF$: X = X0 - 10: Y = Y0: KEL = 1: IF X < 20 THEN X = X0
  CASE OUP$: Y = Y0 - 10: X = X0: KEL = 1: IF Y < 40 THEN Y = Y0
  CASE ORT$: X = X0 + 10: Y = Y0: KEL = 1: IF X > 600 THEN X = X0
  CASE ODN$: Y = Y0 + 10: X = X0: KEL = 1: IF Y > 400 THEN Y = Y0
  CASE CHR$(27): END
  CASE ELSE: GOTO pressbtn
END SELECT
 
X0 = X
Y0 = Y
 
CLS
PRINT "Press any arrow keys to start and control movin'. `Esc` to exit"
CIRCLE (X0, Y0), 20, 15
PAINT (X0, Y0), 15, 15
 
GOTO pressbtn