教你用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 creepercreeper屏顿幂垂=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 ifelse msgbox "接龙失败！重新再来。"end if