Private Sub Command1_Click()
Cls
For i = 10 To 100 Step 10
 Print i
Next i
End Sub

Private Sub Command2_Click()
Cls
p = 1
For i = 1 To 5
 a = InputBox("number")
 p = p * a
Next i
Print p

End Sub

Private Sub Command3_Click()
Cls
p = 1
For i = 1 To 10
 p = p * i
Next i
Print p

End Sub

Private Sub Command4_Click()
Cls
s = 0
For i = 1 To 100 Step 2
s = s + i
Next
Print s

End Sub

Private Sub Command5_Click()
Cls
s = 0
For i = 2 To 100 Step 2
s = s + i
Next
Print s
End Sub