UC知道VB－－－
来源：百度知道 编辑：UC知道 时间：2024/05/31 07:36:31
为什么我运行这个没有反应 只是弹出一个窗口而已
Private Sub Form_Load()
n = InputBox("n=")
S = 1
C = 0
Do
T = (S + 1) / S + C
C = T
S = S + 1
Loop Until S - 1 = n
Print "T="; T
End
End Sub
Private Sub Form_Load()
n = InputBox("n=")
S = 1
C = 0
Do
T = (S + 1) / S + C
C = T
S = S + 1
Loop Until S - 1 = n
Print "T="; T
End
End Sub
InputBox("n=") 返回的是字符串，而S是数值型，所以你在比较S - 1 = n的时候是有问题的，所以需要用CInt函数将字符串转换为Integer型，修改后的程序为：
n = InputBox("n=")
S = 1
C = 0
Do
T = (S + 1) / S + C
C = T
S = S + 1
Loop Until S - 1 = CInt(n)
Print "T="; T
End
你这个程序好象很难满足你的条件，故程序一直在DO循环，无法跳出