Observe the tollowing code

Sub ArrayExercise$\_3()$

Dim MyArray $(2,3)$ As Integer

MyArray$(0,0)=10$

MyArray$(0,1)=10$

MyArray$(0,2)=10$

MyArray$(0,3)=10$

MyArray $(1,0)=20$

MyArray $(1,1)=20$

MyArray $(1,2)=20$

MyArray$(1,3)=20$

MyArray$(2,0)=30$

MyArray$(2,1)=30$

MyArray$(2,2)=30$

MyArray $(2,3)=30$

For $1=0$ To $2$

For $j=0$ To $3$

Cells$(1+1,j+1)*$ Value $=$MyArray$(1,j)$

Next Observe the following code

Sub ArrayExercise$\_3()$

Dim MyArray $(2,3)$ As Integer

MyArray$(0,0)=10$

MyArray$(0,1)=10$

MyArray$(0,2)=10$

MyArray$(0,3)=10$

MyArray$(1,0)=20$

MyArray $(1,1)=20$

MyArray$(1,2)=20$

MyArray$(1,3)=20$

MyArray $(2,0)=30$

MyArray$(2,1)=30$

MyArray $(2,2)=30$

MyArray$(2,3)=30$

For $1=0$ To $2$

For $j=0$ To $3$

Cells$(1+1,j+1)*$ Value $=$MyArray$(1,j)$

Next $f$

Next $1$

End Sub

Their output must be like this

Using this code as example to manage a two

dimensional array. Develop three subroutine to

perform the following task

Obtain the average per column.

Obtain the average per row.

Obtain the total average of the entire table.