VB编程 数学问题

1.求P的值:
P=1!+3!+5!+7!+9!
Private Sub Form_Click()
Sum = 0
For a = 1 To 9 Step 2
b = 1
For c = 1 To a
b = b * a
Next c
Sum = Sum + b
Next a
Print Sum
End Sub

运算结果是
388247185

2.输出1到100自然数中被7整除的数据的个数及他们的和.

Private Sub Form_Click()
For a = 1 To 100
If a Mod 7 = 0 Then b = b + 1: Sum = Sum + a
Next a
Print b, Sum
End Sub

Private Sub Form_Load()
Sum = 0
b = 0
End Sub

运算结果是14 735

第一个真不会
第二个
整除啊而且还是自然数,只能是1和7了,因为如果一个被除数小于除数,那么所得的数不可能是整数,也就不对你的题目---整除,所以7以上的都不可能,而1到7中又只能是自然数,也就是只有1 2 3 4 5 6 7这几个了,由于7是一个奇数,所以偶数是不能被它所整除的,淘汰2 4 6,而7又不是3的倍数,也不能整除3,而7不是结尾为0和5的数所以不能整除5(例如5可以整除5,10可以整除5,15可以整除5....)淘汰了5,只剩下1和7了,而任何数除以1都得到原来的数,所以一定能整除,而7是这个数的本身,一个数除以它本身会得到1,所以只剩下1和7能整除了

'1.求P的值:
Private Function jiecheng(ByVal n As Long) As Long
Dim i As Long
Dim s As Long
s = 1
For i = 1 To n
s