vb编程的循环语句
下面是我求和的vb编程，在第i项小于10^（4）时的和OptionExplicitDimsAsDouble,nAsDouble,iAsIntegerPrivateSubC...
下面是我求和的vb编程，在第i项小于10^（4）时的和
Option Explicit
Dim s As Double, n As Double, i As Integer
Private Sub Command1_Click()
s = 0
n = 1
For i = 1 To 10 ^ (-4.1)
n = n + (i - 1): s = s + (1 / n)
Next i
Print n
Print s
End Sub
可惜，最终的结果是1.0两个值，貌似没有进入循环，请问是错在哪里？谢谢 展开
Option Explicit
Dim s As Double, n As Double, i As Integer
Private Sub Command1_Click()
s = 0
n = 1
For i = 1 To 10 ^ (-4.1)
n = n + (i - 1): s = s + (1 / n)
Next i
Print n
Print s
End Sub
可惜，最终的结果是1.0两个值，貌似没有进入循环，请问是错在哪里？谢谢 展开
展开全部
4.1前面的-应该是你写错了吧？如果有-的话应该什么都出不来。。。
Dim s As Double, n As Double, i As Integer
Private Sub Command1_Click()
s = 0
n = 1
For i = 1 To 10 ^ (2)
n = n + (i - 1): s = s + (1 / n)
Print n
Print s
Next i
End Sub
这是正确的，我就不多说了。要给旗子哦。。先谢谢了。。。。
Dim s As Double, n As Double, i As Integer
Private Sub Command1_Click()
s = 0
n = 1
For i = 1 To 10 ^ (2)
n = n + (i - 1): s = s + (1 / n)
Print n
Print s
Next i
End Sub
这是正确的，我就不多说了。要给旗子哦。。先谢谢了。。。。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
