sistema programacion
Module Module1
Sub Main()
Dim amigos(99, 3) As String
Dim pos, posaux, menu As Integer
Dim ida As String
DoWriteLine("Menú:")
WriteLine("1.- Agregar")
WriteLine("2.- Borrar")
WriteLine("3.- Modificar")
WriteLine("4.- Consulta general")
WriteLine("5.-Consulta específica")
WriteLine("6.- Salir")
WriteLine("¿Qué opcion eliges?")
menu = ReadLine()
Select Case menu
Case 1pos = buscar_posdis(amigos)
If pos = -1 Then
Write("No hay espacio disponible")
ElseWrite("Escribe el Id nuevo ")
ida = ReadLine()
posaux = buscar_id(amigos, ida)
If posaux = -1 Thenamigos(pos, 0) = ida
Write("Escribe el nombre ")
amigos(pos, 1) = ReadLine()
Write("Escribe el telefono ")amigos(pos, 2) = ReadLine()
Write("Escribe la edad ")
amigos(pos, 3) = ReadLine()
ElseWriteLine("El Id ya existe")
End If
End If
Case 2
Write("Escribe el Id a borrar ")ida = ReadLine()
posaux = buscar_id(amigos, ida)
If posaux = -1 Then
WriteLine("El Id no existe")
ElseDim preg As Char
Write("'Estás seguro? R= ")
preg = ReadLine()
If preg = "Y" Or preg = "y" Then...
Regístrate para leer el documento completo.