题目

设计一个程序框图求S=1+1/2+1/3+1/4+……+1/n之值,并写出程序

提问时间：2021-04-01

答案

  n = Val(InputBox("请输入n=","输入"))
  S = 0 :i = 1
  Do
    S = S + 1 / i
    If Not (i < n) Then Exit Do
    i = i + 1
  Loop
  MsgBox S,vbInformation,"输出"