问题描述：
VB.分别选择和冒泡排序法排a(1 to 50),我应试,希望越教科越好,并有注释
问题解答：
我来补答
Dim A(50) As Integer '定义数组数据类型
Dim TT As Integer ' 定义交换变量类型
Dim i, j, k As Integer '定义循环变量类型
Form1.Cls
Randomize
For i = 1 To 50
A(i) = Int(Rnd() * 50 + 1) '随机产生50个随机数字
Print A(i);
DoEvents
Next
Print
For i = 2 To 50 '进行n-1次排序,此处n为50
For j = 50 To i Step -1
If A(j) < A(j - 1) Then '进行一次冒泡排序
TT = A(j)
A(j) = A(j - 1)
A(j - 1) = TT
End If
DoEvents
Next
For k = 1 To 50 '打印一次冒泡排序结局哦
Print A(k);
DoEvents
Next
Print
DoEvents
Next
