Option ExplicitDim myvalue(19) As IntegerPrivate Sub Command1_Click()
'单击按钮开始冒泡法Dim i As Integer, y As Integer, temp As IntegerFor i = 0 To 18
For y = i + 1 To 19
If myvalue(i) > myvalue(y) Then
temp = myvalue(i)
myvalue(i) = myvalue(y)
myvalue(y) = temp
...
