再有个VB问题,望能提供解题的思路.

来源：百度知道 编辑：UC知道 时间：2024/06/20 07:48:03
求100-500之间的各位数之和等于5的所有整数.比如104.122,113等等.谢谢

额.字符串处理法..数位合并法...都有了.
我就来个数位分离法吧.
Dim i%, b%, s%, g%
For i = 100 To 500
b = i \ 100
s = (i Mod 100) \ 10
g = i Mod 10
If b + s + g = 5 Then Print i
Next i
楼主自己选择喜欢的方法.嘎嘎.

Private Sub Form_Load()
Dim vSum$
For i = 100 To 500
If Val(Mid(i, 1, 1)) + Val(Mid(i, 2, 1)) + Val(Mid(i, 3, 1)) = 5 Then
vSum = vSum & " " & i
End If
Next
MsgBox vSum
End Sub

dim a,b,c as integer 'abc分别为百,十,个位

for a=1 to 5
for b=0 to 9
for c=0 to 9
if a+b+c=5 and 100*a+10*b+c<=500 then
print 100*a+10*b+c
endif
next
next
next

for i=100 to 500
?????SORRy