Найти сумму минимальных элементов массивов А и В - VB

OPTION BASE 1
maxmas = 12
DIM a(1 TO maxmas) AS SINGLE, b(1 TO maxmas) AS SINGLE
CLS
a(1) = 4: b(1) = 2
FOR i = 2 TO maxmas
     a(i) = COS(a(i - 1) / 18)
     b(i) = SIN(b(i - 1)) + 14
NEXT i
PRINT "Исходные массивы:"
PRINT "A:": PRINT "--"
mina = a(1): minb = b(1)
FOR i = 1 TO maxmas
     PRINT USING "####.######&"; a(i); "  ";
     IF a(i) < mina THEN mina = a(i)
     IF (i MOD 6) = 0 THEN PRINT
NEXT i
PRINT "B:": PRINT "--"
FOR i = 1 TO maxmas
     PRINT USING "####.######&"; b(i); "  ";
     IF b(i) < minb THEN minb = b(i)
     IF (i MOD 6) = 0 THEN PRINT
NEXT i
PRINT
PRINT USING "&####.######"; "Минимальный элемент массива А = "; mina
PRINT USING "&####.######"; "Минимальный элемент массива B = "; minb
PRINT : PRINT USING "&####.######"; "Их СУММА = "; mina + minb
ch$ = INPUT$(1)
END