Como Criar um Gerador de Palavras Avançado #1

Video aula # 2 Click aqui e assista para entender essa
Para fazer esse tutorial 

você ira precisar do 

Visual Studio Community que é a Versão Gratuita que usei

DOWNLOAD

Se Inscrevendo no

Meu Canal

VER Canal

--------------------------------------------------------------
Código do programa Completo

Public Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("o que eu faço")

        ComboBox1.Items.Add("o que eu quero")

        ComboBox1.Items.Add("o que eu pretendo")

    End Sub    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Select Case ComboBox1.SelectedIndex

            Case 0

                Dim key As Integer

                  key = (Rnd() * 5)

                Select Case key 

                Case 0

                    TextBox1.Text = ("Tutorial 1")

                Case 1

                    TextBox1.Text = ("Tutorial 2")

                Case 2

                    TextBox1.Text = ("Tutorial 3")

                Case 3

                    TextBox1.Text = ("Tutorial 4")

                Case 4

                    TextBox1.Text = ("Tutorial 5")

                Case 5

                    TextBox1.Text = ("Tutorial 6")

            End Select                            

                Case 1

                    Dim key As Integer

                      key = (Rnd() * 5)

                    Select Case key                                 

                    Case 0   

                        TextBox1.Text = ("gostei 1")

                    Case 1

                        TextBox1.Text = ("gostei 2")

                    Case 2

                        TextBox1.Text = ("gostei 3")

                    Case 3

                        TextBox1.Text = ("gostei 4")

                    Case 4

                        TextBox1.Text = ("gostei 5")

                    Case 5

                        TextBox1.Text = ("gostei 6")

                End Select

                Case 2

                    Dim key As Integer

                      key = (Rnd() * 5)

                    Select Case key                                   

                    Case 0                        

                        TextBox1.Text = ("gostei 1")                   

                    Case 1                        

                        TextBox1.Text = ("Ensinar 2")

                    Case 2

                        TextBox1.Text = ("Ensinar 3")

                    Case 3

                        TextBox1.Text = ("Ensinar 4")

                    Case 4

                        TextBox1.Text = ("Ensinar 5")

                    Case 5

                        TextBox1.Text = ("Ensinar 6")

                End Select                  

             End Select   

         End Sub

End Class

--------------------------------------------------------------

--------------------------------------------------------------