As maçãs custam R$ 0,30 cada se forem compradas menos do que uma dúzia, e R$ 0,25 se forem compradas pelo menos doze - Desafio de Programação Resolvido em VB.NET

Quantidade de maçãs compradas: 8
O valor da compra é: R$ 2.4

Quantidade de maçãs compradas: 20
O valor da compra é: R$ 5

----------------------------------------------------------------------
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 quant_macas As Integer
    Dim valor_total As Double

    ' vamos ler a quantidade de maçãs
    Console.Write("Quantidade de maçãs compradas: ")
    quant_macas = Int32.Parse(Console.ReadLine())

    ' é menos de uma dúzia?
    If quant_macas < 12 Then
      valor_total = quant_macas * 0.3
    Else
      ' é igual ou mais que doze?
      valor_total = quant_macas * 0.25
    End If

    ' e mostramos o valor da compra
    Console.WriteLine("O valor da compra é: R$ " & valor_total)

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

End Module