Question

VisualBasic programm You were asked to write a program that identifies positive and negative numbers which the user enters. Then calculate the average of negative and positive numbers separately. You need to follow the steps below; a. Ask the user to enter the number of data which she/he likes to enter. b. Declare necessary variables as ARRAYS. c. Use a For Next loop to get the data from the user d. Use a decision structure to decide whether the number is positive (>=0) or negative (<0) e. Take the average of negative numbers f. Take the average of positive numbers g. Print the following to worksheet cells i. All the numbers entered by the user ii. Average of negative numbers iii. Average of positive numbers

Answer 1

Program:

Private Sub CommandButton1_Click()
Dim ARRAYS() As Integer
Dim num, i, countPos, countNeg, totalP, totalN As Integer
Dim avgNeg, avgPos As Double
countNeg = 0
countPos = 0
totalP = 0
totalN = 0

num = CInt(InputBox("How many numbers do you want in the array: "))
ReDim ARRAYS(num)

For i = 0 To num - 1
ARRAYS(i) = CInt(InputBox("Enter a number: "))
Next i

For i = 0 To num - 1
Cells(i + 1, 1) = ARRAYS(i)
Next i

For i = 0 To num - 1
If (ARRAYS(i) >= 0) Then
totalP = totalP + ARRAYS(i)
countPos = countPos + 1
End If
If (ARRAYS(i) < 0) Then
totalN = totalN + ARRAYS(i)
countNeg = countNeg + 1
End If
Next i

avgPos = totalP / countPos

If (countNeg = 0) Then
MsgBox ("There are no negative numbers!!")
Else
avgNeg = totalN / countNeg
End If

Cells(num + 2, 1) = "Average of Positive numbers: " & avgPos
Cells(num + 4, 1) = "Average of Negative numbers: " & avgNeg

End Sub

Output:

Microsoft Visual Basic for Applications - Bookl running - [ Userform (Code)] 0 File Edit View Insert Format Debug Run Tools Add-ins Window Help Bookl - Microsoft Excel Product Activation Failed) File Home Insert Page Layout Formulas Data Review View Developer Project - VBAProject X CommandButton1 Visual Macros Basic Source Record Macro Use Relative References Add-ins COM Macro Security Add-ins Code Add-ins R 35 Properties View Code Insert Design Mode Run Dialog Controls Map Properties Import Expansion Packs Export Refresh Data XML Document Panel Modify Al Private Sub CommandButton1_Click() Dim ARRAYS () As Integer Dim num, i, count Pos, countNes, totale, totalN As Integer Dim avgNeg, avg Pos As Double count Neg-O count Pos 0 totalP - 0 totalN-O E F G H 1 к L M EVBAProject (Boo Microsoft Excel Sheet1 (Sh Sheet2 (sh Sheet3 (Sh This Workbo Forms Userformi N num - Cint(InputBox("How many numbers do you want in the array: ")) ReDim ARRAYS (num) For 1 - 0 To num - 1 ARRAYS (1) - CInt (InputBox("Enter a number: ")) Next 1 For 1-O TO num - 1 Cells(i + l, l) - ARRAYS (1) Next UserForm1 Properties X Alphabet Categorized For 1 - 0 To num - 1 If (ARRAYS (1) > 0) Then totalP - totalP + ARRAYS (1) count Pos - count Pos + 1 End IF IE (ARRAYS (1) < 0) Then totalN- totalN - ARRAYS (1) count Neg - count Neg + 1 End ID Next 1 Accept and Display Result А B С D 1 351 2 68 3 95 4 -45 5 85 6 7 9 8 -45 9 -53 10 -67 11 12 Average of Positive numbers: 58.4 13 14 Average of Negative numbers: -48.8 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 avgPos - totale / count Pos If (count Neg - 0) Then MsgBox ("There are no negative numbers!!") Else avgNeg- totalN/ count Neg End If Cells(num + 2, 1) - "Average of Positive numbers: - avgFos Cells (num + 4, 1) - "Average of Negative numbers: 6 av Nec End Sub Sheet2 Sheet3 a HMSheet1 Ready DO 100% Type here to search O RI 2:02 PM 6/27/2020