Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
- End Sub
- Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim a As Integer = TextBox1.Text
- Dim b As Integer = TextBox2.Text
- Dim c As Integer = TextBox3.Text
- Dim d As Integer = TextBox4.Text
- Dim e1 As Integer = TextBox5.Text
- Dim f As Integer = TextBox6.Text
- Dim g As Integer = TextBox7.Text
- Dim h As Integer = TextBox8.Text
- Dim i As Integer = TextBox9.Text
- Dim j As Integer = TextBox10.Text
- Dim sortTab(2) As String
- sortTab(0) = a
- sortTab(1) = b
- sortTab(2) = c
- sortTab(3) = d
- sortTab(4) = e1
- sortTab(5) = f
- sortTab(6) = g
- sortTab(7) = h
- sortTab(8) = i
- sortTab(9) = j
- Array.Sort(sortTab)
- TextBox11.Text = a
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement