China DOS Union

http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true


Competitors’ Pack
http://download.microsoft.com/download/6/1/d/61d254b4-476c-48e2-a1f1-333d6e46d771/competitors_pack.exe

Fill in the blanks:

i = 0

a = ______("Red","Orange","Yellow","Green","Blue","Purple")



Do ______ i = 0

    x = InputBox("Enter a color: Red, Orange, Yellow, Green, Blue, or Purple", "Color Selection")



    If x = "" Then

        Wscript.Echo "Action cancelled"

        Exit ______

    End If



    y = UCase(x)



    For Each b In a

        If ______(b) = y Then

            i = 1

        End If

    Next



    If i = 0 Then

        ______ "Invalid choice"

    Else

        Exit Do

    End If

______



______ Case y

    case "RED"

        Wscript.Echo "You entered RED"

    case "ORANGE"

        Wscript.Echo "You entered ORANGE"

    case "YELLOW"

        Wscript.Echo "You entered YELLOW"

    case "GREEN"

        Wscript.Echo "You entered GREEN"

    case "BLUE"

        Wscript.Echo "You entered BLUE"

    case "PURPLE"

        Wscript.Echo "You entered PURPLE"

End ______