Modulos en Vb.net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For mdlopera.i = 1 To 5
For mdlopera.j = 1 To 2
c = InputBox("Digite Valores Vx[" + Str(i) + " , " + Str(j) + "]")
If j = 1 Then
mdlopera.impar()
ElseIf j = 2 Then
mdlopera.par()
End If
Next
Next
End Sub
End Class

Los Modulos se crean desde el explorador de soluciones




Module mdlopera
Public c, x, y As String
Public i, j As Integer
Public Sub impar()
If (j = 1) And (Val(c) Mod 2 = 1) Then
x = ("Vx[" + Str(i) + " , " + Str(j) + "]=" + c)
ElseIf Val(c) Mod 2 <> 1 Then
c = InputBox("Digite Vlrs Impares en esta posicion Vx[" + Str(i) + " , " + Str(j) + "]")
x = ("Vx[" + Str(i) + " , " + Str(j) + "]=" + c)
End If
End Sub

Public Sub par()
If (j = 2) And (Val(c) Mod 2 = 0) Then
y = ("Vx[" + Str(i) + " , " + Str(j) + "]=" + c)
ElseIf Val(c) Mod 2 <> 0 Then
c = InputBox("Digite Vlrs pares en esta posicion Vx[" + Str(i) + " , " + Str(j) + "]")
y = ("Vx[" + Str(i) + " , " + Str(j) + "]=" + c)
End If
End Sub
End Module

Gracias por el codigo german me ayuda bastante

asi es mucho mas sencillo hacer el ejercicio...! la explicación de hoy estubo muy buena!!!

HOLA PROFESOR GERMAN GRACIAS P

Hola profesor.

he probado el código del ejemplo que coloco, pero me queda una duda, cuando ingreso en un determinado caso en una posición impar un numero par mas de dos veces, este continua con la siguiente posición aun siendo par. Es posible hacer un paso atrás o retroceso en el bucle o un stop hasta que este valide correctamente?.

profe.
por que cuando digite un numero sea en este caso el "3"por que se me repite dos veces,sino e ingresado ese mismo valor dos veces??