Use Excel VBA and show all your code/work

Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
icon
Related questions
Question

 Use Excel VBA and show all your code/work

Question 16: Exit Sub End If for Error Checking
• Use Exit Sub with End If statements for Example 16 as on pg. 88.
•
Design a subprocedure Calculations Example16 to calculate the quotient given two input
numbers.
Note: Please write a Divide function to calculate the quotient of a by b.
Note: Please use the Divide function in the Calculations Example16 subprocedure.
Note: You will have two input boxes to enter x and y values.
Note: you will need to open the Immediate window to see the results from Debug. Print.
Transcribed Image Text:Question 16: Exit Sub End If for Error Checking • Use Exit Sub with End If statements for Example 16 as on pg. 88. • Design a subprocedure Calculations Example16 to calculate the quotient given two input numbers. Note: Please write a Divide function to calculate the quotient of a by b. Note: Please use the Divide function in the Calculations Example16 subprocedure. Note: You will have two input boxes to enter x and y values. Note: you will need to open the Immediate window to see the results from Debug. Print.
Exit Sub and Exit Function Example 16
Here, we perform simple error checking with a Divide function.
●
Sub Calculations Example16()
Dim x As Double, y As Double, Value As Variant
x = InputBox("Enter x value.")
y = InputBox("Enter y value.")
value = Divide(x, y)
If value = "none" Then
Exit Sub
End If
Debug.Print "x divided by y is "& Divide(x, y)
End Sub
Function Divide(a, b)
If b = 0 Then
Divide = "none"
Exit Function
End If
Divide = a/b
End Function
Transcribed Image Text:Exit Sub and Exit Function Example 16 Here, we perform simple error checking with a Divide function. ● Sub Calculations Example16() Dim x As Double, y As Double, Value As Variant x = InputBox("Enter x value.") y = InputBox("Enter y value.") value = Divide(x, y) If value = "none" Then Exit Sub End If Debug.Print "x divided by y is "& Divide(x, y) End Sub Function Divide(a, b) If b = 0 Then Divide = "none" Exit Function End If Divide = a/b End Function
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Knowledge Booster
Database connectivity
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
Recommended textbooks for you
Database System Concepts
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education