问题描述:
[填空]
下列过程的功能是:用来计算并输出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
参考答案:查看无
答案解析:无
☆收藏
答案解析:无
☆收藏
- 我要回答: 网友(13.59.80.251)
- 热门题目: 1.应用程序的界面一般由菜、表、 2.消除SQLSELECT查询结 3.为了使有差错的物理线路变成无