0401

Private Sub Command1_Click()
Dim m As Single
Dim n As Single
Dim x(0 To 21, 1 To 41) As Single
Dim b(0 To 21) As Single
For n = 1 To 10
x(0, n) = 11 - n
x(0, 10 + n) = 11 - n
Next
For m = 1 To 20
x(m, m) = 1
Next
For m = 1 To 20
x(m, m + 20) = 1
Next
For n = 1 To 20
x(21, n) = 1
Next
x(21, 41) = 1
b(0) = 0
For n = 1 To 20
b(n) = 1
Next
b(21) = 10
End Sub