VB冒泡/选择排序程序

Question

说实话是vb作业 实在是不会😭 实验题目: 通过过程/函数调用实现数组的排序与输出输入无序的多个整数，整数与整数间用逗号隔开。要求分别用冒泡和简单选择进行排序。输出冒泡、简单选择排序的每一趟排序结果 实验要求:要求升序排序要求使用GroupBox控件，区分两种排序算法输出结果排序操作、打印操作要求分别封装在独立的过程/函数中要求有必要的判断条件，保证程序的健壮性 其实两种排序我能明白..但是示例是有一个textbox 在里面输入数字用逗号分隔 怎么把里面的每个数字连起来变成数组呢...

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, a(1 To 10) As Integer
Print "原始数据如下"
For i = 1 To 10
a(i) = Int(Rnd * 10)
Print a(i);
Next i
Print "按从小到大排列输出："
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
Next
End Sub
通用过程
Public Sub swap_1()
Print "按从小到大排列输出："
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
End Sub