1. Event(Form1.Load)
  2. 令 Form1.ComboBox1.List = "A|B"
  3. 令 Form1.ComboBox1.ListIndex = 0
  4. (语句无法识别,可能有错误): End Event
  5. Event(Form1.ComboBox1.SelectChange)
  6. 定义变量 索引1,主城
  7. 令 索引1 = Split(Form1.ComboBox1.List,"|")
  8. 令 主城 = 索引1(Form1.ComboBox1.ListIndex)
  9. 如果 主城 = "A" 则
  10.     令 Form1.ComboBox2.List = "A1|A2|A3"
  11.     令 Form1.ComboBox2.ListIndex = - 1
  12.     注释:Form1.ComboBox2.Enabled = true
  13. 否则如果 主城 = "B" 则
  14.     令 Form1.ComboBox2.List = "B1|B2|B3"
  15.     令 Form1.ComboBox2.ListIndex = - 1
  16.     注释:Form1.ComboBox2.Enabled = true
  17. 条件结束
  18. (语句无法识别,可能有错误): End Event
  19. Event(Form1.ComboBox2.SelectChange)
  20. 定义变量 索引2,地图2
  21. 令 索引2 = Split(Form1.ComboBox2.List,"|")
  22. 令 地图2 = 索引2(Form1.ComboBox2.ListIndex)
  23. 如果 地图2 = "A1" 则
  24.     令 Form1.ComboBox3.List = "A11|A12|A13"
  25.     令 Form1.ComboBox3.ListIndex = - 1
  26.     注释:Form1.ComboBox3.Enabled = true
  27. 否则如果 地图2 = "A2" 则
  28.     令 Form1.ComboBox3.List = "A21|A22|A23"
  29.     令 Form1.ComboBox3.ListIndex = - 1
  30.     注释:Form1.ComboBox3.Enabled = true
  31. 否则如果 地图2 = "A3" 则
  32.     令 Form1.ComboBox3.List = "A31|A32|A33"
  33.     令 Form1.ComboBox3.ListIndex = - 1
  34.     注释:Form1.ComboBox3.Enabled = true
  35. 否则如果 地图2 = "B1" 则
  36.     令 Form1.ComboBox3.List = "B11|B12|B13"
  37.     令 Form1.ComboBox3.ListIndex = - 1
  38.     注释:Form1.ComboBox3.Enabled = true
  39. 否则如果 地图2 = "B2" 则
  40.     令 Form1.ComboBox3.List = "B21|B22|B23"
  41.     令 Form1.ComboBox3.ListIndex = - 1
  42.     注释:Form1.ComboBox3.Enabled = true
  43. 否则如果 地图2 = "B3" 则
  44.     令 Form1.ComboBox3.List = "B31|A32|B33"
  45.     令 Form1.ComboBox3.ListIndex = - 1
  46.     注释:Form1.ComboBox3.Enabled = true
  47. 条件结束
  48. (语句无法识别,可能有错误): End Event
  49. Event(Form1.ComboBox3.SelectChange)
  50. 定义变量 索引3,地图3
  51. 令 索引3 = Split(Form1.ComboBox3.List,"|")
  52. 令 地图3 = 索引3(Form1.ComboBox3.ListIndex)
  53. 如果 地图3 = "A11" 则
  54.     令 Form1.ComboBox4.List = "A111|A112|A113"
  55.     令 Form1.ComboBox4.ListIndex = - 1
  56.     注释:Form1.ComboBox3.Enabled = true
  57. 否则如果 地图3 = "A12" 则
  58.     令 Form1.ComboBox4.List = "A121|A122|A123"
  59.     令 Form1.ComboBox4.ListIndex = - 1
  60.     注释:Form1.ComboBox3.Enabled = true
  61. 否则如果 地图3 = "A13" 则
  62.     令 Form1.ComboBox4.List = "A131|A132|A133"
  63.     令 Form1.ComboBox4.ListIndex = - 1
  64.     注释:Form1.ComboBox3.Enabled = true
  65. 否则如果 地图3 = "A21" 则
  66.     令 Form1.ComboBox4.List = "A211|A212|A213"
  67.     令 Form1.ComboBox4.ListIndex = - 1
  68.     注释:Form1.ComboBox3.Enabled = true
  69. 否则如果 地图3 = "A22" 则
  70.     令 Form1.ComboBox4.List = "A221|A222|A223"
  71.     令 Form1.ComboBox4.ListIndex = - 1
  72.     注释:Form1.ComboBox3.Enabled = true
  73. 否则如果 地图3 = "A23" 则
  74.     令 Form1.ComboBox4.List = "A231|A232|A233"
  75.     令 Form1.ComboBox4.ListIndex = - 1
  76.     注释:Form1.ComboBox3.Enabled = true
  77. 否则如果 地图3 = "A31" 则
  78.     令 Form1.ComboBox4.List = "A311|A312|A313"
  79.     令 Form1.ComboBox4.ListIndex = - 1
  80.     注释:Form1.ComboBox3.Enabled = true
  81. 否则如果 地图3 = "A32" 则
  82.     令 Form1.ComboBox4.List = "A321|A322|A323"
  83.     令 Form1.ComboBox4.ListIndex = - 1
  84.     注释:Form1.ComboBox3.Enabled = true
  85. 否则如果 地图3 = "A33" 则
  86.     令 Form1.ComboBox4.List = "A331|A332|A333"
  87.     令 Form1.ComboBox4.ListIndex = - 1
  88.     注释:Form1.ComboBox3.Enabled = true
  89. 否则如果 地图3 = "B11" 则
  90.     令 Form1.ComboBox4.List = "B111|B112|B113"
  91.     令 Form1.ComboBox4.ListIndex = - 1
  92.     注释:Form1.ComboBox3.Enabled = true
  93. 否则如果 地图3 = "B12" 则
  94.     令 Form1.ComboBox4.List = "B121|B122|B123"
  95.     令 Form1.ComboBox4.ListIndex = - 1
  96.     注释:Form1.ComboBox3.Enabled = true
  97. 否则如果 地图3 = "B13" 则
  98.     令 Form1.ComboBox4.List = "B131|B132|B133"
  99.     令 Form1.ComboBox4.ListIndex = - 1
  100.     注释:Form1.ComboBox3.Enabled = true