小雷雷vbs作画

jjjjjtt   发布于 2017年03月23日   阅读次数: 3244   

Tag: vbs

do
a=Inputbox("输入画名,输入“退出”退出,画名:下雪了,坐标系,雪人")
if a="下雪了" then
msgbox"☀" & vbcrlf & vbcrlf & vbcrlf & "❃❃❃❃❃❃❃❃❃❃" & vbcrlf & "❃❃❃❃❃❃❃❃❃❃" & vbcrlf & "❃❃❃❃❃❃❃❃❃❃"
else if a="坐标系" then
msgbox"                    ↑                      " & vbcrlf & "                    ┃6                     " & vbcrlf & "                    ┃5                     " & vbcrlf & "                    ┃4        ┌───┐   " & vbcrlf & "                    ┃3        │      │   " & vbcrlf & "                    ┃2        │      │   " & vbcrlf & "                    ┃1        │      │   " & vbcrlf & "                    ┃         └──  ┘   " & vbcrlf & "━━━━━━━━━━╋━━━━━━━━━━→" & vbcrlf & "-9-8-7-6-5-4-3-2-1 0┃ 1 2 3 4 5 6 7 8 9    " & vbcrlf & "                    ┃                      " & vbcrlf & "                    ┃-1                    " & vbcrlf & "                    ┃-2                    " & vbcrlf & "                    ┃-3                    " & vbcrlf & "                    ┃-4                    " & vbcrlf & "                    ┃-5                   " & vbcrlf & "                    ┃-6                    "
else if a="雪人" then
msgbox"☀" & vbcrlf & vbcrlf & vbcrlf & "☃☃☃☃☃☃☃☃☃☃☃☃☃☃☃" & vbcrlf & "☃☃☃☃☃☃☃☃☃☃☃☃☃☃☃" & vbcrlf & "☃☃☃☃☃☃☃☃☃☃☃☃☃☃☃" & vbcrlf & "☃☃☃☃☃☃☃☃☃☃☃☃☃☃☃" & vbcrlf & "☃☃☃☃☃☃☃☃☃☃☃☃☃☃☃" & vbcrlf & "☃☃☃☃☃☃☃☃☃☃☃☃☃☃☃"
else if a="退出" then
exit do
end if
end if
end if
end if
loop