Question

write the program in VBA

b. Write a program that uses a For loop to perform the following steps: a. Prompt the user to input two integers: firstNum and secondNum(firstNum must be less than secondNum). b. Output all odd numbers between firstNum and secondNum. c. Output the sum of all odd numbers between firstNum and secondNum. d. Output all even numbers between firstNum and second Num. e. Output the sum of all even numbers between firstNum and secondNum.

Answer 1

I have answered the question below.

Code:

Sub program()
Dim firstNum, secondNum, i, n As Integer
firstNum = InputBox("Enter firstNum: ")
secondNum = InputBox("Enter secondNum: ")
If firstNum < secondNum Then
n = secondNum - firstNum - 1
Dim odd_sum, even_sum As Integer
odd_sum = 0
even_sum = 0
For i = firstNum + 1 To secondNum - 1
If i Mod 2 = 0 Then
msg1 = msg1 & i & vbTab
even_sum = even_sum + i
Else
msg2 = msg2 & i & vbTab
odd_sum = odd_sum + i
End If
Next i
MsgBox "Even Numbers between " & firstNum & " and " & secondNum & ":" & vbTab & msg1 & vbNewLine
MsgBox "Sum of Even numbers: " & even_sum & vbNewLine
MsgBox "Odd Numbers between " & firstNum & " and " & secondNum & ":" & vbTab & msg2
MsgBox "Sum of Odd numbers: " & odd_sum & vbNewLine
Else
MsgBox "firstNum should be less than secondNum"
End If
End Sub

Snapshot of the code with explanation in comments:

Sub program () Dim firstNum, secondNum, i As Integer Declare firstNum, secondNum as integers firstNum = InputBox("Enter firstNum: ") 'prompt user to enter firstNum secondNum = InputBox ("Enter secondNum: ") 'prompt user to enter secondNum If firstNum <secondNum Then 'id condition to check firstNum less than secondNum 'odd_sum, even_sum is to store sum of odd numbers and even numbers respectively, initially their values are zero Dim odd_sum, even_sum As Integer ' odd_sum = 0 even_sum co 'below is for for loop to iterate between the numbers firstNum to secondNum For i = firstNum + 1 To secondNum - 1 "below is if condition to check even numbers If i Mod 2 = 0 Then 'append even number i on msgl msgl = msgl & i & vbTab 'add even number i to even_sum even_sum - even sum + i Else 'append odd number i on msg2 msg2 = msg2 & i & vbTab 'add odd number i to odd_sum odd_sum = odd_sum + i End If 'iterate i to next iteration Next i Display msgl which is the list of even numbers between firstNum and second um MsgBox "Even Numbers between & firstNum & " and " & secondNum & "." & vbTab & msgi & vbNewLine 'Display even_sum which is sum of even numbers between firstNum and secondNum MsgBox "Sum of Even numbers: " & even_sum & vbNewline Display msg2 which is the list of odd numebrs between firstNum and secondNum MsgBox "Odd Numbers between " & firstNum & " and " & secondNum & ":" & vbTab & msg2 Display odd_sum which is sum of odd numbers between firstNum and secondNum MsgBox "Sum of Odd numbers: " & odd_sum & vbNewLine Else MsgBox "firstNum must be less than secondNum" End If End Sub

Sample Output:

Microsoft Excel Х Enter firstNum: OK Cancel 1
  
Microsoft Excel х Enter secondNum: OK Cancel 15

Microsoft Excel Х 2 4 6 8 Even Numbers between 1 and 15: 10 12 14 OK

X Microsoft Excel Sum of Even numbers: 56 OK

Microsoft Excel x 3 5 7 9 Odd Numbers between 1 and 15: 11 13 OK

Microsoft Excel X Sum of Odd numbers: 48 OK

If you have any doubts feel free to ask me in comments,

Thank you, Have a nice day..!!