Advertisement
Guest User

Untitled

a guest
Sep 19th, 2019
133
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  4.  
  5. End Sub
  6.  
  7. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  8.  
  9. End Sub
  10.  
  11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  12.  
  13.  
  14. Dim a As Integer = TextBox1.Text
  15. Dim b As Integer = TextBox2.Text
  16. Dim c As Integer = TextBox3.Text
  17. Dim d As Integer = TextBox4.Text
  18. Dim e1 As Integer = TextBox5.Text
  19. Dim f As Integer = TextBox6.Text
  20. Dim g As Integer = TextBox7.Text
  21. Dim h As Integer = TextBox8.Text
  22. Dim i As Integer = TextBox9.Text
  23. Dim j As Integer = TextBox10.Text
  24.  
  25. Dim sortTab(2) As String
  26. sortTab(0) = a
  27. sortTab(1) = b
  28. sortTab(2) = c
  29. sortTab(3) = d
  30. sortTab(4) = e1
  31. sortTab(5) = f
  32. sortTab(6) = g
  33. sortTab(7) = h
  34. sortTab(8) = i
  35. sortTab(9) = j
  36.  
  37. Array.Sort(sortTab)
  38.  
  39. TextBox11.Text = a
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement