please help me!

Question

For x1=1 To 3
  For x2=1 To 3
    For x3=1 To 3
      x=Val(Str$(x1) & Str$(x2) & Str$(x3))
      Debug.Print x
    Next x3
  Next x2
Next x1

Answer 1

Private Sub Command1_Click()
  For i = 1 To 3
    For j = 1 To 3
      For k = 1 To 3
        Debug.Print i & j & k
      Next
    Next
  Next
End Sub

Answer 2

For i=100 To 300 Step 100
    For j=10 To 30 Step 10
        For k=1 to 3
            Result = i+j+k
            ……
        Next k
    Next j
Next i