Foro de elhacker.net

[code]Public Class Form1
    Dim pool As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pool = ""

        
        If CheckBox2.Checked = True Then
            pool = pool & "Pedro"
            pool = pool & "Pablo"
            pool = pool & "Juan"
            pool = pool & "Jose"
        End If
        
        Dim count = 0
        Result.Text = ""

        Dim cc As New Random
        Dim strpos = ""
       

        End While

Option Strict On
Imports Microsoft.VisualBasic
Imports System

Module Module1
    Dim semilla As Integer
    Dim rnd As Random


    Sub Main()
        Dim num As Integer

        semilla = CInt(DateTime.Now.Ticks)
        ' Para que funcione Ticks
        ' debes quitar la comprobación de desbordamiento de enteros
        ' en las propiedades del proyecto, ficha compilación, opciones avanzadas

        rnd = New Random(semilla)

        For i As Integer = 1 To 10
            num = numeroaleatorio()
            Console.WriteLine("{0:00} {1}", i, num)
        Next
        Console.WriteLine()
        Console.WriteLine("Pulsa una tecla")
        Console.ReadKey()
    End Sub

    Function numeroaleatorio() As Integer
        Dim integro As Integer

        ' Prueba 1:
        ' El valor debe ser un integer válido,
        ' desde el numero 1  
        ' hasta la numero 4 
        integro = (rnd.Next(1, 5))

        ' Devolvemos el integer generado
        Return integro

    End Function
End Module

End Module