For i = 500 To 1 Step -1 '能被13或17整除的自然数 If i Mod 13 = 0 Or i Mod 17 = 0 Then j = j + 1 sum = sum + i '求和 Print "第" & CStr(j) & "个:" & i If j = 10 Then Exit For End If Next i Print "总和:" & sum End Sub
4639
494 493 481 476 468 459 455 442 429 425