vbs小程序代码_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。
本文到此分享完毕，希望对大家有所帮助。
标签：
