大家好,今天小六子来为大家解答以下的问题，关于vb编写的实用小程序，vb小程序代码这个很多人还不知道，现在让我们一起来看看吧！

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。

本文分享完毕，希望对你有所帮助。