Mengurutkan Abjad Secara Ascending

Selamat datang di Leak, terimakasih karena anda telah berkunjung ke blog saya, kali ini saya akan menulis tentang Mengurutkan Abjad Secara Ascending, semoga informasi yang anda cari ada disini, selamat membaca.

- Buatlah sebuah project baru, tambahkan sebuah Command Button dan 2 buah TextBox

- Masukkan code di bawah ke dalam Code View

Option Explicit

Private Sub Command1_Click()

'Ketika Command1 diklik, maka kumpulan abjad di Text1

'akan diurutkan dari terkecil hingga abjad yang terbesar

'dan hasilnya ditampilkan di Text2 menjadi:

'ABCDEFGHIJKLMNOPQRSTUVWXYZ

Dim sAbjad() As String, ar As Integer, br As Integer, _

sAbjadTemp As String

Text2.Text = ""

ReDim sAbjad(Len(Text1.Text) - 1)

For ar = 1 To Len(Text1.Text)

sAbjad(ar - 1) = Mid(Text1.Text, ar, 1)

Next ar

For ar = LBound(sAbjad) To UBound(sAbjad)

For br = LBound(sAbjad) To UBound(sAbjad) - 1

If sAbjad(br) > sAbjad(br + 1) Then

sAbjadTemp = sAbjad(br + 1)

sAbjad(br + 1) = sAbjad(br)

sAbjad(br) = sAbjadTemp

End If

Next br

Next ar

For ar = LBound(sAbjad) To UBound(sAbjad)

Text2.Text = Text2.Text & sAbjad(ar)

Next ar

End Sub

Private Sub Form_Load()

'Mula-mula, kumpulan abjad di Text1 belum urut...

Text1.Text = "QWERTYUIOPASDFGHJKLZXCVBNM"

Text2.Text = ""

End Sub

- Hasilnya :

Mencari Nilai Rata-Rata

Demikian informasi dari saya tentang Mengurutkan Abjad Secara Ascending yang dapat saya sampaikan, semoga berguna dan dapat menambah pengetahuan bagi yang membacanya.