16.【加试题】n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如第16题图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。Dima(1To8)AsIntegerDimnAsIntegerPrivateSubForm_Load()'n=8，排序前数据存储在数组a中，并在列表框Listl中显示'代码略EndSubPrivateSubCommand1_Click()DimflagAsBoolean'flag值为True表示一遍加工中发生过交换i=1flag=TrueDoWhile'（1）flag=FalseForj=nToi+1Step-1Ifa(j)
