Система типов данных VB Лекция 4

 

 

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n(20) As String
Dim sep_arr() As Char = {}
Dim i As Integer = 0
TextBox2.Text = ""
n = TextBox1.Text.Split(sep_arr, StringSplitOptions.RemoveEmptyEntries)
Dim len As Integer = n.Length()
For i = len - 1 To 0 Step -1
TextBox2.Text = TextBox2.Text + n(i) + vbNewLine
Next
TextBox1.Text = ""
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
End Class

ФОТО