Título: hellp plizz no se como hacerlo :S Publicado por: iriver en 4 Abril 2010, 00:45 am Un instituto ofrece cursos de programación, el costo de los cursos es de la siguiente manera:
nombre Básico Intermedio Avanzado Profesor 50 70 100 Alumno 40 50 80 Externo 70 100 120 Se pide elaborar un programa para emitir el recibo por dicho curso, los datos que se mostraran en el recibo son: nombre del participante, costo del curso y nivel del curso. no se como hacerlo pero pa q no digan q no lo eh intentado ak les va la tonteria k ise y aver si me corrije ps :D Imports System.Console Imports System.Math Module Module5 Sub main() Dim nom, nivel As String WriteLine("ingrese nombre: profesor, alumno, externo") nom = ReadLine() WriteLine("ingrese nivel del curso: basico, intermedio, avanzado") nivel = ReadLine() Select Case nivel Case Is = "basico" And nom = "profesor" : WriteLine("costo del curso $50") Case Is = "basico" And nom = "alumno" : WriteLine("costo del curso $40") Case Is = "basico" And nom = "externo" : WriteLine("costo del curso $70") Case Is = "intermedio" And nom = "profesor" : WriteLine("costo del curso $70") Case Is = "intermedio" And nom = "alumno" : WriteLine("costo del curso $50") Case Is = "intermedio" And nom = "externo" : WriteLine("costo del curso $100") Case Is = "avanzado" And nom = "profesor" : WriteLine("costo del curso $100") Case Is = "avanzado" And nom = "alumno" : WriteLine("costo del curso $80") Case Is = "avanzado" And nom = "externo" : WriteLine("costo del curso $120") End Select ReadLine() End Sub End Module |