爱问知识人 爱问教育 医院库

VB高手 帮我检查一下

搜索
我要提问
首页
电脑/网络
软件

VB高手 帮我检查一下

题目是：计算 S=1+1/2+1/4+1/7+1/11+1/16+……当第i项的值<10^-4是结束。

我运行时 总是输出为0.
帮忙检查一下！

Dim i, s, a, b As Single
s = 0
a = 1
b = 0
i = 1 / a
Do While i < 10 ^ (-4)
    a = a + b
    b = b + 1
    s = s + i
Loop

Print s

1***
回答
提交回答
好评回答
  • 2010-02-04 16:34:28 
    Sub 按钮1_单击()
Dim i, s, a, b As Single
s = 0
a = 1
b = 0
i = 1 / a
Do While i >= 0.0001
a = a + b
b = b + 1
s = s + i
i = 1 / a
Loop
MsgBox s
End Sub

    1***

    2010-02-04 16:34:28

    163 62 评论
    分享
    提交评论
展开更多答案

类似问题

换一换

  • 软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
问题大全
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0-9
主题大全
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0-9
关于我们 爱问协议 帮助中心

Copyright © 1996-2019 IASK Corporation, All Rights Reserved

返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选)：

放弃 确定报告