I want to do this...
Enter the day of birth: 10
Enter the month of birth: 2
Enter the year of birth: 1986
You were born in: February
I only now how to do this in vb, this is the code that i used...
Code:'// Declaração de Variáveis Dim dia, ano, i As Integer Dim meses(12), resposta As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '// Inicialização de Variáveis meses(1) = "Janeiro" meses(2) = "Fevereiro" meses(3) = "Março" meses(4) = "Abril" meses(5) = "Maio" meses(6) = "Junho" meses(7) = "Julho" meses(8) = "Agosto" meses(9) = "Setembro" meses(10) = "Outubro" meses(11) = "Novembro" meses(12) = "Dezembro" Do '// Entrada de Dados dia = InputBox("Entre com o dia do nascimento do aluno:") meses(i) = InputBox("Entre com o mês do nascimento do aluno:") ano = InputBox("Entre com o ano do nascimento do aluno:") '// Processamento de Dados For i = meses(i) To meses(i) '// Saida de Dados MsgBox("O estudante nasceu em " & dia & " de " & meses(i) & " de " & ano) Next '// Perguntar se Quer Continuar resposta = InputBox("Deseja Continuar S/N?:") resposta = resposta.ToUpper Loop Until (resposta.Equals("N")) Close() End Sub End Class




Reply With Quote