Kód: Vybrať všetko

Dim key As Integer

        For i As Integer = 0 To 4
            key = Int(Rnd() * 4)
            Select Case key
                Case 0
                    If TextBox1.Text = "1" Then

                        Do Until TextBox1.Text <> "1"
                            key = Int(Rnd() * 4)
                        Loop
                    Else
                        TextBox1.Text = "1"
                    End If

                Case 1

                    If TextBox1.Text = "2" Then

                        Do Until TextBox1.Text <> "2"
                            key = Int(Rnd() * 4)
                        Loop
                    Else
                        TextBox1.Text = "2"
                    End If

                Case 2

                    If TextBox1.Text = "3" Then

                        Do Until TextBox1.Text <> "3"
                            key = Int(Rnd() * 4)
                        Loop
                    Else
                        TextBox1.Text = "3"
                    End If

                Case 3

                    If TextBox1.Text = "4" Then

                        Do Until TextBox1.Text <> "4"
                            key = Int(Rnd() * 4)
                        Loop
                    Else
                        TextBox1.Text = "4"
                    End If

                Case 4

                    If TextBox1.Text = "5" Then

                        Do Until TextBox1.Text <> "5"
                            key = Int(Rnd() * 4)
                        Loop
                    Else
                        TextBox1.Text = "5"
                    End If

            End Select
            ListBox1.Items.Add(TextBox1.Text)
        Next i

Kód: Vybrať všetko

Do Until TextBox1.Text <> "1"
key = Int(Rnd() * 4)
Loop

je ekvivalentne:

Priraduj premennej key nahodnu hodnotu od 0 po 3 dovtedy, pokial hodnota TextBox1.Text bude "1".