VB语句改错

晕 你弄个无限循环，加上一条 i=i+1

Private Sub Cmd1_Click ()
Dim x As Integer, y As Integer, s As Integer, i As Integer
Dim t As Single
i = 0
x = 1
y = 2
Do While i <= 10
s = s + y / x
t = y
y = x + y
x = t
i=i+1
Loop
Print s
End Sub

哈哈，死定了，改不出来，太多村了。
首先t没有值 系统给的就是0
那么在循环里 x=t x就成0拉，下次循环 你叫y/0 错了
。
循环还是死循环，i 永远是 0 就永远循环去吧！

i没有在循环中自加,肯定死循环溢出啊
看这个

Private Sub Cmd1_Click()
Dim x, y, s, i, t

i = 0
x = 1
y = 2
t = 1#
s = 0
Do While i <= 10
s = s + y / x
t = y
y = x + y
x = t
i = i + 1
Loop
Print s
End Sub