_请大家帮帮忙，用vba建立一个标准过程名称为sumtest,用来求10的阶乘
答案:2 悬赏:20 手机版
解决时间 2021-04-08 00:20
- 提问者网友：那叫心脏的地方装的都是你
- 2021-04-07 09:04
_请大家帮帮忙，用vba建立一个标准过程名称为sumtest,用来求10的阶乘
最佳答案
- 五星知识达人网友：青灯有味
- 2021-04-07 09:50
你的问题里的声明变量类型是错误的，s的变量类型不能为integer，因为integer的最大值只到32767，阶乘结果值为3628800,超过了integer的范围，会造成计算“溢出”所以要更改s的变量类型为long。
正确的代码如下
Sub sumtest()
Dim i As Byte, s As Long
s = 1
For i = 1 To 10 Step 1
s = s * i
Next i
Debug.Print s
End Sub
正确的代码如下
Sub sumtest()
Dim i As Byte, s As Long
s = 1
For i = 1 To 10 Step 1
s = s * i
Next i
Debug.Print s
End Sub
全部回答
- 1楼网友：十年萤火照君眠
- 2021-04-07 11:25
Sub sumtest()
Dim i, s
s = 1
For i = 1 To 10 Step 1
s = s * i
Next i
MsgBox s
End Sub
Dim i, s
s = 1
For i = 1 To 10 Step 1
s = s * i
Next i
MsgBox s
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯