Chào các bạn! Vì nhiều lý do từ nay Truyen2U chính thức đổi tên là Truyen247.Pro. Mong các bạn tiếp tục ủng hộ truy cập tên miền mới này nhé! Mãi yêu... ♥

Sap xep cac so

Dim i, j As Integer

Dim n As Integer

Dim a(10) As Integer

Private Sub Command1_Click()

Randomize

n = Val(Text1.Text)

For i = 1 To n

    Text2(i).Text = ""

Next

For i = 1 To n

    a(i) = Int((Rnd * 100) + 1)

    Text2(i).Text = a(i)

Next

End Sub

Private Sub Command2_Click()

Dim tam As Integer

For i = 1 To n - 1

    For j = i + 1 To n

        If a(i) > a(j) Then

            tam = a(i)

            a(i) = a(j)

            a(j) = tam

        End If

    Next

Next

For i = 1 To n

    Text2(i).Text = a(i)

Next

End Sub

Private Sub Command3_Click()

Dim tam As Integer

For i = 1 To n - 1

    For j = i + 1 To n

        If a(i) < a(j) Then

            tam = a(i)

            a(i) = a(j)

            a(j) = tam

        End If

    Next

Next

For i = 1 To n

    Text2(i).Text = a(i)

Next

End Sub

Private Sub Command4_Click()

Text1.Text = ""

Dim i As Integer

For i = 1 To 10

    Text2(i).Text = ""

Next

Text1.SetFocus

End Sub

Private Sub Command5_Click()

If MsgBox("Ban co muon thoat khong?", vbQuestion + vbYesNo, "Thong bao") = vbYes Then

    End

Else

    End If

End Sub

Bạn đang đọc truyện trên: Truyen247.Pro

Tags: