分别用FOR和DO循环语句求1!+2!+···+n!的值

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/04/30 10:14:58

分别用FOR和DO循环语句求1!+2!+···+n!的值
1、使用Form_Click()事件过程；
2、利用InputBox函数输入n的值；
3、利用Msgbox过程输出结果.

Private Sub Form_Click()
Dim n As Long,m,k,j As Long,i As Long
On Error GoTo err
n = InputBox("请输入一个整数：")
m = 0
For j = 1 To n
k = 1
For i = 1 To j
k = k * i
Next
m = m + k
Next
MsgBox m
err:
End Sub
Private Sub Form_Click()
Dim n As Long,m,k,j As Long,i As Long
On Error GoTo err
n = InputBox("请输入一个整数：")
m = 0
Do Until n = 0
k = 1
i = n
Do Until i = 0
k = k * i
i = i - 1
Loop
m = m + k
n = n - 1
Loop
MsgBox m
err:
End Su

分别用FOR和DO循环语句求1!+2!+···+n!的值 2、分别用三种循环语句(while语句、do-while语句、for语句),实现求1～100的累加和 1编程求1到n中能被3或7整除的数之和.分别用for循环语句和while循环语句完成本题. c语言编程求1到n中能被3或7整除的数之和.分别用for循环语句和while循环语句完成本题. 编程求1到n中能被3或7整除的数之和.分别用for循环语句和while循环语句完成求1-100的累加和分别用while,do...while和for这两种循环语句实现 1.分别用while for do- while循环语句编程求从1加到1000的和. 分别用while循环和for循环语句编写程序计算1到100的和分别用三种循环语句（while语句、do-while语句、for语句）各编写一个程序实现求1 20的累乘,即：用Do...Loop循环语句,求m和n的最大公约数,以下是程序代码, VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值分别用 while,do while 和for 循环计算1+2+……+100的和.