可代替其它编程语言中的控件数组演示源码

这程序比较简单，新建个Windows窗体程序文件后，在窗体上画上三个单选框、两个选择框和一个按钮。代码实现如下：

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 单选框数组, 单选框, , "3", 定义单选框数组，成员数为3个
   
5. .程序集变量 选择框方式判断数组, 选择框, , "2", 定义选择框数组，成员数为2个
   
6. 
   
7. .子程序 _按钮1_被单击
   
8. .局部变量 循环变量, 整数型
   
9. 
   
10. .如果真 (选择框方式判断数组 [2].选中)
    
11.     选择框方式判断数组 [1].选中 ＝ 假
    
12.     .变量循环首 (1, 3, 1, 循环变量)
    
13.         .判断循环首 (单选框数组 [循环变量].选中)
    
14.             判断选中单选框 (到数值 (单选框数组 [循环变量].标记))
    
15.             跳出循环 ()
    
16.         .判断循环尾 ()
    
17.     .变量循环尾 ()
    
18. .如果真结束
    
19. 
    
20. 
    
21. .子程序 __启动窗口_创建完毕, , , 初始化
    
22. 
    
23. ' ================初始化单选框标记，这里可在每个单选框属性中直接设置====================
    
24. 单选框1.标记 ＝ 到文本 (1)
    
25. 单选框2.标记 ＝ 到文本 (2)
    
26. 单选框3.标记 ＝ 到文本 (3)
    
27. ' ================初始化选择框标记，这里可在每个选择框属性中直接设置====================
    
28. 选择框1.标记 ＝ 到文本 (1)
    
29. 选择框2.标记 ＝ 到文本 (2)
    
30. ' ================初始化单选框数组====================
    
31. 单选框数组 [1] ＝ 单选框1
    
32. 单选框数组 [2] ＝ 单选框2
    
33. 单选框数组 [3] ＝ 单选框3
    
34. ' 单选框数组 [n] ＝ 单选框n
    
35. ' ================初始化选择框方式判断数组====================
    
36. 选择框方式判断数组 [1] ＝ 选择框1
    
37. 选择框方式判断数组 [2] ＝ 选择框2
    
38. ' 选择框方式判断数组 [n] ＝ 选择框n
    
39. ' ================初始化按钮1不可单击===================
    
40. 按钮1.禁止 ＝ 真
    
41. 
    
42. .子程序 判断选中单选框, , , 检测单选框事件过程
    
43. .参数 单选框标记, 整数型
    
44. 
    
45. .判断开始 (单选框标记 ＝ 1)
    
46.     信息框 (“当前选择了单选框” ＋ 到文本 (单选框标记), 0, “提示”)
    
47. .判断 (单选框标记 ＝ 2)
    
48.     信息框 (“当前选择了单选框” ＋ 到文本 (单选框标记), 0, “提示”)
    
49. .判断 (单选框标记 ＝ 3)
    
50.     信息框 (“当前选择了单选框” ＋ 到文本 (单选框标记), 0, “提示”)
    
51. .判断 (单选框标记 ＝ 0)
    
52.     信息框 (“当前没有选择任何单选框”, 0, “提示”)
    
53. .默认
    
54. 
    
55. .判断结束
    
56. 
    
57. 
    
58. .子程序 _单选框1_被单击
    
59. 
    
60. .判断开始 (选择框方式判断数组 [1].选中)  ' 用于单选框中直接检测单选事件判断
    
61.     判断选中单选框 (到数值 (单选框1.标记))
    
62. .默认
    
63. 
    
64. .判断结束
    
65. 
    
66. 
    
67. .子程序 _单选框2_被单击
    
68. 
    
69. .判断开始 (选择框方式判断数组 [1].选中)  ' 用于单选框中直接检测单选事件判断
    
70.     判断选中单选框 (到数值 (单选框2.标记))
    
71. .默认
    
72. 
    
73. .判断结束
    
74. 
    
75. 
    
76. .子程序 _单选框3_被单击
    
77. 
    
78. .判断开始 (选择框方式判断数组 [1].选中)  ' 用于单选框中直接检测单选事件判断
    
79.     判断选中单选框 (到数值 (单选框3.标记))
    
80. .默认
    
81. 
    
82. .判断结束
    
83. 
    
84. 
    
85. .子程序 _选择框1_被单击
    
86. 
    
87. 选择框方式判断数组 [2].选中 ＝ 假
    
88. 
    
89. .子程序 _选择框2_被单击
    
90. 
    
91. 选择框方式判断数组 [1].选中 ＝ 假
    
92. 按钮1.禁止 ＝ 假

复制代码

演示源码：