Question

vb高手帮忙：在文本框中输入n值，单击command求1到n的之间能被17整除的数阶乘的和，结果在文本框中的显示

帮忙编下程序，继续，感激不尽

Answer 1

阶乘的和什么意思？是不是说，从1到n找出能被17整除的数，然后把这些数乘起来？
比如：
1到35
其中能被17整除的就是17,34
结果就是17*34？

追问

是17的阶乘和34的阶乘的和

追答

您举个例子好么。。我的数学不好。。请谅解。。。

追问

2的阶乘是1乘2

追答

Private Sub Command1_Click()
Dim Li_i As Long,lNum as Long
lNum = 0
For Li_i = 1 To Clng(Text1.Text)
If Li_i MOD 17 = 0 Then
lNum = lNum + jiecheng(Li_i)
End If
Next
End Sub

Private Function jiecheng(Byval Num as Long) As Long
jiecheng =1
Dim Li_i As Long
For Li_i =1 To Num
jiecheng=jiecheng * Li_i
Next
End Function