Hola, alguien me ayuda por fis, el profe nos pidio que hicieramos en aplicacion de consola un arreglo para nombre y uno para apellido de 4 posiciones, en los cuales el usuario ingrese los datos, pueda ver un dato especifico o todos enlistados, tengo idea de como hacer el menu y lo ultimo pero para ingresar los datos, en vez dse ingresarlos todos ingresa 1 y se me devuelve al menu y no se porque, alguien por favor me ayuda
Tengo esto:
Sub ingresar()
Console.WriteLine("Ingrese nombre:")
Console.ReadLine()
Console.WriteLine("Ingrese apellido:")
Console.ReadLine()
Console.ReadKey()
Dim p As Integer
str_nombre(p) = Console.ReadLine
For p = 0 To 4
p = p - 1
Next
end sub
Sub menu()
Dim opcion As Integer
Console.WriteLine("menu elija una opcion")
Console.WriteLine("1) Ingreso de Datos")
Console.WriteLine("2) Visualizar Datos")
Console.WriteLine("4) Salir")
opcion = Console.ReadLine()

Select Case opcion
Case 1
Console.WriteLine("1") Ingreso de Datos")
ingresar()

' Console.Read()
Case 2
Console.WriteLine("2") Ingreso Registros")
Console.Read()

Case 3
Console.WriteLine("3") salir")
Console.Read()
End Select
Console.WriteLine("desea otra operacion s =si")
Console.Read()
Dim resp As Char
resp = Console.ReadLine()
If resp = "s" Then
menu()
Else
Salir()
End If
End Sub
No doy una con los arreglos por fis, necesito ayuda,
Gracias

no se si todavia te sirva pero pongo lo que podria ser la solucion por si alguien le sirve tienes algunos errores primero For p = 0 To 4
p = p - 1 para que ocupas esto si lo que quieres es guardar los 4 registros de una sola vez entonces tiene el for en el lado equivocado tendria que quedarte al inicio y poner que termine en 3 ya que los arreglos empiezan en 0 tendria que quedarte algo asi

Sub ingresar()
For p = 0 To 3
Console.WriteLine("Ingrese nombre:")
str_nombre(p) = Console.ReadLine
Console.WriteLine("Ingrese apellido:")
Console.ReadLine
Next
end sub

me imagino que este es le arreglo str_nombre(p) si quieres tener un arreglo para nombre y otro para apellido necesitas declarar otro y ponerlo en la segunda console.readline asi

Console.WriteLine("Ingrese nombre:")
str_nombre(p) = Console.ReadLine
Console.WriteLine("Ingrese apellido:")
str_apellido(p)=Console.ReadLine

con esto tendrias dos arreglos uno para el nombre(str_nombre) y otro para apellido (str_apellido)

si quieres mostrarlos todos los arreglos guardados entonces necesitas otro for y otra etiqueta o poner el for donde creas mas conveniente tendria que quedarte algo asi
For p = 0 To 3
Console.WriteLine(str_nombre(p))
Next

con esto mostrarias todos los registros guardados. bueno espero te ayude si necesitas algo mas no dudes en decirlo que para eso estamos hasta luego.