PROGRAM URUT BILANGAN

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim dataangka As String() = New String() {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text}

        Array.Sort(dataangka)

        URUTAN.Items.Clear()

        For Each str As String In dataangka

            URUTAN.Items.Add(str)

        Next

    End Sub

End Class