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

admin2019-03-14  41

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

选项

答案【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Randomize For k = 0 To 9     Text1(k) = CInt(Rnd() * 899 + 100) Next End Sub Private Sub Command2_Click() ’====================== ’======================= Dim i%, j%, temp%, flag As Boolean i = 0 ’ j = ? ’ ? = Text1(j) flag = True ’ While (i < ?)     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(j) Mod 2 = ? Then         Text1(i) = Text1(j)         i = i + 1         flag = Not flag       Else         j = j - 1       End If     End If Wend Text1(i) = temp End Sub 程序结束 参考答案 第1个?处填入:9 第2个?处填入:temp 第3个?处填入:j 第4个?处填入:1 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/U6Up777K
0

最新回复(0)