作业帮 > 综合 > 作业

实验名称:根据n的不同取值,分别计算从1到n的累加和或者n!实验要求:n要求为整数,利用InputBox()函数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/14 01:12:35
实验名称:根据n的不同取值,分别计算从1到n的累加和或者n!实验要求:n要求为整数,利用InputBox()函数
Sub shiyan()
Dim InputValue,ReturnValue As Integer
InputValue = InputBox("请输入一个自然数","实验",1)
If InputValue < 1 Or InputValue - Int(InputValue) 0 Then
MsgBox "错误:输入必须为自然数!" & Chr(10) & "程序终止!"
Exit Sub
End If
ReturnValue = InputValue * (InputValue + 1) / 2
MsgBox "从1到输入值N=" & InputValue & ":" & Chr(10) & "累加结果为:" & ReturnValue & Chr(10) & _
"阶乘结果为" & Evaluate("fact(" & InputValue & ")")
End Su