Ошибка в программе - VB

Формулировка задачи:

Друзья, составил программу для решения задачи:
Элементам матрицы P чётных строк, присвоить значение, равное k, а элементам нечётных строк – q.
получилась следующая программа:

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

но при работе программы бейсик завершает работу, в чем проблема?

Решение задачи: «Ошибка в программе»

textual
                            Листинг программы 
                        

                            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

                        