有趣的vb小程序代码（vbs小程序代码）

今天数码之家小编天天来为大家解答以上的问题。有趣的vb小程序代码，vbs小程序代码相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、亲，代码如下哦：Dim WshShell,BtnCodeSet WshShell=WScript.CreateObject("***.Shell")Randomize()Num=Int(99*Rnd())BtnCode=WshShell.Popup("请猜数大于50",,"请选择",4+32)Select Case BtnCode Case 6 If Num>50 Then MsgBox "恭喜你，你赢了!" Else msgbox "你选错了哦。

2、别气馁!数字为：" & Num Case 7 If Num<50 Then MsgBox "恭喜你，你赢了!" Else msgbox "你选错了哦，别气馁!数字为：" & NumEnd Select。

本文就为大家分享到这里，希望小伙伴们会喜欢。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！