填空题

下列过程的功能是：用来计算并输出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

点击查看答案&解析