[填空题] 下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。 Function SumF(n As Integer)As Singles = 0For i=1

[填空题] 下列过程的功能是用来计算并输出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