Question

vb题，求解答

5. 计算
当第i项的值<10-4时结束

提示：　　①本题的关键是找规律写通项。本题规律为：第i项的分母是前一项的分母加i，即分母通项为：Ti=Ti-1+i。　　②因为事先不知循环次数，应使用Do While循环结构；当然也可利用For循环结构，设置循环的终值为一个较大的值，当满足精度后退出循环。运行结果如图2.4.5所示。





Answer 1

要求的程序已经完成，请采纳：

Private Sub Command1_Click()

  t = 1: s = 0: i = 0

  Do While t <= 100000

    t = t + i

    s = s + 1 / t

    i = i + 1

  Loop

  Print "Do WHile结构"; s, i; "项"

End Sub

Private Sub Command2_Click()

  t = 1: s = 0

  For i = 1 To 10000

    s = s + 1 / t

    If t > 100000 Then Exit For

    t = t + i

  Next i

  Print "For 结构"; s, , i; "项"

End Sub