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
Komentar
Posting Komentar