In the below table, if a sale man attain a sale volume of $6000, he will be paid $6000x15%=$900.00. A visual basic code to calculate the commissions is as follows: * Sales Volume($) Commissons <2000 9% <5000 12% >=5000 15% Table 1: Commissions Payment Table Private Sub Command1_Click() Dim Sales, comm As Single Sales = Val(Text1.Text) 1-... comm = Sales * 0.09 2-... comm = Sales * 0.12 3-.. comm = Sales * 0.15 End If Text2.Text = comm End Sub 1-lf Sales < =2000 Then 2-Elself Sales>= 2000 And Sales<= 5000 Then 3-Elself Sales>= 5000 Then 1-lf Sales < 2000 Then 2-If Sales> 2000 And Sales<= 5000 Then 3-If Sales>= 5000 Then 1-lf Sales < 2000 Then 2-lf Sales< 5000 Then 3-Elself Sales>= 5000 Then 1-lf Sales < 2000 Then 2-Elself Sales>= 2000 And Sales< 5000 Then 3-Elself Sales>= 5000 Then

Programming Logic & Design Comprehensive
9th Edition
ISBN:9781337669405
Author:FARRELL
Publisher:FARRELL
Chapter6: Arrays
Section: Chapter Questions
Problem 11PE
icon
Related questions
Question
In the below table, if a sale man
attain a sale volume of $6000, he
will be paid $6000x15%=$900.00.
A visual basic code to calculate the
commissions is as follows: *
Sales Volume($)
Commissons
<2000
9%
<5000
12%
>=5000
15%
Table 1: Commissions Payment Table
Private Sub Command1_Click()
Dim Sales, comm As Single
Sales = Val(Text1.Text)
%3D
1-....
comm = Sales * 0.09
2-..
comm = Sales * 0.12
3-..
comm = Sales * 0.15
End If
Text2.Text = comm
End Sub
1-lf Sales < =2000 Then 2-Elself Sales>=
2000 And Sales<= 5000 Then 3-Elself
Sales>= 5000 Then
1-lf Sales < 2000 Then 2-If Sales> 2000
And Sales<= 5000 Then 3-lf Sales>=
5000 Then
1-lf Sales < 2000 Then 2-If Sales< 5000
Then 3-Elself Sales>= 5000 Then
1-lf Sales < 2000 Then 2-Elself Sales>=
: O 2000 And Sales< 5000 Then 3-Elself
Sales>= 5000 Then
Transcribed Image Text:In the below table, if a sale man attain a sale volume of $6000, he will be paid $6000x15%=$900.00. A visual basic code to calculate the commissions is as follows: * Sales Volume($) Commissons <2000 9% <5000 12% >=5000 15% Table 1: Commissions Payment Table Private Sub Command1_Click() Dim Sales, comm As Single Sales = Val(Text1.Text) %3D 1-.... comm = Sales * 0.09 2-.. comm = Sales * 0.12 3-.. comm = Sales * 0.15 End If Text2.Text = comm End Sub 1-lf Sales < =2000 Then 2-Elself Sales>= 2000 And Sales<= 5000 Then 3-Elself Sales>= 5000 Then 1-lf Sales < 2000 Then 2-If Sales> 2000 And Sales<= 5000 Then 3-lf Sales>= 5000 Then 1-lf Sales < 2000 Then 2-If Sales< 5000 Then 3-Elself Sales>= 5000 Then 1-lf Sales < 2000 Then 2-Elself Sales>= : O 2000 And Sales< 5000 Then 3-Elself Sales>= 5000 Then
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Knowledge Booster
Mathematical functions
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.
Similar questions
  • SEE MORE QUESTIONS
Recommended textbooks for you
Programming Logic & Design Comprehensive
Programming Logic & Design Comprehensive
Computer Science
ISBN:
9781337669405
Author:
FARRELL
Publisher:
Cengage
Programming with Microsoft Visual Basic 2017
Programming with Microsoft Visual Basic 2017
Computer Science
ISBN:
9781337102124
Author:
Diane Zak
Publisher:
Cengage Learning
Np Ms Office 365/Excel 2016 I Ntermed
Np Ms Office 365/Excel 2016 I Ntermed
Computer Science
ISBN:
9781337508841
Author:
Carey
Publisher:
Cengage
COMPREHENSIVE MICROSOFT OFFICE 365 EXCE
COMPREHENSIVE MICROSOFT OFFICE 365 EXCE
Computer Science
ISBN:
9780357392676
Author:
FREUND, Steven
Publisher:
CENGAGE L