Программа перемножает числа и выводит результат - сумму матрицы - VB

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

Dim n As Double
Dim i As Double
Private Sub Command1_Click()
Cls
n = InputBox("Сколько чисел перемножить? ")
For i = 1 To n
Print i;
Print ;
Next i
Print ;
Print i
Print ; "Умножение матрицы"
Print "---------------------------------------------"
For j = 1 To n
m = (i * j)
Print m
Next j
Print "---------------------------------------------"
Print " Подсчет матрицы"
End Sub

Скажите пожалуйста вот таким способом можно подсчитать матрицу. То есть суть в том что, с клавиатуры вводится определенное число, после этого программа перемножает числа и выводит результат то есть сумму матрицы.

Решение задачи: «Программа перемножает числа и выводит результат - сумму матрицы»

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

                            Dim x(1 To 3, 1 To 5)
Private Sub Command1_Click()
Randomize
Cls
For i = 1 To 3
For j = 1 To 5
x(i, j) = Int(Rnd(1) * 20) + 1
Print x(i, j);
Next j
Print
Next i
End Sub
                        