Question

S=1-1/2+1/3-1/4+……+（-1）k*1/k求s的近似值 直到最后一项的绝对值小于10的-5次为止

用VB Do Loop 语句

Answer 1

Private Sub Command1_Click()
Dim K, Sum, ak As Double
K = 1
Sum = 0
ak = 1 '数列第一项
Do Until Abs(ak) < 10 ^ (-5)
Sum = Sum + ak
K = K + 1
ak = (-1) ^ (K + 1) / K '通项公式
Loop
MsgBox Sum
End Sub

Answer 2

do
if 绝对值小于10的-5次 then exit
s=s+1
……
loop