編程：3個自然數的和是4426,去掉最大的數的十位上的數,就是第2個,去掉最大的數的個為上的數就是第三

dim a,b,c,d,e,f,g

for a= 1 to 9

for b = 0 to 9

for c = 0 to 9

for d = 0 to 9

e=a*1000+b*100+c*10+d

f=a*100+b*10+d

g=a*100+b*10+c

if e+f+g=4426 then

msgbox e & vbcrlf & f & vbcrlf & g

end if

next

next

next

next

保存為vbs文件後運行就行了！