Action Script 2.0/3.0 随机选举线程插入18个项目到组合框

stillness

Action Script 2.0/3.0 随机选举线程插入18个项目到组合框
不想多说UI你们懂得...

1. on(release)
   
2. {
   
3. //        this._x+=80; // 当前对象自身水平添加80px
   
4. //        this._x-=80;
   
5.         var a:Number = new Number();
   
6.         组合框.rowCount = 18;
   
7.         if(组合框.length>0)
   
8.         {
   
9.                 组合框.removeAll();
   
10.         }
    
11.         else
    
12.         {
    
13.                 switch(random(2))
    
14.                 {
    
15.                         case 0:
    
16.                         A();
    
17.                         break;
    
18.                         case 1:
    
19.                         B();
    
20.                         break;
    
21.                         case 2:
    
22.                         C();
    
23.                         break;
    
24.                         default:
    
25.                         A();
    
26.                 }
    
27.         }
    
28.         function A():Void
    
29.         {
    
30.                 for(a;a<=18;a++)
    
31.                 {
    
32.                         if(a>0 and a<>0)
    
33.                         {
    
34.                                 组合框.addItem(String(a));
    
35.                         }
    
36.                 }
    
37.         }
    
38.         function B():Void
    
39.         {
    
40.                 while(a<=18)
    
41.                 {
    
42.                         if(a>0 and a<>0)
    
43.                         {
    
44.                                 组合框.addItem(String(a));
    
45.                         }
    
46.                 }
    
47.         }
    
48.         function C():Void
    
49.         {
    
50.                 do
    
51.                 {
    
52.                         if(a>0 and a<>0)
    
53.                         {
    
54.                                 组合框.addItem(String(a));
    
55.                         }
    
56.                 }
    
57.                 while(a<=18)
    
58.         }
    
59. }

复制代码

EPL代码l:l

1. .DocVersion 2
   
2. 
   
3. .Module FormModule1
   
4. 
   
5. .Sub _CommandButton1_Click
   
6. .LocalVar a, Integer
   
7. 
   
8. 
   
9. .If (ComboBox1.GetItemCount () > 0)
   
10.     ComboBox1.Clear ()
    
11.     Return ()
    
12. .else
    
13.     .switch_begin (Rnd (0, 2) = 0)
    
14.         A ()
    
15.     .Case (Rnd (0, 2) = 1)
    
16.         B ()
    
17.     .Case (Rnd (0, 2) = 2)
    
18.         C ()
    
19.     .default
    
20.         A ()
    
21.     .switch_end
    
22. 
    
23. .ife_end
    
24. ComboBox1.SendMessage (335, 1, 0)
    
25. 
    
26. .Sub A
    
27. .LocalVar a, Integer
    
28. 
    
29. .For (1, 18, 1, a)
    
30.     .IfTrue (a > 0 And a <> 0)
    
31.         ComboBox1.AddItem (CStr (a), )
    
32.     .if_end
    
33. 
    
34. .Next ()
    
35. 
    
36. .Sub B
    
37. .LocalVar a, Integer
    
38. 
    
39. .Do ()
    
40.     .IfTrue (a > 0 And a <> 0)
    
41.         ComboBox1.AddItem (CStr (a), )
    
42.     .if_end
    
43. 
    
44. .Loop (a <= 18)
    
45. 
    
46. .Sub C
    
47. .LocalVar a, Integer
    
48. 
    
49. .While (a <= 18)
    
50.     .IfTrue (a > 0 And a <> 0)
    
51.         ComboBox1.AddItem (CStr (a), )
    
52.     .if_end
    
53.     ' // Break ()
    
54. .Wend ()
    
55. 
    

复制代码