用是否按钮的信息框与循环语句实现的逻辑型二进制数组输入器 易语言实现

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. .程序集变量 验证计数, 整数型
   
7. .程序集变量 结果, 整数型
   
8. .程序集变量 验证记录, 逻辑型, , "0"
   
9. .程序集变量 输入的位数, 整数型
   
10. .程序集变量 程序名称, 文本型
    
11. 
    
12. .子程序 __启动窗口_创建完毕
    
13. 
    
14. 输入的位数 ＝ 8
    
15. 重定义数组 (验证记录, 假, 输入的位数)
    
16. 程序名称 ＝ “逻辑型数组输入器”
    
17. 验证计数 ＝ 1
    
18. .判断循环首 (验证计数 ≤ 输入的位数)
    
19.     结果 ＝ 信息框 (“第” ＋ 到文本 (验证计数) ＋ “次 共 ” ＋ 到文本 (输入的位数) ＋ “ 次 真请点是 假请点否。”, 3, 程序名称, )  ' 是5 否6 取消1
    
20.     .判断开始 (结果 ＝ 1)
    
21.         .如果真 (信息框 (“确定取消该操作？”, 1, 程序名称, ) ＝ 0)  ' 确定0 取消1
    
22.             结束 ()
    
23.         .如果真结束
    
24. 
    
25.     .判断 (结果 ＝ 5)
    
26.         验证记录 [验证计数] ＝ 真
    
27.         验证计数 ＝ 验证计数 ＋ 1
    
28.     .判断 (结果 ＝ 6)
    
29.         验证记录 [验证计数] ＝ 假
    
30.         验证计数 ＝ 验证计数 ＋ 1
    
31.     .默认
    
32.         信息框 (“遇到错误！”, 16, 程序名称, )
    
33.         结束 ()
    
34.     .判断结束
    
35. 
    
36. .判断循环尾 ()
    
37. 
    
38. 调试输出 (验证记录)
    
39. 
    
40. 
    
41. .子程序 逻辑数组比较, 逻辑型
    
42. .参数 逻辑数组A, 逻辑型, 数组
    
43. .参数 逻辑数组B, 逻辑型, 数组
    
44. .局部变量 计数, 整数型
    
45. 
    
46. .如果真 (取数组成员数 (逻辑数组A) ≠ 取数组成员数 (逻辑数组B))
    
47.     返回 (假)
    
48. .如果真结束
    
49. .计次循环首 (取数组成员数 (逻辑数组A), 计数)
    
50.     .如果真 (逻辑数组A [计数] ≠ 逻辑数组B [计数])
    
51.         返回 (假)
    
52.     .如果真结束
    
53. 
    
54. .计次循环尾 ()
    
55. 返回 (真)
    
56. 
    
57. 
    

复制代码

demon

没看出什么

Cute

我也看不出