制作一个vbs小程序（代码）

微信公开课小程序热门讨论「制作一个vbs小程序（代码）」最新回复-亲，代码如下哦：DimWshShell,BtnCodeSetWshShell=WScript.CreateObject(WScript.Shell)Randomize()Num=Int(99*Rnd())BtnCode=WshShell.Popup(请猜数大于50,,请选择,4+32)SelectCaseBtnCodeCase6IfNum50ThenMsgBox恭喜你，你赢了!Elsemsgbox你选错了哦，别气馁!数字为：&NumCase7IfNum50ThenMsgBox恭喜你，你赢了!Elsemsgbox你选错了哦，别气馁!数字为：&NumEndSelect
请看我的终极代码:OnErrorResumeNextDimnum,var,writer,won,hDimh=Chr(13)writer=▉◎◎控盘惨制作◎◎▉-Variables.DoRandomize()num=Int(Rnd()*100)var=MsgBox(我等一下会给出一个数字哦~你猜猜它是不是大于50呢?+h+h+▲注意:如要退出程序请点击取消或右上角的X按钮,3+64,writer+请猜数大于50还是小于50)SelectCasevarCase6\\\\ifnum50Thenwon=0elseifnum=50Thenwon=1elsewon=2EndifEndif\\\\Case7\\\\ifnum50Thenwon=0elseifnum=50Thenwon=1elsewon=2EndifEndif\\\\CaseElseWscript.QuitEndSelectSelectCasewonCase0MsgBox恭喜你，你赢了!+h+h+⊙数字=&num,0+64,writer+InformationCase1MsgBox呵呵,平局,再来~+h+h+⊙数字=&num,0+64,writer+InformationCase2MsgBox你选错了哦，别气馁+h+h+⊙数字=&num,0+64,writer+InformationEndSelectLoop我的代码考虑到了随机数可能等于50,并且制作了相关处理.并且随机数范围是100,这样的随机数几率才各占50%.比那个什么lurong777的先进10000倍!!! 更多有关「制作一个vbs小程序（代码）」的疑问请扫码关注微信公开课+小程序！了解更多