The following Excel image has a VBA program (see below). What will be the result after the program is executed? Any cells not displayed are currently empty, and any cells with numbers are formatted numeric. A B C D 1 2 3 UN Gross Domestic Product (GDP) per Capita 4 5 6 Year/Country Angola Portugal France 7 8 9 10 11 12 Total 2000 2005 2010 2015 2020 10 10 10 10 10 50 100 100 100 100 100 500 1,000 1,000 1,000 1,000 1,000 5,000 E Mexico 10,000 10,000 10,000 10,000 10,000 50,000

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
The following Excel image has a VBA program (see below).
What will be the result after the program is executed?
Any cells not displayed are currently empty, and any cells with numbers are formatted numeric.
A
B
C
D
1
2
3 UN Gross Domestic Product (GDP) per Capita
4
5
6
7
8
9
10
11
12 Total
Year/Country Angola Portugal France
2000
2005
2010
2015
2020
10
10
10
10
10
50
100
100
100
100
100
500
1,000
1,000
1,000
1,000
1,000
5,000
E
Mexico
10,000
10,000
10,000
10,000
10,000
50,000
Transcribed Image Text:The following Excel image has a VBA program (see below). What will be the result after the program is executed? Any cells not displayed are currently empty, and any cells with numbers are formatted numeric. A B C D 1 2 3 UN Gross Domestic Product (GDP) per Capita 4 5 6 7 8 9 10 11 12 Total Year/Country Angola Portugal France 2000 2005 2010 2015 2020 10 10 10 10 10 50 100 100 100 100 100 500 1,000 1,000 1,000 1,000 1,000 5,000 E Mexico 10,000 10,000 10,000 10,000 10,000 50,000
Sub GDP()
Tot = 0
Finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Finalrow To 7 Step -1
If Cells(i, 1).Value = 2005 Or Cells(i, 2).Value = 1000 Then
Rows(i).Delete
Else
Tot Tot + Cells(i, 4).Value
End If
Next i
MsgBox "The final result is " & tot,, " 2200"
End Sub
O 5,000
O 9,000
O 7,000
O 11,000
O 10,000
Transcribed Image Text:Sub GDP() Tot = 0 Finalrow = Cells(Rows.Count, 1).End(xlUp).Row For i = Finalrow To 7 Step -1 If Cells(i, 1).Value = 2005 Or Cells(i, 2).Value = 1000 Then Rows(i).Delete Else Tot Tot + Cells(i, 4).Value End If Next i MsgBox "The final result is " & tot,, " 2200" End Sub O 5,000 O 9,000 O 7,000 O 11,000 O 10,000
Expert Solution
steps

Step by step

Solved in 4 steps with 1 images

Blurred answer
Knowledge Booster
Image Element
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
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