Foro de elhacker.net

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim a As Byte
        Dim b As Byte
        Dim c As Byte
        Dim d As Byte
 
        Textbox1.Text = ""
 
        For a = 1 To 4
            For b = 1 To 4
                For c = 1 To 4
                    For d = 1 To 4
                        If a = b Or a = c Or a = d Or b = c Or b = d Or c = d Then
                        Else
                            TextBox2.Text = TextBox1.Text & a & b & c & d & vbCrLf
                        End If
                    Next d
                Next c
            Next b
        Next a
    End Sub
 
End Class

Public Class Form1
 
    ''' <summary>
    ''' Tu array numérico.
    ''' </summary>
    Private IntArray As Integer() =
    {
        10I, 20I, 30I, 40I, 50I, 60I, 70I, 80I, 90I
    }
 
    Private Sub Button1_Click() Handles Button1.Click
 
        TextBox2.Text = String.Join("; ", RandomizeArray(IntArray))
        ' TextBox2.Text = String.Join(Nothing, RandomizeArray(arr))
 
    End Sub
 
    ' By Elektro
    '
    ''' <summary>
    ''' Randomizes the elements of the given Collection.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="Collection">Indicates the Collection to randomize.</param>
    ''' <returns>IEnumerable{``0}.</returns>
    Public Function RandomizeArray(Of T)(ByVal Collection As IEnumerable(Of T)) As IEnumerable(Of T)
 
        Dim Randomizer As New Random
        Return (From Item As T In Collection Order By Randomizer.Next).ToArray
 
    End Function
 
End Class

Public Class Form1
 
    ''' <summary>
    ''' Tu array numérico.
    ''' </summary>
    Private IntArray As Integer() =
    {
        10I, 20I, 30I, 40I, 50I, 60I, 70I, 80I, 90I
    }
 
    Private Sub Button1_Click() Handles Button1.Click
 
        TextBox2.Text = String.Join("; ", RandomizeArray(IntArray))
        ' TextBox2.Text = String.Join(Nothing, RandomizeArray(arr))
 
    End Sub
 
    ' By Elektro
    '
    ''' <summary>
    ''' Randomizes the elements of the given Collection.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="Collection">Indicates the Collection to randomize.</param>
    ''' <returns>IEnumerable{``0}.</returns>
    Public Function RandomizeArray(Of T)(ByVal Collection As IEnumerable(Of T)) As IEnumerable(Of T)
 
        Dim Randomizer As New Random
        Return (From Item As T In Collection Order By Randomizer.Next).ToArray
 
    End Function
 
End Class

Public Class Form1
 
    Private TextBoxes As TextBox() = {Nothing}
    Private Result1 As Int32()
    Private _textBox As Object
    Private Property ListBox1Count As Integer
    Private Property Calcular As Object
 
    Private Property TextBox(ByVal TextBoxCount As Short) As Object
        Get
            Return _textBox
        End Get
        Set(ByVal value As Object)
            _textBox = value
        End Set
    End Property
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
 
    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
 
        Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray
    End Sub
    Private Sub Button1_Click() Handles Button1.Click
 
        TextBox2.Text = String.Join(Nothing, RandomizeArray(Result1))
 
    End Sub
 
 
    Public Function RandomizeArray(Of T)(ByVal Collection As IEnumerable(Of T)) As IEnumerable(Of T)
 
        Dim Randomizer As New Random
        Return (From Item As T In Collection Order By Randomizer.Next).ToArray
 
    End Function
 
 
End Class

TextBox2.Text = String.Join("; ", RandomizeArray(IntArray))

String.Join(Separador, Colección)

MsgBox(String.Join(Convert.ToChar(Keys.Space), {1I, 2I, 3I, 4I, 5I}.ToArray))

Public Class Form1
 
    Private Shadows Sub Shown() Handles MyBase.Shown
 
        Dim Elementos As Integer() =
        {
          1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
          11, 12, 13, 14, 15, 16, 17, 18
        }
 
        For X As Integer = 0 To Elementos.Count - 1 Step 4
 
            MessageBox.Show(
                String.Format("{0} {1} {2} {3}",
                    Elementos(X),
                    If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                    If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                    If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty),
                    "Cuatro Elementos"
                )
            )
 
        Next X
 
        Application.Exit()
 
    End Sub
 
End Class

    Public Class Form1
 
    Private Sub Form1_Load() Handles MyBase.Load
 
        Dim Elementos As Integer() =
        {
          1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
          11, 12, 13, 14, 15, 16, 17, 18
        }
 
        Dim Cantidad As Integer = 4
 
        Dim Primeros_Cuatro_Elementos As Integer() =
            (From Elemento As Integer In Elementos
             Take Cantidad).ToArray
 
        Dim Siguientes_Cuatro_Elementos As Integer() =
            (From Elemento As Integer In Elementos
             Skip Primeros_Cuatro_Elementos.Count
             Take Cantidad).ToArray
 
        Dim Todo_El_Resto_De_Elementos As Integer() =
            (From Elemento As Integer In Elementos
             Skip Primeros_Cuatro_Elementos.Count _
             +
             Siguientes_Cuatro_Elementos.Count).ToArray
 
        MessageBox.Show(String.Join(Convert.ToChar(Keys.Space), Primeros_Cuatro_Elementos), "Primeros_Cuatro_Elementos")
        MessageBox.Show(String.Join(Convert.ToChar(Keys.Space), Siguientes_Cuatro_Elementos), "Siguientes_Cuatro_Elementos")
        MessageBox.Show(String.Join(Convert.ToChar(Keys.Space), Todo_El_Resto_De_Elementos), "Todo_El_Resto_De_Elementos")
 
        Application.Exit()
 
    End Sub
 
End Class

Public Class Form1
 
    Private Shadows Sub Shown() Handles MyBase.Shown
 
        Dim Elementos As Integer() =
        {
          1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
          11, 12, 13, 14, 15, 16, 17, 18
        }
 
        For X As Integer = 0 To Elementos.Count - 1 Step 4
 
            MessageBox.Show(
                String.Format("{0} {1} {2} {3}",
                    Elementos(X),
                    If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                    If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                    If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty),
                    "Cuatro Elementos"
                )
            )
 
        Next X
 
        Application.Exit()
 
    End Sub
 
End Class

For X As Integer = 0 To Elementos.Count - 1 Step 4
 
    MessageBox.Show(
        String.Format("{0} {1} {2} {3}",
                      Elementos(X),
                      If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                      If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                      If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty), "Cuatro Elementos"))
 
Next X

For X As Integer = 0 To Elementos.Count - 1 Step 4
 
    ListBox1.Items.Add(
        String.Format("{0} {1} {2} {3}",
                      Elementos(X),
                      If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                      If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                      If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty)))
 
Next X