Imports system
public Module Module1
Sub Main()
Dim A(10,10) As Integer
Dim i,n,m,j,e As Integer
Console.Write(" Digite cantidad de filas de la matriz: ")
n = Console.ReadLine()
Console.Write(" Digite cantidad de columnas de la matriz: ")
m = Console.ReadLine()
Console.Write(" Digite el número escalar: ")
e = Console.ReadLine()
For i = 0 To n -1 Step 1
For j = 0 To m -1 Step 1
if (i=j) Then
A(i,j)=e
else
A(i,j)=0
End if
Next
Console.ReadLine()
Console.WriteLine("La matriz creada es: " )
For j= 0 To m-1 Step 1
Console.Write(A(i,j)&" ")
End Sub
End Module
