赞 orlando222 幼苗
共回答了18个问题采纳率：94.4% 举报
Private Sub Command1_Click()
Dim i As Integer
Dim s As Double
Do
i = i + 1
s = s + 1 / i
Loop Until 1 / i <= 0.01
Print s
End Su
Dim i As Integer
Dim s As Double
Do
i = i + 1
s = s + 1 / i
Loop Until 1 / i <= 0.01
Print s
End Su
1年前
2
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗