帮我编下吧，想了很久，不会啊。
求100-500之间各位数字之和等于5的所有整数

dim x() as string
dim i,j as integer
for j=100 to 500
  for i = 1 to 3
    x(i)=mid(j,i,1)  
  next
 if val(x(1))+val(x(2))+val(x(3))=5 then print x(1) & x(2) & x(3)
next

dim x() as integer
dim i,j as integer
dim Temp as integer

for j=100 to 500
  for i = 0 to 2
    x(i)=val(mid(j,i,1))
    if x(i)>5 then goto 10  
  next
  Temp=x(0)+x(1)+x(2)
  if Temp<=5 then
     print x(0) & x(1) & x(2)
  end if
10:
next

[[it] 本帖最后由 hyhhd 于 2008-4-13 13:41 编辑 [/it]]

Private Sub Form_Click()
Dim a, b, c, d As Integer
For i = 100 To 500 '
a = i Mod 10            '个位数
b = i / 10 Mod 10       '十位数
c = Int(i / 100)        '百位数
    If a + b + c = 5 Then
        Print i
    End If
Next i
End Sub
这是我的理解不知道是不是你要的。

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    For i = 1 To 4
        For j = 0 To 5 - i
            Print i & j & 5 - i - j
        Next
        'Print
    Next
End Sub

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    For i = 1 To 4
        For j = 0 To (5 - i) \ 2
            k = 5 - i - j
            Print i & j & 5 - i - j
            If j <> k Then Print i & 5 - i - j & j
        Next
        'Print
    Next
End Sub

因为比较短，所以效率哪个高我也清楚……只是提供个思路。

我想不比slore更好的算法了,只是 For i=1 To 5 ,因为求100-500的,包括500

100-500之间……
没有说明白包括不包括。如果要500的话，是i改下就可以了。