Write a sub that requests a positive integer with an InputBox. Then use a For loop to sum up all the odd integers up to the input number [e.g. if the user enters 8, the program should add up 1, 3, 5, and 7 only]. Display the sum in a message box. Once you get this part working, delete the message box, and change the sub so that it enters all the odd numbers in consecutive cells in Column A of the worksheet, starting with cell A1, and displays the sum, boldfaced, just below the last odd integer. Hints Clear the contents of the worksheet to delete numbers from any previous run. To do this, use: Range(“A1”).EntireColumn.Clear Your For loop will need Step 2 so that it loops through 1, 3, 5, … etc. instead of the usual 1, 2, 3, … Clear out your accumulator (Total) at the beginning You would need an integer variable, say Row, to keep track of where you want to write the next number on the sheet. You can then write to the sheet by using: Range(“A1”).Offset(Row,0).Value Every time you go through the loop you must update Row (after writing) by using: Row = Row + 1 Then, once you exit the loop, Row will also indicate where you should write the Total.

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

See similar textbooks

Related questions

Question

Write a sub that requests a positive integer with an InputBox. Then use a For loop to sum up all the odd integers up to the input number [e.g. if the user enters 8, the program should add up 1, 3, 5, and 7 only]. Display the sum in a message box. Once you get this part working, delete the message box, and change the sub so that it enters all the odd numbers in consecutive cells in Column A of the worksheet, starting with cell A1, and displays the sum, boldfaced, just below the last odd integer.

Hints

Clear the contents of the worksheet to delete numbers from any previous run. To do this, use: Range(“A1”).EntireColumn.Clear

Your For loop will need Step 2 so that it loops through 1, 3, 5, … etc. instead of the usual 1, 2, 3, …

Clear out your accumulator (Total) at the beginning

You would need an integer variable, say Row, to keep track of where you want to write the next number on the sheet. You can then write to the sheet by using: Range(“A1”).Offset(Row,0).Value

Every time you go through the loop you must update Row (after writing) by using: Row = Row + 1

Then, once you exit the loop, Row will also indicate where you should write the Total.

Your sheet would look like this (for an input number of 20):

1
2
3
4
5
6
7
8
9
10
11
A
135
7
9
11
13
15
17
19
100
B

Expert Solution

Trending now

This is a popular solution!

Step by step

Solved in 4 steps with 3 images

SEE SOLUTION Check out a sample Q&A here

Knowledge Booster

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