Write another program named SumEven() that will add the first 5 even numbers (st

Question

Write another program named SumEven() that will add the first 5 even numbers (starting with number 2). EXERCISE 5 The problem can be bone using a modification of the for loop using Step 2 Try to complete the following code n order to get the same answer. Sub SunEvenStep() Dim Sum As Double Dim Count As Integer Dim Step As Integer Sum = 0 For Court = .... To .... Step 2 Sun = Sun + Court Next Count MsgBox "Sum = "& Sum End Sub Exercise 6 Write a procedure named test that will cover the following steps: Worksheets ("sheetJ") Range("A10"), Value = 7/100 Dim interest As Single interest = Worksheets("sheet1") Range("A10") Value MsgBox "interest on the car is = "& interest Range("D10") Select ActiveCell Offset(0, 0) = "Jan" ActiveCell Offset(0, 1) = "Feb" Range("E2 G6") Select Selection Selection Font Bold = True Selection Font italic = True Range ("E3") Value = "Hello" Range ("E3") Value = 10000000 MsgBox Worksheets (Sheet1") Range("E10") Value ActiveSheet Cell (2, 1) = 5 Range("A12, A14, A16, A18") = 30 Range("C20") Select ActiveCell Offset(-4, 3) Value = 600 Observe the output Explain by commenting what each of the above instructions did.

Explanation / Answer

Dim Sum As Double
Dim Count As Integer
Dim Step as Integer
Sum = 0
For Count = 2 To 10
If Count%2==0
Sum = Sum + Count
Next Count
MsgBox* Sum = *&Sum
EndSub

//
Here we have set count value from 2 to 5 and then check if count is an even number then add it .

Related Questions

Navigate

• Browse (All)
• Browse W
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.