列表框热键加入监视热键

重定义数组 (a, 假, 超级列表框1.取表项数 ())
.计次循环首 (超级列表框1.取表项数 (), i)
监视热键 (&子程序1, 超级列表框1.取表项数值 (i － 1), , , , )
a [i] ＝ 超级列表框1.取表项数值 (i － 1)
.计次循环尾 ()