Option Explicit

Dim Total$\_$Sales As Currency, Commission$\_$Amount As Currency

Private Sub Calculate$\_$Commission$()$

Total$\_$Sales $=$ InputBox$("$enter the total sales in $$")$

If Total$\_$Sales $>10000$ Then

Commission$\_$Amount $=$ Total$\_$Sales $*(6/100)$

ElseIf Total$\_$Sales $>9000$ Then

Commission$\_$Amount $=$ Total$\_$Sales $*(5/100)$

Else

Commission$\_$Amount $=$ Total$\_$Sales $*(4/100)$

End If

Cells$(6,7).$Value $=$ Commission$\_$Amount

End Sub

$18.$ When the code is run, what is the message displayed?

a$.$ enter the total sales c$.$ enter the total sales in

b$.$ enter the total sales in # d$.$ enter the total sales in $

$19.$ If the value entered is $5000,$ what is the value of the variable Commission$\_$Amount?

a$.220$ c$.250$

b$.300$ d$.200$

$20.$ If the value entered is $9999,$ what is the value of the variable Commission$\_$Amount?

a$.599\mathrm{.}94$ c$.399\mathrm{.}96$

b$.499\mathrm{.}95$ d$.299\mathrm{.}96$

$21.$ If the value entered is $20000,$ what is the value of the variable Commission$\_$Amount?

a$.1200$ c$.600$

b$.800$ d$.650$