【正确答案】正确答案：步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“t”，将问号改为正确的内容。 Private Sub Commandl_click() Randomi ze For k=0 To 9'随机产生10个3位数，并分别显示在文本框中 Textl(k)=CInt(Rnd()*899+100) Next'CInt(N)函敷用于取小于或等于N的最大整数，Rnd()函数用于随机生成[0．1)之间的数 End Sub Private Sub Command2_Click() Dim i％，j％，temp％，flag As Boolean i=0 j=9将9赋予j temp＝Textl(j)'将最后一个控件赋给temp flag=True While(i

【答案解析】解析：令i指向第一个数，j指向最后一个数，并先暂存最后一个数；检查第i个数是否为偶数，如果不是，再检查下一个，直到第i个是偶数，则把此偶数放到第j个位置，j向前移1个位置；检查第i个数是否为奇数，若不是，再检查前一个，直到第i个是奇数，则把此奇数放到第i个位置，i向后移1个位置；重复判断，直到i＝j把开始暂存的数放到i的位置，使奇数移到前面，偶数移到后面。