Private Sub Command1_Click()Dim a As Integer, I As Integer, Sum As Longa = Val(Text1.Text)For I = 1 To a
Sum = Sum + fact(I)NextText2.Text = SumEnd SubPrivate Function fact(X As Integer)Dim K As Integer, S As LongS = 1For K = 1 To X S = S * KNextfact = SEnd Function...