[填空題] 下列過(guò)程的功能是：用來(lái)計(jì)算并輸出S=1+1/2+1/3+…+1/100的值，請(qǐng)完善下列程序。

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解析：[分析]： 從公式可以看出，第一項(xiàng)為1 /1，第二項(xiàng)為1/2，第三項(xiàng)為1/3，…，第 n項(xiàng)為1/n。也就是說(shuō)，分母每次增加1，而分子始終為1，為求前n項(xiàng)之和，在Do-Loop循環(huán)中應(yīng)該用變量i來(lái)控制循環(huán)，即當(dāng)i大于等于n時(shí)就結(jié)束循環(huán)。