第一问答网»论坛 › 中问网 › 问答 › 编写计算 n！+ (n+1)！+(n+2)！+ …… + (n+m)! 的程序 ...

编写计算 n！+ (n+1)！+(n+2)！+ …… + (n+m)! 的程序，界面自己设定。

11 |

2 | 2010-11-5 04:42:02 | 显示全部楼层 |阅读模式

Private Sub Command1_Click()n = InputBox("Input N:", "Input")m = InputBox("Input M:", "Input")If IsNumeric(n) And IsNumeric(m) = False Then
MsgBox "请输入正确的内容"Else
k = 0
For i = 0 To m
s = 1
For j = 1 To n + i
s = s * j
Next j
k = k + s
Next i
MsgBox

使用道具举报