1.vb游戏代码大全vb小游戏源代码
2.vbåä¸ä¸ªç®åçå°ç¨åº
vb游戏代码大全vb小游戏源代码
关于vb游戏代码大全,简单vb小游戏源代码这个很多人还不知道,源码源码今天来为大家解答以上的简单问题,现在让我们一起来看看吧!源码源码
1、简单源码资本何楠Rem 窗体创建三个单选框按钮,源码源码快餐小程序源码OptionOption2、简单Option3 Private Sub Form_Activate() Option1.Caption = "石头" Option2.Caption = "剪刀" Option3.Caption = "布" Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "对方也出石头!源码源码继续!简单" Case 1: MsgBox "哈哈!源码源码你赢了!简单对方出的源码源码是剪刀!奖励你一个苹果!简单luci 源码怎么用" Case 2: MsgBox "你输了!源码源码对方出的简单是布哦!不好意思,苹果给对方了哈!捞腌菜棋牌源码" End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "你输了!对方出的是石头哦!不好意思。
2、卡盟源码搭建苹果给对方了哈!" Case 1: MsgBox "对方也出剪刀!继续!" Case 2: MsgBox "哈哈!你赢了!对方出的是布!奖励你一个苹果!" End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "哈哈!你赢了!对方出的是石头!奖励你一个苹果!" Case 1: MsgBox "你输了!对方出的是剪刀哦!不好意思,苹果给对方了哈!" Case 2: MsgBox "对方也出布!继续!" End Select Option3.Value = False End Sub。
vbåä¸ä¸ªç®åçå°ç¨åº
Option Explicit
Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub
Private Sub Timer1_Timer()
End
End Sub
建ä¸ä¸ªæ è¾¹æ¡çªä½,å¤å¶ä¸é¢ä»£ç è¿å»å°±OKäº
å·¥ç¨æ件ç»ä½ åè¿å»äº ååçæ¯ä¿®æ¹è¿ç å å»äºéè¦ä¿®æ¹è·¯å¾ç麻ç¦