Return a single message box within a loop.

**aappmm** · 10-19-2012, 08:35 PM

Hi! I need to be make a multiplication table from a user input variable. I am using a for loop and have that part down; however, I need the multiplication table to be output in only one message box. This is the code I have so far....

Sub Multiplication_table()
Dim x As Integer
Dim answer As Double

x = InputBox("Please enter an integer to be used in a multiplication table.")

    For i = 1 To 10
    answer = x * i
    MsgBox ("" & x & " * " & i & " = " & answer)
    Next i
End Sub

Could someone please shed some light on how to stop from looping a new message box each time and only return one involving the entire table?
For example I need to return
1*2=2
2*2=4
3*2=6
4*2=8
5*2=10
6*2=12
...and so on for x=2 THANKS

**g8r777** · 10-19-2012, 09:30 PM

Try this code:

Sub Multiplication_table()
Dim x As Integer
Dim answer As Double
Dim asWs() As Variant
Dim nWS As Integer

x = InputBox("Please enter an integer to be used in a multiplication table.")

    For i = 1 To 10
          answer = x * i
 
    
    nWS = nWS + 1
    ReDim Preserve asWs(1 To nWS)
    asWs(nWS) = "" & x & " * " & i & " = " & answer
    
    Next i
    
For i = LBound(asWs) To UBound(asWs)
    msg = msg & asWs(i) & vbNewLine
Next i

MsgBox "Multiplication Table for the number " & x & vbNewLine & msg

End Sub

I added each of your looping answers to an array and then displayed that array in the message box. See if that works.

**abousetta** · 10-26-2012, 12:48 PM

You can also accomplish it with just text manipulation without the use of arrays:

Sub Multiplication_table()
  Dim i%, x%, answer$
    x = InputBox("Please enter an integer to be used in a multiplication table.")
      For i = 1 To 10: answer = answer & vbCrLf & "" & x & " * " & i & " = " & x * i: Next
  MsgBox "Multiplication Table for the number " & x & vbCrLf & answer
End Sub