Question

VB里面循环语句怎么用 下面的公式怎么编辑？新手求指导啊

判定条件是





Answer 1

没有具体数据，无法测试，但主体可用如下方法：
Dim p1 As Double ‘用于储存 Φi-1 的值
Dim p2 As Double ’用于储存 Φi-2 的值
Private Sub Form_Click()
Dim i As Integer
Dim a As Double, b As Double, e As Double
Dim x As Double
a = ? '？改为 α 的初始值
b = ? '？改为 β的初始值
e = ? '？改为 e 的值

i = 1
p2 = 1 ‘Φ0
p1 = ？ '? 改为 Φ1 的公式
Do While 1
i = i + 1
x = ? '？改为你的通项公式，求 Φi 的值

'你要处理的事情
'......

'判断判定条件
If Abs((x - p) / x) <= 10 ^ (-5) Then '如果 < 10^(-5) 停止循环
Exit Do
Else '否则用 p2（Φi-2）储存 p1（Φi-1）的值，
’用 p1（Φi-1） 储存 x（Φi） 的值，用于下一次判断
p2 = p1
p1 = x
End If
Loop
End Sub