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

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

admin2019-03-14  54
问题  在考生文件夹下有一个工程文件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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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