Задача с массивами в Visual Basic 6.0 - VB

Формулировка задачи:

Даны целые числа а1, а2, а3. Получить целочисленную матрицу [bij]i,j=1,2,3, для которой bij=ai-3aj. Задача вроде и не сложная, математическая модель простая, но на язык Basic перевести не получается..

Решение задачи: «Задача с массивами в Visual Basic 6.0»

textual
                            Листинг программы 
                        

                            dim a(1 to 3) as long, b(1 to 3, 1 to 3) as long, i as long, j as long
a(1)=...'вставьте число
a(2)=...'вставьте число
a(3)=...'вставьте число
for i=1 to 3
  for j=1 to 3
    b(i,j)=a(i)-3*a(j)
  next
next
                        