编写两种程序，求1+1/2+1/3...+1/100的值?
1个回答
展开全部
Rem 语言：Visual Basic 6.0Sub Main() '开始 S = 0 : i = 1 Do S = S + 1 / i If Not (i < 100) Then Exit Do i = i + 1 Loop MsgBox S, vbInformation, "输出"End Sub '结束
运行结果：
运行结果：
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
