有累加方法。多谢！！
楼ä¸,å¿è®°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
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
温馨提示：答案为网友推荐，仅供参考
第1个回答 2006-05-03
忘了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
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
第2个回答 2006-05-04
得用val(变量)接收，然后再加
