易语言实现求被除数最大可以被整除的除数 (返回除数 整数型)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 除数, 整数型
    
14. 
    
15. 信息框 (求最大可被整除的除数 (1000000, 65535), 0, , )
    
16. 
    
17. .子程序 求最大可被整除的除数, 整数型, 公开, 返回除数
    
18. .参数 被除数, 整数型
    
19. .参数 除数最大值, 整数型, 可空
    
20. .局部变量 除数, 整数型
    
21. .局部变量 返回值, 整数型
    
22. 
    
23. .计次循环首 (被除数, 除数)
    
24.     .如果真 (被除数 ％ 除数 ＝ 0)
    
25.         .如果真 (除数 ＞ 返回值)
    
26.             返回值 ＝ 除数
    
27.         .如果真结束
    
28. 
    
29.     .如果真结束
    
30.     .如果真 (除数 ＞ 除数最大值 且 除数最大值 ＞ 0)
    
31.         跳出循环 ()
    
32.     .如果真结束
    
33. 
    
34. .计次循环尾 ()
    
35. 返回 (返回值)
    

复制代码

1心1亿

这代码真够水的..