ajuda em console

[karlito]

alguem me pode ajudar com o seguinte codigo?

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

[Piratica]

Erros:
1- Você precisa definir uma variável no for.
2- Para ele ler as notas mais que uma vez, elas precisam estar dentro do for, assim como o cálculo das médias.
3- Não vi necessidade no uso de "Case", apenas os if bastam.

Module Module1

    Sub Main()
        Dim teste1 As Integer
        Dim teste2 As Integer
        Dim resultado As Single

        
        For Count = 1 To 3
            Console.WriteLine("nota do primeiro teste")
            teste1 = Console.ReadLine()
            Console.WriteLine("nota do segundo teste")
            teste2 = Console.ReadLine
            resultado = (teste1 + teste2) / 2

            If resultado > 9.4 Then
                Console.WriteLine("parabens! passou de ano! " & resultado)
            End If

            If resultado > 6.4 < 9.5 Then
                Console.WriteLine("o aluno chumbou e vai a teste de reuperaçao! " & resultado)
            End If

            If resultado < 6.5 Then
                Console.WriteLine("o aluno chumbou e não vai a teste de recuperaçao " & resultado)
            End If

        Next Count
        Console.Read()

    End Sub

End Module

Há mais um detalhe, o "Else" poderia ser usado neste caso e traz alguns benefícios. Segue o código:

Module Module1

    Sub Main()
        Dim teste1 As Integer
        Dim teste2 As Integer
        Dim resultado As Single

        
        For Count = 1 To 3
            Console.WriteLine("nota do primeiro teste")
            teste1 = Console.ReadLine()
            Console.WriteLine("nota do segundo teste")
            teste2 = Console.ReadLine
            resultado = (teste1 + teste2) / 2

            If resultado > 9.4 Then
                Console.WriteLine("parabens! passou de ano! " & resultado)
            ElseIf resultado > 6.4 < 9.5 Then
                Console.WriteLine("o aluno chumbou e vai a teste de reuperaçao! " & resultado)
            Else
                Console.WriteLine("o aluno chumbou e não vai a teste de recuperaçao " & resultado)
            End If

        Next Count
        Console.Read()

    End Sub

End Module

Veja se é isso, qualquer coisa só dar um toque.