当前位置:百科知识 > 计算机二级

问题描述:

[填空] 下列过程的功能是:用来计算并输出S=1+1/2+1/3+…+1/100的值,请完善下列程序。 Furiction SumD (n As Integer)As Singles = 1i = 1 Do i = i + 1 s = s + 1 / iLoop Until [12] SumD = s End Function Private Sub Form Click()sum1=SumD()Print "sum1="; sum1 End Sub
参考答案:查看
答案解析:
☆收藏

随机题目