Question

Must be written in VBA

Create a program called moremath to request a whole number, n, from 1 to 30, and one of the letters S or P. Then, depending upon whether S or P was selected, calculate the sum or product of the numbers from 1 to n.

Answer 1

Dim n As Integer

Private Sub moremath_Click()
    Dim choices(2) As String
    Dim i As Integer
    Dim index As Integer
  
    choices(1) = "S"
    choices(2) = "P"
    'Generating whole number
    n = Int((30 - 1 + 1) * Rnd + 1)
    Cells(2, 1) = n
    'Generating index value between 1 and 2
    index = Int((2 - 1 + 1) * Rnd + 1)
    'Selecting choice based on generated index
    choice = choices(index)
    Cells(2, 2) = choice

    If choice = "S" Then 'If choice is s then calls function sum()
        Call sum
    ElseIf choice = "P" Then 'If choice is p then calls function product()
        Call product
    End If
End Sub

Private Function sum()
    Dim i As Integer
    Dim s As Double
      
    'Calculating sum and then displaying in message box
    s = 0
    For i = 1 To n
        s = s + i
    Next i
    Cells(2, 3) = s
  
End Function

Private Function product()
    Dim i As Integer
    Dim p As Double
      
    'Calculating product and then displaying in message box
    p = 1
    For i = 1 To n
        p = p * i
    Next i
    Cells(2, 3) = p
End Function

Link for the file: https://drive.google.com/open?id=0B-wCyuB1jOs7OHUzdE1WdC1pWVU

Output:

1 Whole Number ChoiceResult 16 P 2.09228E+13 4 fs

1 Whole Number ChoiceResult 15 S 120 4 6 0