Funciones en visual

Operadores en Visual

Mod (Operador, Visual Basic)Divide dos números y devuelve sólo el resto.number1 Mod number2
Partes--------------------------------------------------------------------------------number1
Obligatoria. Cualquier expresión numérica.

number2
Obligatoria. Cualquier expresión numérica.

Tipos admitidos----------------------------------------------------Todos los tipos numéricos. Esto incluye los tipos sin signo, los tipos de punto flotante y los tipos Decimal.
Resultado-------------------------------------------------El resultado es el resto que queda después de dividir number1 entre number2. Por ejemplo, la expresión 14 Mod 4 se evalúa como 2.

Comentario------------------------------------------Si number1 o number2 es un valor de coma flotante, se devuelve el resto en punto flotante de la división. El tipo de datos del resultado es el tipo de datos más pequeño que puede contener todos los valores posibles que resultan de la división con los tipos de datos de number1 y number2.

Si number1 o number2 se evalúa como Nothing, se trata como si fuese cero.

Los operadores relacionados son los siguientes:

\ (Operador, Visual Basic) devuelve el cociente entero de una división. Por ejemplo, la expresión 14 \ 4 se evalúa como 3.

El / (Operador, Visual Basic) devuelve el cociente completo, incluso el resto, como un número en punto flotante. Por ejemplo, la expresión 14 / 4 se evalúa como 3,5.

Intento de dividir por cero
Si number2 se evalúa como cero, el comportamiento del operador Mod depende del tipo de datos de los operandos. Una división de enteros produce una excepción DivideByZeroException. Una división de punto flotante devuelve NaN.

Fórmula equivalente
La expresión a Mod b es equivalente a cualquiera de las fórmulas siguientes:

a - (b * (a \ b))

a - (b * Fix(a / b))
Mid Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.
Public Shared Function Mid( _
ByVal str As String, _
ByVal Start As Integer, _
Optional ByVal Length As Integer _
) As String
Parámetros
--------------------------------------------------------------------------------
strRequerido. Expresión de tipo String de la que se devuelven caracteres.

StartRequerido. Expresión Integer. La posición inicial de los caracteres que se devuelven. Si Start es mayor que el número de caracteres de str, la función Mid devuelve una cadena de longitud cero (""). Start está basado en uno.

LengthOpcional. Expresión Integer. Número de caracteres que se va a devolver. Si se omite o si existen menos caracteres del número especificado por Length en el texto (incluido el carácter en la posición Start), se devuelven todos los caracteres desde la posición de inicio hasta el final de la cadena.

Ejemplo ---------------------------------------------
En este ejemplo se utiliza la función Mid para devolver un número de caracteres especificado de una cadena.
' Creates text string.
Dim TestString As String = "Mid Function Demo" ' Retorna "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3) ' Retorna "Demo".
Dim LastWord As String = Mid(TestString, 14, 4) ' Retorna "Function Demo".
Dim MidWords As String = Mid(TestString, 5)

------------------------------------
CÒDIGO EJERCICIO EN CLASE
------------------------------------

Public Class Form1
    Dim palabra As String
    Dim t As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Ingrese la frase")
        Else
            Label1.Text = "La longitud es: " & Len(TextBox1.Text)
            palabra = TextBox1.Text
            mover()
        End If
    End Sub
    Sub mover()
        For i = 1 To palabra.Length
            ListBox1.Items.Add(Mid(palabra, i, 1))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        caminar()
    End Sub
    Sub caminar()
        Timer1.Enabled = True
        Timer1.Interval = 1000
        Timer1.Start()
        Label2.Text = ""
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        t += 1
        Label2.Text = Label2.Text & Mid(palabra, t, 1)
        Label2.Left = Label2.Left + t
       
    End Sub
End Class

Archivo del Ejercicio
http://www.mediafire.com/?21037h6x8z3kgt3
----------------------------------------------
COMANDO PARA SHELL
----------------------------------------------
attrib /s /d -r -h -s