请问vbs文件如何制作一个可以运行的小游戏

一般VBS只能做文字的小游戏，如猜数，以下是参考网上的Randomizedim a,b,cc = msgbox ("如果什么也不输入,下一步点击确定键,自动退出游戏,另需要提示随机数吗",1,"提示")a = int(round (rnd*100))b = inputbox("请输入一个1~100整数:","猜数字")mysub a,b,csub mysub (a,b,c)if (c=1) thenmsgbox ("随机数："&a&",我输入的："&b)end ifif not isnumeric(b) thenmsgbox "退出游戏"elseselect case sgn(b-a)case 0msgbox "恭喜答对"case 1msgbox "输入的数值太大了"b = inputbox("请输入一个1~100整数:","猜数字")mysub a,b,ccase -1msgbox "输入的数值太小了"b = inputbox("请输入一个1~100整数:","猜数字")mysub a,b,cend selectend ifend sub