[填空题] 下列过程的功能是:用来计算并输出S = 1+1/2+1/3+…+1/100的值。请完善程序。
Function SumF(n As Integer)As Single
s = 0
For i = 1 To n
s = ______
Next i
SumF = s
End Function
Private Sub Form_Click( )
Sum1 = SumF(100)
Print
Print "sum1 = "; sum1
End Sub
参考答案:
s+1/i问题解析:
解析无

![[填空题] 下列过程的功能是:用来计算并输出S = 1+1/2+1/3+…+1/100的值。请完善程序。 Function SumF(n As Integer)As Single s = 0 F [填空题] 下列过程的功能是:用来计算并输出S = 1+1/2+1/3+…+1/100的值。请完善程序。 Function SumF(n As Integer)As Single s = 0 F](http://www.mshxw.com/aiimages/31/254003.png)
