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

Programming Logic & Design Comprehensive
9th Edition
ISBN:9781337669405
Author:FARRELL
Publisher:FARRELL
Chapter6: Arrays
Section: Chapter Questions
Problem 5GZ
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
Programming Logic & Design Comprehensive
Programming Logic & Design Comprehensive
Computer Science
ISBN:
9781337669405
Author:
FARRELL
Publisher:
Cengage