1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
Module Module1
Sub Main()
Dim matrice() As String
Dim n As Integer
Dim m As Integer
'matrice mxn avec m lignes et n colonnes
Console.WriteLine("Cititi nr de linii m=")
m = Console.ReadLine()
Console.WriteLine("Lire les nombres des colonnes n=")
n = Console.ReadLine()
Dim i As Integer
Dim j As Integer
'lire la matrice avec m et n donnes sur clavier
For i As Integer = 0 To m
For j As Integer = 0 To n
Console.WriteLine("a[{0}][{1}]" + i + j)
Next i
Next j
'afficher la matrice lue
For i As Integer = 0 To m
For j As Integer = 0 To n
Console.WriteLine("a(i)")
Next i
Next j
Console.ReadLine()
End Sub
End Module |