Question

vb程序出现 实时错误 6 什么意思

Sub jiecheng(n)
Dim i As Integer
Dim s As Integer
s = 1
i = 1
For i = 1 To n
s = s * i -------------此行提示实时错误 6
Next i

Text1.Text = s

End Sub

Private Sub Command1_Click()
Call jiecheng(5)

End Sub

Private Sub Command2_Click()
Call jiecheng(9)
End Sub

Private Sub Command3_Click()
Call jiecheng(12)
End Sub

Answer 1

运算溢出,
计算阶乘,要定义为 双精度型,double

Sub jiecheng(n) as double
Dim i As Integer
Dim s As double
s = 1
For i = 1 To n
s = s * i
Next i

jiecheng = s

End Sub

Answer 2

整数型(Integer)最大到65535,而Command2_Click()和Command3_Click()两个事件的运算结果超出最大值了.
建议变量定义为单精度型
Dim i As Single
Dim s As Single

Answer 3

Sub jiecheng(n As Integer)
Dim i As Integer
Dim s As Double
s = 1
i = 1
For i = 1 To n
s = s * i
Next i
Text1.Text = s
End Sub

Private Sub Command1_Click()
Call jiecheng(5)

End Sub

Private Sub Command2_Click()
Call jiecheng(9)
End Sub

Private Sub Command3_Click()
Call jiecheng(12)
End Sub

9的阶乘是：362880
12的阶乘是：479001600
它们都超出了Integer（整型变量的范围）
所以提示实时错误 6（溢出）

所以可以定义s变量为double（双精度类型）

Answer 4

我要回答的和yfv2000一样。你可以
Dim i As Integer
Dim s As Long

数值会大一些

Answer 5

n的值从哪来。