标题: [讨论]Scripting Games [打印本页]

---

作者: electronixtar     时间: 2007-2-18 11:48    标题: [讨论]Scripting Games

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

填空题：

---

作者: slore     时间: 2007-2-19 10:07
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