问个有关问题求和为1000的连续整数如何用VB求。

问个问题求和为1000的连续整数怎么用VB求。。。
如题

[解决办法]

探讨

引用:
唉……

VB code
Option Explicit

Private Sub Form_Load()
Dim i As Integer, StartI As Integer, SumI As Long
StartI = Val(InputBox("请输入开始数", , "100"))
For i = 0 To 999
SumI = SumI ……
……

[解决办法]

电子计算机的计算，常常不是像算术那样求解。

因为它快，所以很多为它设计的算法就是尝试。例如求方根等。

当然，为了快，需要排除不可能的条件。

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim sum As Integer, result As Integer

result = 1000

For i = 1 To result \ 2 - 1
sum = 0
For j = i To result \ 2
sum = sum + j
If sum > 1000 Then Exit For
If sum = 1000 Then
Debug.Print "自然数 " & i; " 到 " & j & "的和为:" & result
End If
Next j
Next i
Debug.Print "完毕"
End Sub

自然数 28 到 52的和为:1000
自然数 55 到 70的和为:1000
自然数 198 到 202的和为:1000
完毕

查看更多 下一篇