UC知道求一个vb 编程
来源：百度知道 编辑：UC知道 时间：2024/05/15 09:55:43
要用冒泡分类法
编写过程sort(a)，a是变体类型，用于接收数组。该过程的功能是：
1）使用冒泡分类法对a中元素按数值大小从小到大排序。
2）与此同时，在标签Label1中输出每趟结束后，各元素顺序，元素之间用西文逗号间隔，每趟结束用Chr(13) & Chr(10)间隔。
然后编程实现以下要求：当在Text1中输入一系列以 1 个空格间隔的整数后，单击Command1,将调用过程sort，调用结束后，在Text2中以仍以 1 个空格为间隔，输出排序后的各数据。
说明：
将Text1中以1个空格间隔的数据放入数据A中，可以使用以下语句：
Dim A
A = Split(Text1.Text)
其中A的下界为0，上界为UBound(A)
编写过程sort(a)，a是变体类型，用于接收数组。该过程的功能是：
1）使用冒泡分类法对a中元素按数值大小从小到大排序。
2）与此同时，在标签Label1中输出每趟结束后，各元素顺序，元素之间用西文逗号间隔，每趟结束用Chr(13) & Chr(10)间隔。
然后编程实现以下要求：当在Text1中输入一系列以 1 个空格间隔的整数后，单击Command1,将调用过程sort，调用结束后，在Text2中以仍以 1 个空格为间隔，输出排序后的各数据。
说明：
将Text1中以1个空格间隔的数据放入数据A中，可以使用以下语句：
Dim A
A = Split(Text1.Text)
其中A的下界为0，上界为UBound(A)
Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, " ")
sort a
End Sub
Sub sort(a)
Dim b As String
Dim m As Integer, n As Integer, x As Integer
For n = 0 To UBound(a)
For m = 0 To n
If val(a(m)) > val(a(n)) Then
b = a(m)
a(m) = a(n)
a(n) = b
For x = 0 To UBound(a)
Label1.Caption = Label1.Caption & a(x) & " "
Next
Label1.Caption = Label1.Caption & vbCrLf
End If
Next
Next
Text2.Text = ""
For n = 0 To UBound(a)
Text2.Text = Text2.Text & a(n) & " "
Next
End Sub