Question

Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Long Dim Sum As Single

f1 As Single, f2 As Single
a = 1
b = 2
'c=3
For i = 1 To 10
f1 = b / a
'f2=c/b
f2 = (a + b) / b

List1.AddItem f1
List1.AddItem f2
Sum = Sum + f1 + f2
a = a + b
b = a + b
'c = a + b
Next i
Text1.Text = List1.ListCount
Text2.Text = Sum
Print a; b

End Sub
'为什么用c=a+b代替a+b就会出现溢出？？？

Answer 1

亲测，无错。。上图…

Answer 2

c定义的类型是什么？如果是integer就换long，single就换double，试试吧

追问

都试过了，没用，一头雾水啊

Answer 3

a

追问

我做的时候用a+b就是对的，怎么用c代替a+b就提示“溢出”？？