Scripting Games - 中国DOS联盟论坛 - 中国DOS联盟之联合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 ______

第1楼　electronixtar	发表于 2007-02-18 11:48
铂金会员　发帖 2,672　积分 7,493
[讨论]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 填空题： 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 ______

第2楼　slore	发表于 2007-02-19 10:07
铂金会员　发帖 2,478　积分 5,212
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