Private Sub Command1_Click() Dim i As Integer, n As Integer, s As Integer n = ______ For i = n To 1 Step -1 s = s & _________ Next i Text2.Text = s Text3.Text = Len(s) End Sub