Dim t1, t2, t3 As Single
Dim i As Integer
Dim t As Single = 1 / 3
For i = 1 To 10
t2 = t3 = t1 = i
Do
If (Math.Abs(t3) >= 0.00001) Then
t1 = t2
t2 = 2 * t * t1 + i / (3 * t1 * t1)
t3 = t2 - t1
Else
Exit Do
End If
Loop

TextBox1.Text &= i & " " & Format(t2, "0.00000") & " " & Format(i ^ t, ".00000") & vbCrLf

Next

大家帮忙看一下

谢谢啦
还真的是，都怪用C&C++用多啦，我自从学VB以后就觉得不好使，感觉没有C&C++灵活，不能随心所欲的编程。