懂VB的好心人帮我做到题
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/07/01 10:50:21
懂VB的好心人帮我做到题
二分微分:“一尺之棰,日取其半,万世不竭”是我国古书中最早体现微积分思想的一段记载.模拟此意的数学表达式为:
对以下问题画出流程图,写出代码:
①求前10项的和 (用计数循环方式解题)
②多少项后累加和s超过0.99999 (用当型循环和直到型循环两种不同方式分别解题)
二分微分:“一尺之棰,日取其半,万世不竭”是我国古书中最早体现微积分思想的一段记载.模拟此意的数学表达式为:
对以下问题画出流程图,写出代码:
①求前10项的和 (用计数循环方式解题)
②多少项后累加和s超过0.99999 (用当型循环和直到型循环两种不同方式分别解题)
![懂VB的好心人帮我做到题](/uploads/image/z/15276220-52-0.jpg?t=%E6%87%82VB%E7%9A%84%E5%A5%BD%E5%BF%83%E4%BA%BA%E5%B8%AE%E6%88%91%E5%81%9A%E5%88%B0%E9%A2%98)
1
Private Sub Form_Click()
Dim i, s
For i = 1 To 10
s = s + Val(InputBox("num="))
Next i
Print s
End Sub
2
Private Sub Form_Click()
Dim i, s
s = 0
Do While (s 0.99999)
Print s
End Su
Private Sub Form_Click()
Dim i, s
For i = 1 To 10
s = s + Val(InputBox("num="))
Next i
Print s
End Sub
2
Private Sub Form_Click()
Dim i, s
s = 0
Do While (s 0.99999)
Print s
End Su