vb好玩的代码大全，vbs脚本常用经典代码

今天小编mail为大家分享的生活小常识，希望能够帮助到大家！

vb好玩的代码大全，好玩的vbs程序代码这个很多人还不知道,现在让我们一起来看看吧！

1、@echo offcolor 9fecho.&echo ╭——晨曦 拼图游戏——╮echo ╰——————————╯ping/n 1 127.1>nulecho ╭—— 4 —— 5 —— 6 —╮echo │ │echo │ ■■■■■■■■■■ │echo │ ■ ■ │echo │ ■ ■ │echo │ ■ ■ │echo │ ■ ■ │echo │ ■ ■ │echo │ ■ ■ │echo │ ■■■■■■■■■■ │echo │ │echo ╰—— 1 —— 2 —— 3 —╯ping/n 2 127.1>nulecho 上面的图形将拆分为6块并打乱顺序 ping/n 2 127.1>nulecho -echo 请使用小键盘的数字键选择图片，echo 拼出上面的图形。

2、echo.&ping/n 2 127.1>nulecho 按任意键开始游戏...pause>nulclscolor 0aset game=1set pic1= set pic2=■:main2clsif %game%==2 echo 请将符号"⊙"组成与前一关同样的形状set k41=%pic1%%pic1%%pic1%%pic1%&set k51=%pic1%%pic1%%pic1%%pic1%&set k61=%pic1%%pic1%%pic1%%pic1%set k42=%pic1%%pic2%%pic2%%pic2%&set k52=%pic2%%pic2%%pic2%%pic2%&set k62=%pic2%%pic2%%pic2%%pic1%set k43=%pic1%%pic2%%pic1%%pic1%&set k53=%pic1%%pic1%%pic1%%pic1%&set k63=%pic1%%pic1%%pic2%%pic1%set k44=%pic1%%pic2%%pic1%%pic1%&set k54=%pic1%%pic1%%pic1%%pic1%&set k64=%pic1%%pic1%%pic2%%pic1%set k45=%pic1%%pic2%%pic1%%pic1%&set k55=%pic1%%pic1%%pic1%%pic1%&set k65=%pic1%%pic1%%pic2%%pic1%set k11=%pic1%%pic2%%pic1%%pic1%&set k21=%pic1%%pic1%%pic1%%pic1%&set k31=%pic1%%pic1%%pic2%%pic1%set k12=%pic1%%pic2%%pic1%%pic1%&set k22=%pic1%%pic1%%pic1%%pic1%&set k32=%pic1%%pic1%%pic2%%pic1%set k13=%pic1%%pic2%%pic1%%pic1%&set k23=%pic1%%pic1%%pic1%%pic1%&set k33=%pic1%%pic1%%pic2%%pic1%set k14=%pic1%%pic2%%pic2%%pic2%&set k24=%pic2%%pic2%%pic2%%pic2%&set k34=%pic2%%pic2%%pic2%%pic1%set k15=%pic1%%pic1%%pic1%%pic1%&set k25=%pic1%%pic1%%pic1%%pic1%&set k35=%pic1%%pic1%%pic1%%pic1%set w=0 for /l %%i in (1,1,6) do set p%%i=7:getnum set /a x=%random%%%6+1 if %x%==%p1% goto getnum if %x%==%p2% goto getnum if %x%==%p3% goto getnum if %x%==%p4% goto getnum if %x%==%p5% goto getnum if %x%==%p6% goto getnum set /a p%w%=%x%+0set /a w=w+1 if %w%==7 goto begin goto getnum :begin:startfor /l %%i in (1,1,5) do set p1%%i=k%p1%%%ifor /l %%i in (1,1,5) do set p2%%i=k%p2%%%ifor /l %%i in (1,1,5) do set p3%%i=k%p3%%%ifor /l %%i in (1,1,5) do set p4%%i=k%p4%%%ifor /l %%i in (1,1,5) do set p5%%i=k%p5%%%ifor /l %%i in (1,1,5) do set p6%%i=k%p6%%%iecho @echo off>temp_***.batecho echo ╭—— 4 —— 5 —— 6 —╮>>temp_***.batecho echo │%%%p41%%%%%%p51%%%%%%p61%%%│>>temp_***.batecho echo │%%%p42%%%%%%p52%%%%%%p62%%%│>>temp_***.batecho echo │%%%p43%%%%%%p53%%%%%%p63%%%│>>temp_***.batecho echo │%%%p44%%%%%%p54%%%%%%p64%%%│>>temp_***.batecho echo │%%%p45%%%%%%p55%%%%%%p65%%%│>>temp_***.batecho echo │%%%p11%%%%%%p21%%%%%%p31%%%│>>temp_***.batecho echo │%%%p12%%%%%%p22%%%%%%p32%%%│>>temp_***.batecho echo │%%%p13%%%%%%p23%%%%%%p33%%%│>>temp_***.batecho echo │%%%p14%%%%%%p24%%%%%%p34%%%│>>temp_***.batecho echo │%%%p15%%%%%%p25%%%%%%p35%%%│>>temp_***.batecho echo ╰—— 1 —— 2 —— 3 —╯ >>temp_***.batecho.&echo ╭——晨曦 拼图游戏——╮echo ╰——————————╯call temp_***.batif %p1%==1 if %p2% ==2 if %p3% == 3 if %p4% ==4 if %p5% ==5 if %p6% ==6 goto jobdonedel temp_***.batset /p m=请选择一张图片(输入1~6):for /l %%i in (1,1,6) do if %m%==%%i goto inputn echo 输入有误!&ping/n 2 127.1>nul&cls&goto start :inputn set /p n=与这张图片交换(输入1~6): for /l %%i in (1,1,6) do if %n%==%%i goto inputover echo 输入有误!&ping/n 2 127.1>nul&cls&goto start:inputoverclsFOR /L %%i IN (1,1,6) do if %m%==%%i echo set p%%i=%%p%n%%%^&set p%n%=%%p%%i%%>temp_***.bat&call temp_***.bat&del temp_***.batFOR /L %%i IN (1,1,6) do if %n%==%%i echo set p%%i=%%p%n%%%>temp_***.bat&call temp_***.bat&del temp_***.batgoto start:jobdoneclscall temp_***.batdel temp_***.batcolor 9eecho ****************************echo ****-----恭喜过关!! -----***echo ****************************ping/n 3 127.1>nulcolor 9aping/n 1 127.1>nulcolor 9bping/n 1 127.1>nulcolor 9cping/n 1 127.1>nulcolor 9dping/n 1 127.1>nulcolor 9eping/n 1 127.1>nulcolor 9fping/n 1 127.1>nul:textcolor 9fecho ^>^>^>ping/n 3 127.1>nulif %game%==2 goto endgameecho 1.进入下一关[enter]echo 2.退出goto choice:endgameecho 1.重新开始[enter]echo 2.退出:choiceset play=1set /p play=请选择：if %play%==1 set pic1=○&set pic2=⊙&set game=2&goto main2if %play%==2 exit。

Luochuanren.Com洛川人-综合信息门户网站，涵盖生活常识、美食、创业、体育、旅游、家居、汽车、财经、互联网、科技、房产、教育等资讯。