Question

Excel

develop a VBA program that will read in the values of m and n and then generate and output an m by n matrix [A]. dij :i- j starting in cells(5,1) with entry values that correspond to the formula where i and j are the row and column indices. m = 6 , n=3

Answer 1

VBA code (with comments) for the problem:

Sub makeArray()
'Declarations of variables
Dim m As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer
'Declaration of dynamic array mat()
Dim mat() As Integer
'Take user input for m rows an n columns
m = InputBox("Enter number of rows: ", "Input", 6)
n = InputBox("Enter number of columns: ", "Input", 3)
'Redimension mat with user given value
ReDim mat(m, n) As Integer
'assign value to matrix by formula a(i, j) = i-j
For i = 1 To m
For j = 1 To n
mat(i, j) = i - j
'start writing from Cell(5, 1)
Cells(i + 4, j).Value = mat(i, j)
Next j
Next i
End Sub

OUTPUT:

A B с D E 1 2 3 4 5 0 -1 -2 6 1 0 7 2 1 -1 0 1 8 3 2 9 4 3 2 10 5 4 3 11