一道数学题，请大家帮助看看，，谢谢

yanwei82123300

问: 一个三位数,个位上的数字比十位上的数字大1,个位上的数字比百位上的数字大3,把百位上的数字与个位上的数字交换位置后得到一个新数,新数与原数的和为787,原数是多少?

yanwei82123300

如何使用VBA进行编程计算

轻风

245，口算10秒出答案，不用编程{:soso_e120:}

yanwei82123300

谢谢，我想编程如何使用呀

jnne

我还是个高三学生，学的是计算机，但是到现在考老师没教更深的语句。。。
你的问个问题，我应该是没问题，只是我旁边没电脑！！！

我就说下我的思路。。。。
用一个产量控制循环
sub  
for a=100 to 999
b=a mod 10
c=（a fix 10）mod 10
d=fix （a/100）
e=b+c+d
if  b-c=1 and  b-d=3 then
msgbox    e+b*10+c+d*100
end  if
next a
end  sub
完
初浅见解

盗梦

1. Public Function CheckNumber()
   
2.     Dim i0 As Long  '个位数
   
3.     Dim i1 As Long  '十位数
   
4.     Dim i2 As Long  '百位数
   
5. 
   
6.     '百位最小，个位最大
   
7.     '百位的有效范围是 1~（9-3），也就是1~6
   
8.     For i2 = 1 To 6
   
9.         i0 = i2 + 3 '得到个位数
   
10.         i1 = i0 - 1 '得到十位数
    
11. 
    
12.         '判断是否符合条件
    
13.         If CInt(i2 & i1 & i0) + CInt(i0 & i1 & i2) = 787 Then
    
14.             Debug.Print i2 & i1 & i0    '输出结果
    
15.         End If
    
16.     Next
    
17. 
    
18.     Debug.Print "End!"
    
19. End Function

复制代码

这里3个数字组合成一个3位数直接用个& 连接了，也可以用数学方法计算得到：i2*100+i1*10+i0

盗梦

jnne 发表于 2015-9-25 00:19
我还是个高三学生，学的是计算机，但是到现在考老师没教更深的语句。。。
你的问个问题，我应该是没问题， ...

你这个循环次数太多了

roych

jnne 发表于 2015-9-25 00:19
我还是个高三学生，学的是计算机，但是到现在考老师没教更深的语句。。。
你的问个问题，我应该是没问题， ...

不错不错。不过还可以优化下语句【调用：call test(787)】：

1. Function test(ByVal lngResult As Long) As Long
   
2. Dim i As Long
   
3. 'lngResult=调换后的结果
   
4. '一下是计算简化过程：
   
5. 
   
6. '假定a,b,c分别为百位、十位、个位，个位数跟百位数对调后则：
   
7. '
   
8. '(a*100+10*b+c)+(c*100+10*b+a)               ——————————→                101*(a+c)+20*b
   
9. '(lngResult\101)                             ——————————→                a+c
   
10. '(lngResult Mod 101)/20                      ——————————→                b
    
11. 
    
12. '令a=i，则：
    
13. '
    
14. '100*a                                       ——————————→                100*i
    
15. '10*b                                        ——————————→               (lngResult Mod 101)/2
    
16. 'c                                           ——————————→               (lngResult \ 101)-i
    
17. 
    
18. For i = 1 To (lngResult \ 101)
    
19.     If (lngResult \ 101 - 2 * i) = 3 Then
    
20.         test = 100 * i + (lngResult Mod 101) / 2 + (lngResult \ 101 - i)
    
21.     End If
    
22. Next
    
23. End Function
    

复制代码

yanwei82123300

谢谢大家帮助！1

风中漫步

好题