易语言实现判断 计次循环首、变量循环首 循环语句执行是否正确 (返回逻辑型)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. .如果 (计次循环首_变量循环首_是否执行正确 () ＝ 假)
   
9.     信息框 (“计次循环首 或 变量循环首 执行存在错误，请尝试重启计算机或重装易语言。”, 0, , )
   
10. .否则
    
11.     输出调试文本 (“正确”)
    
12. .如果结束
    
13. 
    
14. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
15. 返回 (0)  ' 可以根据您的需要返回任意数值
    
16. 
    
17. .子程序 _临时子程序
    
18. 
    
19. 
    
20. 
    
21. .子程序 计次循环首_变量循环首_是否执行正确, 逻辑型, 公开, 检测核心库的 计次循环首() 、变量循环首() 循环是否执行正确，返回假请尝试重启计算机，请勿执行任何易语言程序
    
22. .局部变量 计数, 整数型
    
23. .局部变量 计数2, 整数型
    
24. 
    
25. .计次循环首 (10, 计数)
    
26.     计数2 ＝ 计数2 ＋ 1
    
27.     .如果真 (计数2 ≠ 计数)
    
28.         返回 (假)
    
29.     .如果真结束
    
30. 
    
31. .计次循环尾 ()
    
32. .如果真 (计数 ≠ 11)
    
33.     返回 (假)
    
34. .如果真结束
    
35. 计数2 ＝ 0
    
36. .变量循环首 (1, 10, 1, 计数)
    
37.     计数2 ＝ 计数2 ＋ 1
    
38.     .如果真 (计数2 ≠ 计数)
    
39.         返回 (假)
    
40.     .如果真结束
    
41. 
    
42. .变量循环尾 ()
    
43. 返回 (计数 ＝ 11)
    
44. 
    

复制代码