Private Sub Command2_Click()Dim i As IntegerDim x As IntegerDim a As Integer For i = 0 To 20 a = a + 1 x = Int(Rnd * 100) Print x; If a = 5 Then Print a = 0 End If Next iEnd Sub