1、随机产生10个10－99范围内的整数,分别用选

1、随机产生10个10－99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果

1个回答

Private Sub Form_click()Dim A(1 To 10)RandomizeFor I = 1 To 10A(I) = Int(Rnd * 90) + 10Next IFor I = 1 To 9 '选择法p = IFor J = I + 1 To 10If A(J) < A(I) Thenp = JEnd IfNext Jtem = A(I)A(I) = A(p)A(p)...