m=30
Private Sub Command1_Click()Dim n As Integer, m As Integerm = 0For n = 1 To 15 m = m + n Mod 5Next nMsgBox mEnd Sub
