Saludos,
- Jeje acabo de descargarme el Visual Basic Express 2005 para hacer la prueba XD:
http://go.microsoft.com/fwlink/?linkid=57033- Lo cierto es que lo más habitual es ver que usan aritmética sencilla para obtener rangos numéricos si se están trabajando números, por ejemplo si tengo el número 32 y quiero el 2, pues le saco el módulo (resto) de 10:
2 = 32 % 10
- Si quiero el 3, divido el 32 entre 10 y le substraigo el módulo
3 = 32 / 10 - ( ( 32 % 10 ) / 10 )
-- Puedes ahorrarte la resta y simplemente dividir si conviertes el resultado a Entero
Public Class Form1
Private Sub btnCalc_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnCalc.Click
Dim num As Integer = txtNum.Text
txtDer.Text = num Mod 10
txtIzq.Text = num / 10 - ((num Mod 10) / 10)
End Sub
End Class
- Otra opción es usar las funciones predefinidas para tratar texto, en este caso Substring:
Public Class Form1
Private Sub btnCalc_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnCalc.Click
txtDer.Text = txtNum.Text.Substring(1, 1)
txtIzq.Text = txtNum.Text.Substring(0, 1)
End Sub
End Class