Scripting Games - China DOS Union Forum - 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 ______

Floor1　electronixtar	Posted 2007-02-18 11:48
铂金会员　Posts 2,672　Credits 7,493
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 ______

Floor2　slore	Posted 2007-02-19 10:07
铂金会员　Posts 2,478　Credits 5,212