教你用vbs做一个Creeper接龙

1、创建一个记事本，另存为为vbs格式，选择ANSI编码。

2、右键刚刚新建的文档，选择“编辑”，此时蹦出一个空白的文本文档。

3、复制以下代码到空白文档里：

dim creeper

'新建一个变量，确认是否为指定文本

 

creeper=inputbox("请输入：Creeper?以开始接龙")

'用刚建完的变量制造一个输入框

if creeper="Creeper?" then

 

    dim cr1

 

    cr1=inputbox("Awwman!")

'检测输入文本是否为"Creeper?"

else

 

    msgbox "接龙失败！重新再来。"

 

end if

'如果输入错误会直接关闭程序

4、此为小编没有做完的半成品，供大家参考：

dim creeper

 

creeper=inputbox("来玩接龙游戏吧！输入:Creeper?")

 

if creeper="Creeper?" then

 

    dim cr1

 

    cr1=inputbox("Awwman!（首字母大写~）")

 

    if cr1="So we back in the mine" then

 

        dim cr2

 

        cr2=inputbox("Got our pickaxe swinging from side to side")

 

        if cr2="Side side to side" then

 

            dim cr3

 

            cr3=inputbox("This task,a grueling one")

 

            if cr3="Hope to find some diamonds tonight,night,night" then

 

                dim cr4

 

                cr4=inputbox("Diamonds tonight")

 

            else

 

                msgbox "接龙失败！重新再来。"

 

                end if

 

        else

 

            msgbox "接龙失败！重新再来。"

 

            end if

 

    else

 

        msgbox "接龙失败！重新再来。"

 

        end if

 

else

 

    msgbox "接龙失败！重新再来。"

 

end if