2. 计算机
  3. 下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。 Furiction SumD (n As Integer)As Single s = 1 i = 1 Do

下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。 Furiction SumD (n As Integer)As Single s = 1 i = 1 Do

admin2009-02-13  51
问题 下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。
   Furiction  SumD  (n  As  Integer)As  Single
      s = 1
      i = 1
      Do
         i = i + 1
         s = s + 1 / i
      Loop  Until【  】
      SumD = s
   End  Function
   Private  Sub  Form  Click()
      sum1=SumD(100)
      Print "sum1="；  sum1
   End Sub
选项
答案　i＞＝n
解析 从公式可以看出，第一项为1 /1，第二项为1/2，第三项为1/3，…，第 n项为1/n。也就是说，分母每次增加1，而分子始终为1，为求前n项之和，在Do-Loop循环中应该用变量i来控制循环，即当i大于等于n时就结束循环。
转载请注明原文地址:https://www.kaotiyun.com/show/Ns1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)