Question

vb程序题 用do循环语句编程

求大神指点

Answer 1

界面上三个控件，一个文本框，用来输入x的值；
一个标签，用来输出结算结果；
一个按钮，用来启动计算。

计算首先查证输出的x是不是合法（x>0），输入的内容前部无合法数值，则视为0
用k来表示项数，用t来表示项的结果，用s来表示累加的函数值
全部代码及效果如下（已验证，没有问题）：

Private Sub Command1_Click()
    x = Val(Text1)
    If x <= 0 Then
        MsgBox "输入的X值不合法，x必须是正数。"
        Exit Sub
    End If
    k = 1
    t = (x + 1) / x
    s = t
    Do
        k = k + 1
        t = t * (x + k) / x / (x + k + k - 1)
        s = s + t
    Loop Until t < 0.000001
    Label1 = "共计算了" & k & "项"
    Label1 = Label1 & vbCrLf & "截止误差为" & t
    Label1 = Label1 & vbCrLf & "最终计算结果为" & s
End Sub