91 视频 备用 网址:急!!!VB程序代码问题? 请问:求数列的前20项的和。如;1/2,2/3,3/5,5/8,8/13,13/21 ……
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/11 16:37:44
有累加方法。多谢!!
楼上,忘记VB不支持象C一样的加法吗?
For i = 1 To 20
sum += a/b '??????会出错
b = a + b
a = b - a
Next i
写成:
Dim a As Integer
Dim b As Integer
Dim i As Integer
Dim sum As Single
a = 1
b = 2
sum = 0
For i = 1 To 20
sum =sum+ a/b
b = a + b
a = b - a
Next
调试过,平台WinXP SP2 VB6.0
忘了VB怎么写的啦,大概这样吧
Dim a As Integer
Dim b As Integer
Dim i As Integer
Dim sum As Double
a = 1
b = 2
sum = 0
For i = 1 To 20
sum += a/b
b = a + b
a = b - a
Next i
得用val(变量)接收,然后再加