填空题

下列过程的功能是：用来计算并输出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 【12】
SumD = s
End Function
Private Sub Form Click()
sum1=SumD(100)
Print "sum1="； sum1
End Sub

【参考答案】

i＞＝n

<上一题目录下一题>

热门试题

填空题

响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做【6】。

填空题

要求打开随机文件“c: Example.txt”文件，文件号为1，实现的语句是【8】。

相关试题