题目

数据排序。编写VB程序，使其具有以下功能:通过文本框随机输入几个无序的整数，并存储在数组a中，然后将这些无序的数进行排序，使得这些数按从小到大的顺序排列。 程序运行时，在文本框Text1中依次输入一个整数后按回车键，输入的整数顺序显示在列表框List1中，单击“排序”按钮 Command1，排序后的数据显示在列表框List2中程序运行界面如图所示，回答以下各题： （1） 实现上述功能的程序代码如下，请在划线处填入合适的代码。 Dim a (1 To 20) As Integer, n As Integer    ‘ 定义全局变量 Sub jh (x As Integer, y As Integer) ‘jh 为自定义过程,其功能是交换变量x、y的值 Dim temp As Integer   temp = x   x = y   y = temp End Sub Private Sub Command1_Click ( )   Dim i As Integer, temp As Integer   Dim swap As Boolean   swap = True   Do while swap = True     swap = False     For i = 1 To n-1       If a(i) > a(i+1) Then         Call jh (a(i), a(i+1))     ‘ 调用过程jh，对两个数进行交换                 ①               End If     Next i   Loop   For i = 1 To n     List2. AddItem a (i)   Next i End sub ‘ 输入数据,存储在数组a中，并显示在列表框List1中 Private Sub Text1_ Key Press (KeyAscii As Integer)   If KeyAscii = 13 Then ‘表示按下回车键     n = n+1             ②             List1. AddItem a(n)     Text1. Text =“ ”   End if End sub Private Sub Form_ Load ( )   n = 0 End sub ① ②  （2） 本题中采用的排序算法应属于（填：冒泡排序/选择排序/插入排序） 答案： 【1】swap=true【2】a(n)=Val(Text1.Text) 【1】冒泡排序

查看本题答案和解析