灵鹊做题网VB 初级编程 阶乘&整除求和问题!
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/27 14:18:08
VB 初级编程 阶乘&整除求和问题!
1..阶乘：从1到任意数的阶乘
2.1到500000这个范围内,当能被7整除的数的求和小于等于5000时（就是最接近5000时）,求出这个求和中最后一个被7整除的数（就是整个求和中最大的那个）.
1..阶乘：从1到任意数的阶乘
2.1到500000这个范围内,当能被7整除的数的求和小于等于5000时（就是最接近5000时）,求出这个求和中最后一个被7整除的数（就是整个求和中最大的那个）.
1.阶乘函数：
Function Factorial(n As Long) As Long
If n = 1 Then Factorial = 1 Else Factorial = n * Factorial(n - 1)
End Function
2. 答案是259
Private Sub Command1_Click()
Dim i, sum, i1
For i = 1 To 500000
If i Mod 7 = 0 Then
sum = sum + i
If sum > 5000 Then Print i1: Exit Sub
i1 = i
End If
Next
End Su
Function Factorial(n As Long) As Long
If n = 1 Then Factorial = 1 Else Factorial = n * Factorial(n - 1)
End Function
2. 答案是259
Private Sub Command1_Click()
Dim i, sum, i1
For i = 1 To 500000
If i Mod 7 = 0 Then
sum = sum + i
If sum > 5000 Then Print i1: Exit Sub
i1 = i
End If
Next
End Su