Option Base 1
Private Sub Command1_Click()
Dim m As Integer, p() As Integer, i As Integer, g As Integer, q As Integer, k As Integer
m = InputBox("m=")
q = InputBox("q=")
k = InputBox("k=")
ReDim p(m, m)
For i = 1 To m
For g = 1 To m
If (i Mod 2) > 0 Then
i = k
ElseIf (i Mod 2) = 0 Then
i = q
End If
Next
Next
For i = 1 To m
For g = 1 To m
Print A(i, g)
Next
Print
Next
End Sub

Option Base 1
Private Sub Command1_Click()
Dim m As Integer, p() As Integer, i As Integer, g As Integer, q As Integer, k As Integer
m = InputBox("ââåäèòå ðàçìåðíîñòü")
q = InputBox("ââåäèòå q")
k = InputBox("ââåäèòå k")
ReDim p(m, m)
For i = 1 To m
For g = 1 To m
If (i Mod 2) = 0 Then
p(i, g) = k
Else
p(i, g) = q
End If
Next
Next
For i = 1 To m
For g = 1 To m
Print p(i, g);
Next
Print
Next