Dim a(5, 5) As Integer
Dim i As Integer
Dim j As Integer
Dim istr As StringFor i = 1 To 5
For j = 1 To 5
If i = j Then
a(i, j) = 88
Else
a(i, j) = 11
End If
Next
Next
For i = 1 To 5
istr = ""
For j = 1 To 5
istr = istr + " " + Str(a(i, j))
Next j
Print istr
Next i
Dim i As Integer
Dim j As Integer
Dim istr As StringFor i = 1 To 5
For j = 1 To 5
If i = j Then
a(i, j) = 88
Else
a(i, j) = 11
End If
Next
Next
For i = 1 To 5
istr = ""
For j = 1 To 5
istr = istr + " " + Str(a(i, j))
Next j
Print istr
Next i
Dim j As Integer
Dim istr As StringFor i = 1 To 5
istr = ""
For j = 1 To 5
If i = j Then
istr = istr + " " + Str(88)
Else
istr = istr + " " + Str(11)
End If
Next j
Print istr
Next i
for j=1 to 5
Print Format(a(i,j),"00");" ";
next j
Print
next i