填空题

下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。
Function SumF(n As Integer)As Single
s = 0
For i=1 To n
s= 【12】
Next i
SumF=s
End Function
Private Sub Form_Click()
Sum1=SumF(100)
Print
Print"sum1="； sum1
End Sub

点击查看答案&解析