求VB编程：给一个5*5的矩阵赋值,要求矩阵副对角线上方元素都是偶数,副对角线和它下方元素都为奇数.

Private Sub Command1_Click()
Dim mArr(1 To 5, 1 To 5), r%, c%, tmp%
For r = 1 To 5
For c = 1 To 5
Randomize
tmp = Int(Rnd * 90) + 10
If c > r Then
Do While tmp Mod 2 = 1
Randomize
tmp = Int(Rnd * 90) + 10
Loop
Else
Do While tmp Mod 2 = 0
Randomize
tmp = Int(Rnd * 90) + 10
Loop
End If
mArr(r, c) = tmp
Print mArr(r, c);
Next c
Print
Next r
End Su