Nbyte.Inc

Excelente video sobre la historia de internet.

En este caso vamos a generar numeros pseudo-aleatorios , a continuacion paso a detallar como funciona el codigo.

1- Primero se inicializa la funcion randomize.Sirve para inicializa el generador de números aleatorios.
2- Creamos una variable para almacenar los numeros. En este caso la variable se llama VALUE
3- Luego se pasa el valor del la variable “VALUE” al textbox
4- En mi caso este codigo lo pegue en el evento click de un boton.

Randomize()
Dim value As Long = CInt(Int((Random.Next(1, 99999999) * 5 + 1)))
TextBox1.Text = value

Para mas informacion sobre como generar numeros
Microsoft Msdn

Esta pequeña aplicacion busca dentro de una cadena de numeros. Por ejemplo si queremos buscar dentro de la cadena “836510363″ la posicion en la que se encuentra el numero 5 entonces ingresamos el numero 5 y nos va a indicar la posicion del primer numero 5

Public Class Form1
Dim posición As Decimal
Dim testpos As Char

Function cantvocalesnuemros(ByVal numeros As String) As String
Dim num As String, totnum As Integer = 0
For Each num In numeros
If num >= 1 Then totnum += 1
Next
Return totnum
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = (“Cantidad de Numeros en la cadena:”) & cantvocalesnuemros(TextBox1.Text)
If TextBox1.Text < TextBox3.Text Then
MsgBox(“El elemento que busca es mayor a la cadena de numeros”)
End If
If TextBox3.Text <> “” Then
testpos = GetChar(TextBox1.Text, TextBox3.Text)
TextBox4.Text = (“El elemento: “) & TextBox3.Text & (” Tiene al numero: “) & (testpos)
Else : MsgBox(“Debe ingresar el elemento a buscar”)

End If
End Sub
End Class