alguem me pode ajudar com o seguinte codigo?
Código:
Module Module1 Sub Main() Dim teste1 As Integer Dim teste2 As Integer Dim resultado As Single Console.WriteLine("nota do primeiro teste") teste1 = Console.ReadLine() Console.WriteLine("nota do segundo teste") teste2 = Console.ReadLine resultado = (teste1 + teste2) / 2 For 1 to 3 Select Case resultado Case 1 If resultado > 9.4 Then Console.WriteLine("parabens! passou de ano! " & resultado) End If Case 2 If resultado > 6.4 < 9.5 Then Console.WriteLine("o aluno chumbou e vai a teste de reuperaçao! " & resultado) End If Case 3 If resultado < 6.5 Then Console.WriteLine("o aluno chumbou e não vai a teste de recuperaçao " & resultado) End If End Select Next Console.Read() End Sub End Module
Comment