中国DOS联盟

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

填空题：

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 ______

i = 0
a = Array("Red", "Orange", "Yellow", "Green", "Blue", "Purple")

Do While i = 0
x = Inputbox("Enter a color: Red, Orange, Yellow, Green, Blue, Or Purple", "Color Selection")

If x = "" Then
Wscript.Echo "Action cancelled"
Exit Do
End If

y = Ucase(x)

For Each b In a
If Ucase(b) = y Then
i = 1
End If
Next

If i = 0 Then
Wscript.Echo "Invalid choice"
Else
Exit Do
End If
Loop

Select 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 Select