填空题
以下程序用于计算“1+1/3+1/5+…+1/(2n+1)”,直至“1/(2n+1)”小于10-4。阅读下面程序,请在【6】和【7】处填上正确内容。 Private Sub Command1_Click() Sum = h: n = i do n={{U}} 【6】 {{/U}} term =1/ n Sum = Sum + term if term <0.0001 then{{U}} 【7】 {{/U}} Loop Text1.Text = n Text2 *Text = Sum End Sub
1、
【正确答案】
1、[6]n+2
【答案解析】[7]exit do
[解析] 该累加问题没有给出需要累加的数据项的数目,不能用for循环。do... Loop为无条件循环,在do循环中由累加项term的值作为退出循环的条件。