第1个回答 2008-07-07
共7个,不会找到第八个
(1)2002=13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28+29+30+31+32+33+34+35+36+37+38+39+40+41+42+43+44+45+46+47+48+49+50+51+52+53+54+55+56+57+58+59+60+61+62+63+64
(2)2002=24+25+26+27+28+29+30+31+32+33+34+35+36+37+38+39+40+41+42+43+44+45+46+47+48+49+50+51+52+53+54+55+56+57+58+59+60+61+62+63+64+65+66+67
(3)2002=58+59+60+61+62+63+64+65+66+67+68+69+70+71+72+73+74+75+76+77+78+79+80+81+82+83+84+85
(4)2002=148+149+150+151+152+153+154+155+156+157+158+159+160
(5)2002=177+178+179+180+181+182+183+184+185+186+187
(6)2002=283+284+285+286+287+288+289
(7)2002=499+500+501+502
程序代码:
Private Sub Command1_Click()
b = 0
For i = 1 To 2001
a = i
s = 0
'Text1 = Text1 & Chr(13) & Chr(10)
Do
DoEvents
label1 = i & ", " & s
s = s + a
If s = 2002 Then
Text1 = Text1 & Chr(13) & Chr(10)
b = b + 1
For j = i To a
If j = i Then Text1 = Text1 & "(" & b & ")2002=" & i Else Text1 = Text1 & "+" & j
Next j
ElseIf s > 2002 Then Exit Do
End If
a = a + 1
Loop
Next i
End Sub