VBS小游戏源码

猜数字先看源码： 这里面没有用循环而是用到了递归shell Randomize dim a,b,c c = msgbox ("若是什么也不输入,下一步点击肯定键,自动退出游戏,另须要提示随机数吗",1,"提示") a = int(round (rnd*100)) b = inputbox("请输入一个1~100整数:","猜数字") mysub a,b,c sub mysub (a,b,c)

>>阅读原文<<