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
