【旧言系统代刷源码】【同城生活宝源码】【Shortny防红源码】简单vb源码_vb源码网

时间:2024-11-15 06:01:03 来源:excel 查看宏源码 分类:综合

1.vb游戏代码大全vb小游戏源代码
2.vb做一个简单的小程序

简单vb源码_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 "哈哈!源码源码你赢了!简单对方出的源码源码是剪刀!奖励你一个苹果!简单Shortny防红源码" Case 2: MsgBox "你输了!源码源码对方出的简单是布哦!不好意思,苹果给对方了哈!抖料app源码" 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了

       å·¥ç¨‹æ–‡ä»¶ç»™ä½ å‘过去了 后发的是修改过的 免去了需要修改路径的麻烦