bom dia fiz esse código ele executado tudo mas quando digito a idade ele fecha
gostaria de uma forcinha.
Module Module1
Sub Main()
Dim nome, endereco, telefone, cpf As String
Dim idade As Integer
Console.WriteLine("Seja bem Vindo....")
Console.WriteLine("Para continuar escolha uma opção....")
Console.WriteLine("1 - Para novo cadastro")
Console.WriteLine("2 - Para Mensalidade")
Console.WriteLine("3 - Para Sair")
Dim opcao As Integer = Console.ReadLine()
If opcao = 1 Then
Console.WriteLine("Digite seu nome:")
nome = Console.ReadLine()
Console.Write("Digite seu cpf:")
cpf = Console.ReadLine()
Console.Write("Digite seu endereço:")
endereco = Console.ReadLine()
Console.Write("Digite seu telefone:")
telefone = Console.ReadLine()
Console.Write("Digite sua idade")
idade = Console.ReadLine()
Select Case idade
Case 3 a 12
Console.WriteLine(nome + " Foi Cadastrado na modalidade Infantil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais")
Console.ReadKey()
Case 13 a 17
Console.WriteLine(nome + " Foi Cadastrado na modalidade Juvenil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais")
Console.ReadKey()
Case 18 a 100
Console.WriteLine(nome + " Foi Cadastrado na modalidade Adulto, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais")
Console.ReadKey()
End Select
ElseIf opcao = 2 Then
Console.WriteLine("Digite seu nome:")
nome = Console.ReadLine()
Console.Write("Digite seu cpf:")
cpf = Console.ReadLine()
Console.Write("O pagamento da mensalidade é de R$100.00 (cem reais) " + nome)
Console.ReadKey()
Pergunta
Uzumakit
bom dia fiz esse código ele executado tudo mas quando digito a idade ele fecha
gostaria de uma forcinha.
Module Module1
Sub Main()
Dim nome, endereco, telefone, cpf As String
Dim idade As Integer
Console.WriteLine("Seja bem Vindo....")
Console.WriteLine("Para continuar escolha uma opção....")
Console.WriteLine("1 - Para novo cadastro")
Console.WriteLine("2 - Para Mensalidade")
Console.WriteLine("3 - Para Sair")
Dim opcao As Integer = Console.ReadLine()
If opcao = 1 Then
Console.WriteLine("Digite seu nome:")
nome = Console.ReadLine()
Console.Write("Digite seu cpf:")
cpf = Console.ReadLine()
Console.Write("Digite seu endereço:")
endereco = Console.ReadLine()
Console.Write("Digite seu telefone:")
telefone = Console.ReadLine()
Console.Write("Digite sua idade")
idade = Console.ReadLine()
Select Case idade
Case 3 a 12
Console.WriteLine(nome + " Foi Cadastrado na modalidade Infantil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais")
Console.ReadKey()
Case 13 a 17
Console.WriteLine(nome + " Foi Cadastrado na modalidade Juvenil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais")
Console.ReadKey()
Case 18 a 100
Console.WriteLine(nome + " Foi Cadastrado na modalidade Adulto, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais")
Console.ReadKey()
End Select
ElseIf opcao = 2 Then
Console.WriteLine("Digite seu nome:")
nome = Console.ReadLine()
Console.Write("Digite seu cpf:")
cpf = Console.ReadLine()
Console.Write("O pagamento da mensalidade é de R$100.00 (cem reais) " + nome)
Console.ReadKey()
ElseIf opcao = 3 Then
Console.WriteLine("Xau xau xau xau")
Console.ReadKey()
End If
End Sub
End Module
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.