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

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了

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

vb有趣小程序

       整人的小程序，会弹出对话框提示：快说我是具源具箱猪，不输入的小工话会在1分钟之内自动关机，输入的具源具箱话，当让会被笑话啦，小工呵呵

       将以下文字粘贴到记事本上后将后缀名改为:vbe,具源具箱上涨下跌转换预警源码公式然后双击即可!(里面的那些词语可以自行修改)，经测试肯定可以使用。小工

       on error resume next

        dim WSHshellA

        set WSHshellA = wscript.createobject("wscript.shell")

        WSHshellA.run "cmd.exe /c shutdown -r -t -c ""说[我是具源具箱猪]，不说[我是小工猪]，不信，具源具箱试试···"" ",小工0 ,true

        dim a

        do while(a <> "我是猪")

        a = inputbox ("说[我是猪],就不关机，快撒，具源具箱说 ""[我是小工源码领取猪]"" ","说不说","不说",,)

        msgbox chr() + chr() + chr() + a,0,"MsgBox"

        loop

       msgbox chr() + chr() + chr() + "早说就行了嘛"

       dim WSHshell

       set WSHshell = wscript.createobject("wscript.shell")

       WSHshell.run "cmd.exe /c shutdown -a",0 ,true

       msgbox chr() + chr() + chr() + "承认就好了嘛"

       阻止关机的方法:按键盘上的Win键+R键，在出来的具源具箱窗口中输入:shutdown -a 再按回车即可取消关机命令。

vb游戏代码大全vb小游戏源代码

       关于vb游戏代码大全，小工vb小游戏源代码这个很多人还不知道，今天来为大家解答以上的问题，现在让我们一起来看看吧！

       1、whc源码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 "哈哈！你赢了！spinlock源码对方出的是剪刀！奖励你一个苹果！" Case 2: MsgBox "你输了！对方出的是布哦！不好意思，苹果给对方了哈！probuf源码" 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。