Proyecto Vb
Aplicación de Windows/ Aplicación de consola
Nombre proyecto: Banco
Module1 escribir el siguiente código
Module Module1
Sub Main()
Dim opc AsInteger
Dim cli As cliente1
cli = New cliente1()
Dim cli2 As New cliente2
Dim ban As New banco
Dim ban2 As New banco2
Dim enc As New encapsulamientoDim jefe, nm, sl As String
Console.WriteLine("Menú")
Console.WriteLine("1. CLASE SIMPLE")
Console.WriteLine("2. CLASE COMPLEJA")
Console.WriteLine("3.ENCAPSULAMIENTO")
Console.WriteLine("4. HERENCIA")
Console.WriteLine("6. SALIR")
Console.WriteLine("ESCOJA UNA OPCION: ")
opc = Console.ReadLine()
If opc = 1Then
Console.WriteLine("Escribe el nombre del cliente:")
cli.nombre = Console.ReadLine
cli.sabernombre()
cli.saberedad()cli.sabersalario()
Console.ReadLine()
ElseIf opc = 2 Then
Console.WriteLine("Nombre del Cliente:")
cli2.nombre = Console.ReadLineConsole.WriteLine("Apellido del Cliente:")
cli2.apellido = Console.ReadLine
Console.WriteLine("Nombre del Jefe:")
jefe = Console.ReadLine
Console.WriteLine("Aumento deSalario")
cli2.aumentodesalario = Console.ReadLine
nm = cli2.sabernombre
Console.WriteLine("El Nombre completo es: " & nm)
sl =cli2.sabertodo(jefe)
Console.WriteLine("" & sl)
Console.ReadLine()
ElseIf opc = 3 Then
Console.WriteLine("Escriba el nombre de una persona:")enc.nombre = Console.ReadLine
enc.sabertodo()
Console.WriteLine("Escriba el nombre de otra persona:")
enc.nombre = Console.ReadLine
enc.sabertodo()...
Regístrate para leer el documento completo.