VB代码显示溢出怎么解决？

2025-12-04 02:16:09

推荐回答（2个）

回答1：

Function fac(a As Integer) As Integer

这里你定义了函数返回值的类型为integer，它的数值范围是-32768--32767，输入大于等于19的数就会超出范围，所以会显示溢出，建议用long类型，如果还不够用的话就要用自定义类型了。

有问题请追问，满意请采纳！

回答2：

Function fac(a As Integer) As Integer Dim i As Integer For i = 1 To a t = tfac + i ^ 3 Next i
t= End Function Private Sub Command1_Click() Dim n As Integer, x As Long n = Val(Text1.Text) x = fac(n) Text2.Text = Str(x) End Sub