UC知道VB程序调试
来源：百度知道 编辑：UC知道 时间：2024/09/18 04:20:52
Sub jc(n, s)
k = 1
For i = 1 To n
k = k * i
Next i
Print s
End Sub
Private Sub Command1_Click()
jc 8, d
jc 5, e
jc 3, f
Print c = d / e / f
End Sub
为什么程序运行后会出现“溢出”错误呢，谢谢！
k = 1
For i = 1 To n
k = k * i
Next i
Print s
End Sub
Private Sub Command1_Click()
jc 8, d
jc 5, e
jc 3, f
Print c = d / e / f
End Sub
为什么程序运行后会出现“溢出”错误呢，谢谢！
Print c = d / e / f
这一行的e、f没有声明就参与计算，是默认为数值0的，自然要溢出了
你应该在jc子过程的
Next i
Print s
之间插入s=k
另外，Print c = d / e / f改成Print d / e / f
整型只支持32767，8的阶乘明显溢出。