Øvelser til kapitel 3 opgave 1

Public Sub UdregnRevenue()
Dim EnhedPris As Currency
Dim AntalStk As Integer
Dim Revenue As Currency


EnhedPris = InputBox("Indtast produktets enhedspris")
AntalStk = InputBox("Indtast antal solgte stk.")

Revenue = EnhedPris * AntalStk
MsgBox "Revenuet for dette produkt er " & Revenue & " kr."

End Sub