题目

编写一个VB程序，实现程序功能如下：随机产生10个1~20之间的整数存放在数组a，在列表框List1中显示，单击“排序”按钮Command1后，在列表框List2中显示升序排序后的结果。具体算法描述如下：引入数组index，index(i)存储i位置应放置的数组元素的下标。排序完毕，a(index(i))成为升序序列，即a(index(1))≤a(index(2))≤a(index(3))≤……≤a(index(i))。在数组a的所有元素中找出最小元素，将其所在位罝存放在数组元素index(1)中，然后在余下的元素中找出最小元素，将其在雅典历史进程中，梭伦改革、克里斯提尼改革和伯里克利改革被视为三大里程碑式的事件，这三次改革的共同方向是                                        [     ]A．妇女政治地位逐步提升        B．从治“公民”到治“万民” C．民主政治不断发展健全        D．城邦政权向所有的人开放