知识点:冒泡排序 下面事件过程产生10个两位的正的随机整数,并利用冒泡法升序排序,请完善它。 Private Sub Command1_Click() Dim a(10) As Integer For m = 1 To 10 a(m) = [ (1) ] Next m For m = 1 To 9 For n = [ (2) ] To 10 If a(m) [ (3) ] a(n) Then t = a(m): a(m) = a(n): a(n) = t Next n Next m For m = 1 To 10 Print a(m). Next m End Sub