Informe a nota N1: 9.4
Informe a nota N2: 11
Nota inválida. Informe a nota N2: 8.3
A média do aluno é: 8.85
O aluno foi aprovado

Informe a nota N1: 4.2
Informe a nota N2: 1.8
A média do aluno é: 3.0
O aluno reprovou direto.

Informe a nota N1: 5.7
Informe a nota N2: 6
A média do aluno é: 5.85
Informe a nota do exame: 7
A média do aluno com o exame é: 6.425
O aluno foi aprovado após o exame.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim n1, n2, media, exame As Double

    ' vamos ler a primeira nota
    Console.Write("Informe a nota N1: ")
    n1 = Double.Parse(Console.ReadLine())
    ' a nota é válida?
    While ((n1 < 0) Or (n1 > 10))
      Console.Write("Nota inválida. Informe a nota N1: ")
      n1 = Double.Parse(Console.ReadLine())
    End While

    ' vamos ler a segunda nota
    Console.Write("Informe a nota N2: ")
    n2 = Double.Parse(Console.ReadLine())
    ' a nota é válida?
    While ((n2 < 0) Or (n2 > 10))
      Console.Write("Nota inválida. Informe a nota N2: ")
      n2 = Double.Parse(Console.ReadLine())
    End While

    ' vamos calcular a média do aluno
    media = (n1 + n2) / 2.0
    Console.WriteLine("A média do aluno é: " & media)

    ' o aluno foi aprovado?
    If (media >= 7.0) Then
      Console.WriteLine("O aluno foi aprovado")
      ' o aluno ficou de exame?
    ElseIf ((media >= 3.5) And (media < 7.0)) Then
      ' vamos ler a nota do exame
      Console.Write("Informe a nota do exame: ")
      exame = Double.Parse(Console.ReadLine())
      ' a nota é válida?
      While ((exame < 0) Or (exame > 10))
        Console.Write("Nota inválida. Informe a nota do exame: ")
        exame = Double.Parse(Console.ReadLine())
      End While

      ' calcula a nota média
      media = (media + exame) / 2.0
      Console.WriteLine("A média do aluno com o exame é: " & media)

      ' o aluno foi aprovado após o exame?
      If (media >= 5.0) Then
        Console.WriteLine("O aluno foi aprovado após o exame.")
      Else
        Console.WriteLine("O aluno foi reprovado após o exame.")
      End If
      ' reprovou direto
    Else
      Console.WriteLine("O aluno reprovou direto.")
    End If

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module

' declara, constrói e inicializa um vetor de 10 inteiros
Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

Informe um valor: 4
O valor foi encontrado: 3 vezes

Informe um valor: 8
O valor foi encontrado: 1 vezes

Informe um valor: 3
O valor foi encontrado: 0 vezes

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' declara, constrói e inicializa um vetor de 10 inteiros
    Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

    ' vamos ler um valor inteiro
    Console.Write("Informe um valor: ")
    Dim pesquisa As Integer = Int32.Parse(Console.ReadLine())

    ' vamos verificar quantas vezes o valor informado está
    ' contido no vetor
    Dim repeticoes As Integer = 0
    For i As Integer = 0 To valores.Length - 1
      If valores(i) = pesquisa Then
        ' encontrou? vamos contar esta ocorrência
        repeticoes = repeticoes + 1
      End If
    Next

    ' vamos mostrar o resultado
    Console.WriteLine("O valor foi encontrado: " &
      repeticoes & " vezes")

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim palavra1, palavra2 As String
    palavra1 = "Visual Basic"
    palavra2 = "Visual Basic"

    If palavra1.Equals(palavra2) Then
      Console.WriteLine("As duas strings são iguais")
    Else
      Console.WriteLine("As duas strings são diferentes")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    ' cria um array de inteiros
    Dim valores() As Integer = {1, 2, 3, 4, 5}

    ' exibe os valores do primeiro array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    ' cria um segundo array e copia os elementos
    ' do primeiro para o segundo
    Dim valores2() As Integer = {6, 7, 8, 9, 10, 15, 20}
    valores.CopyTo(valores2, 0)
    Console.WriteLine()

    ' exibe os valores do segundo array
    For Each valor As Integer In valores2
      Console.WriteLine(valor)
    Next

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module