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

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

admin2015-10-23  42
问题 在考生文件夹下有一个工程文件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://www.kaotiyun.com/show/kXLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)