(资料图片仅供参考)
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。
相信通过vb小程序代码这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。
本文由用户上传，如有侵权请联系删除！
