Macros e VBA Aula 6 Criando Aplicativos no Excel com uso do Vetor

Curso Completo de VBA: https://sun.eduzz.com/78570

Código da aula:

Sub CaixaLanchonete()

Dim lanches(1 To 4) As String
Dim bebidas(1 To 3) As String
Dim precoBebida(1 To 3) As Double
Dim precoLanche(1 To 4) As Double
Dim numbebida As Integer, numlanche As Integer
Dim total As Double, recebido As Double, troco As Double

lanches(1) = "Pão de queijo"
lanches(2) = "Coxinha"
lanches(3) = "Enroladinho"
lanches(4) = "Torta"
bebidas(1) = "refrigerante"
bebidas(2) = "suco"
bebidas(3) = "café"
precoLanche(1) = 2.5
precoLanche(2) = 2
precoLanche(3) = 2.75
precoLanche(4) = 3.5
precoBebida(1) = 2.5
precoBebida(2) = 5
precoBebida(3) = 1

numlanche = InputBox("Informe o número do lanche escolhido:")
numbebida = InputBox("Informe o número da bebida escolhida:")

total = precoBebida(numbebida) + precoLanche(numlanche)

MsgBox ("Você escolheu: " & lanches(numlanche) & " e " & bebidas(numbebida))
MsgBox ("Total a pagar: " & total)

recebido = InputBox("Informe o valor pago pelo cliente:")
troco = recebido - total
MsgBox ("Troco: " & troco)
End Sub