题目

对数组a中的n个元素进行排序，生成左右交替上升的数据序列，结果如下表所示： a（1） a（2） a（3） …… a（n-2） a（n-1） a（n） 27 35 39 …… 49 39 33 小华由此设计一个VB程序，功能如下：单击“排序”按钮Command1，随机生成10个两位奇数，将随机生成的数据序列显示在文本框Text1中，在文本框Text2中显示完成排序后的数据序列，运行结果如图所示。 Private Sub Command1_Click()   Dim a(1 To 10) As Integer   Randomize   Const n = 10   For i = 1 To n       a(i) = ①       Text1.Text = Text1.Text + Str(a(i))   Next i   For i = 1 To n \ 2       For j = n - i + 1 To i + 1 Step -1           If a(j) < a(j - 1) Then               t = a(j - 1)                 ②               a(j) = t           End If       Next j       For j = i + 1 To n - i           If  Then               t = a(j): a(j) = a(j + 1): a(j + 1) = t           End If       Next j   Next i   For i = 1 To n       Text2.Text = Text2.Text + Str(a(i))   Next i End Sub （1） 代码Command1_Click()中的Click属于（单选，填字母：A .对象名/B .事件名/C .方法名/D .事件处理过程名）。 （2） 程序中①处的代码可能是          （单选，填字母）。 A . Int(Rnd * 88) + 11 B . Int(Rnd * 89) + 11 C . Int(Rnd * 44) * 2 + 11 D . Int(Rnd * 45) * 2 + 11 （3） 程序中②处填入合适的代码 （4） 程序代码中，加框处语句有错，请改正。 答案： 【1】B D 【1】a(j - 1)=a(j) a(j) < a(j + 1)

查看本题答案和解析