在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放入Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面

admin2015-10-23  22

问题 在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个文本框数组,名称为Text1,下标从0开始。程序运行后,单击“产生随机数”按钮,就会随机产生10个3位数,并放入Text1数组中(如图1所示);单击“重排数据”按钮,则把Text1中的奇数移到前面,偶数移到后而(如图2所示)。已经给出了所有控件和部分程序。
    要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
    提示:在“重排数据”按钮的事件过程中有对其算法的文字描述,请仔细阅读。

选项

答案步骤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的位置,使奇数移到前面,偶数移到后面。
转载请注明原文地址:https://jikaoti.com/ti/dKJ0FFFM
0

最新回复(0)