Øvelser til kapitel 3 opgave 2

Public Sub UdregnRevenue2()
Dim Pnavn As String
Dim EnhedPris As Currency
Dim AntalStk As Integer
Dim Revenue As Currency
Dim EnhedPrisTekst As String

Pnavn = InputBox("Indtast produktets navn")

EnhedPrisTekst = "Indtast enhedsprisen for " & Pnavn

EnhedPris = InputBox(EnhedPrisTekst)

AntalStk = InputBox("Indtast antal solgte stk.")

Revenue = EnhedPris * AntalStk

MsgBox "For " & Pnavn & " er enhedsprisen kr. " & EnhedPris & ", antallet solgt er " & AntalStk & " og revenuet er derfor kr. " & Revenue

End Sub