Private Sub Command1_Click() Cls Dim x(15) As Integer, n As Integer n = 1 While n <= 15 x(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer, m As Integer m = 1 While m <= 14 n = 1 While n <= 15 - m If x(n) < x(n + 1) Then swap = x(n) x(n) = x(n + 1) x(n + 1) = swap End If n = n + 1 Wend m = m + 1 Wend n = 1 While n <= 15 Print x(n) n = n + 1 Wend End Sub
打开vb选中commandbutton并在form空白处选中双击command1输入Private Sub Command1_Click()ClsDim x(15) As Integer, n As Integern = 1While n x(n) = Int(Rnd * 1000)n = n + 1WendDim swap As Integer, m