Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cadena As String = LCase(Trim(TextBox2.Text))
Dim v() As String
v = cadena.Split(" ")
Label3.Text = v(0).ToString & v(1).ToString
Label4.Text = Mid(v(0).ToString, 1, 3) & Mid(v(1).ToString, 1, 3)
End Sub
Para nota: recorrer el Array v() con un For
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario