Imports System

Public Module Module1

    public sub dinosaur()

        dim question, question3(4), question2(4), question1(4), q as string

        dim answer, answer2(3) as string

        question1(0) = (""Do you like to eat meat?"

        question1(4) = "Do you like to eat meat?"

        question1(0) = "Do you like around with your friends?"

        question1(1) = "Are you clever?"

        question1(2) = "Are you big and scary?"

        question2(0) = "Can you run really fast?"

        question2(1) = "Are you good at defending yourself?"

        question2(2) = "Can you jump really high?"

        question3(0) = "Do you like crawling?"

        question3(1) = "Does everyone at school know your name?"

        question3(2) = "Do you have spiky hair?"

        question4(0) = "cool"

    end sub 

end module

​