Private Sub Command1_Click() Dim m As Integer,n As Integer,s,result 'm為分母變量,n為位置變量,s為數(shù)值變量,result為和的變量 m = 1:n = 0:s = 1 / m:result = 0 + 1 / 1 Do While s >= 10 ^ -4 n = n + 1 m = m + n s = 1 / m result = result + s Loop MsgBox "S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+… " & vbCrLf & "運算結(jié)果為：" & result,vbOKOnly,"運算結(jié)果" End Sub