为什么你们都写的这么复杂呢？？？ Private Sub Command1_Click() sum=0 For i = 1 To 20 jie=1'不可省略，每算一次i！后，把jie复位为1 for j=1 to i jie=jie*j next j sum=sum+jie next i text1.text=str(sum) End Sub 简单明了，内循环算i！，外循环则把i！全部加起来。
Private Function generator(ByVal i As Integer) If i = 1 Then generator = 1: Exit Function generator = i * generator(i - 1) End Function Dim re As Double Dim seed As Integer seed = 1 re = 0 While (seed <= 20) re = re + generator(seed) seed = seed + 1 Wend seed 就是计算结果。
其实每个人自己觉得自己的算法很容易懂,但是对别人来说却太难了
以下代码或许有用：
Private sub form_click()
For i=1 to 20
For j=1 to i
s=s+i
Next j
y=y+s
Next i
End sub
没有用你发E_mail:junqing124@ 给我！
请用如下代码： Option Explicit Dim Sum As Double Dim N As Integer Dim i As Integer Dim j As Integer Private Sub Command1_Click() For j = 1 To Val(Text3) N = Val(Text1。
Text) If N 20 Then Text1。SelStart = 0 Text1。SelLength = Len(Text1。Text) End If For i = N To 1 Step -1 Sum = Sum + fact(i) Next i Text2 = Sum Text1 = Val(Text1) + 1 Next j Command1。
Enabled = False End Sub Private Function fact(N As Integer) As Double fact = 1 Do While N > 0 fact = fact * N N = N - 1 Loop End Function Private Sub Form_Load() Text1 = 1: Text2 = "": Text3 = "" End Sub 详细工程文件参阅对“有关计算sum=1! 2! 3! …… n! 的问题？”的回答的上传附件网址附后： 。
答：张国栋 77 分 （吉） 张家栋 90 分 （吉） 张家林 72 分 （吉） 张浩森 77 分 （吉） 张瑞栋 73 分 （吉） 张桂林 72 分 （吉） 张玉...详情>>
