在窗体中有 10 个 text1 文本框构成的控件数组,单击“产生随机数”,如图所示。单击“重排数据”,将对数据进行重排,排列时将奇数放在前,偶数置后。 请将下列代码补充完整。 Private Sub Command1_Click() Randomize For k = 0 To 9 Text1(k) = CInt(Rnd() * 899 + 100) Next End Sub Private Sub Command2_Click() '================================================ '算法: '1)令i指向第1个数,j指向最后1个数,并先暂存最后一个数; '2)检查第i个数是否为偶数,若不是,再检查下一个,直到第i个是 ' 偶数,则把此偶数放到第j个位置,j向前移1个位置; '3)检查第j个数是否为奇数,若不是,再检查前一个,直到第j个是 ' 奇数,则把此奇数放到第i个位置,i向后移1个位置; '4)重复2)、3),直到i=j '5)把开始暂存的数放到i的位置 '================================================= Dim i%, j%, temp%, flag As Boolean i = 0 flag = True While ( ) If flag Then If Text1(i) Mod 2 = 0 Then Text1(j) = Text1(i) j = j - 1 flag = Not flag Else i = i + 1 End If Else If Text1(i) = Text1(j) i = i + 1 flag = Not flag Else j = j - 1 End If End If Wend End Sub