(相关资料图)

1、Private Sub Command1_Click()Dim N As LongDim i As LongDim j As LongDim s As LongDim b As LongN = Val(Text1.Text)For i = 1 To Nb = 1 For j = 1 To i b = b * j Next j s = s + b / (j - 1)Next iText2.Text = sEnd Sub。

本文到此分享完毕，希望对大家有所帮助。

关键词：