vb编程小游戏代码大全(vb编程代码大全高中)

大家好，今天小编来为大家解答vb编程小游戏代码大全这个问题，vb编程代码大全高中很多人还不知道，现在让我们一起来看看吧！

在vb中如何编写保存文件代码

1、VB写的代码为了方便下次调用或者修改，可以对其进行保存，那么该如何保存：首先打开VB，写简单写一行代码。

2、点击文件，选择保存Form1。

3、然后再点击文件，选择保存工程。

4、打开刚才保存所在的文件夹，可以看到保存下来的VB工程。

VB小游戏石头剪刀布设置代码

没有图全用字代替吧！很简单。创键三个command按钮就行了复制代码'1石头'2剪刀'3布PrivateSubForm_Load()Command1.Caption="石头"'改各个按钮的名字Command2.Caption="剪刀"Command3.Caption="布"EndSubPrivateSubCommand1_Click()'石头DimCPUAsIntegerDimaAsStringCPU=Int(Rnd*3)+1'Rnd生成大于0小于1之间的随机数，这里是生成1-3的随机数IfCPU=1Thena="石头，平局"IfCPU=2Thena="剪刀，玩家赢"IfCPU=3Thena="布，电脑赢"MsgBox"玩家出石头，电脑出"&aEndSubPrivateSubCommand2_Click()'剪刀DimCPUAsIntegerDimaAsStringCPU=Int(Rnd*3)+1IfCPU=1Thena="石头，电脑赢"IfCPU=2Thena="剪刀，平局"IfCPU=3Thena="布，玩家赢"MsgBox"玩家出剪刀，电脑出"&aEndSubPrivateSubCommand3_Click()'布DimCPUAsIntegerDimaAsStringCPU=Int(Rnd*3)+1IfCPU=1Thena="石头，玩家赢"IfCPU=2Thena="剪刀，电脑赢"IfCPU=3Thena="布，平局"MsgBox"玩家出布，电脑出"&aEndSub

VB编程1-1000数字的代码

所谓的水仙花数（梅花数）是指在三位整数(100到999之间)中，百位数、十位数、个位数的立方和等于它本身，如153=1^3+5^3+3^3。程序代码如下：

PrivateSubCommand1_Click()DimiAsInteger,sAsIntegerDimaAsInteger,bAsInteger,cAsIntegerPrint"100到999所有水仙花数（也叫梅花数）："

;Fori=100To999a=i\100'取百位数b=i\10Mod10'或b=iMod100\10取十位数c=iMod10‘取个位数s=a^3+b^3+c^3'水仙花数的判断依据Ifs=iThenPrinti;EndIfNextiEndSub运行结果：100到999所有水仙花数（也叫梅花数）：153370371407

求一个简单的vb小游戏制作代码

贪吃蛇PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)DimCAsLongIfKeyCode=27ThenEndIfKeyCode=32ThenIfTimer1.Enabled=TrueThenTimer1.Enabled=FalseLabel1.Visible=TrueElseTimer1.Enabled=TrueLabel1.Visible=FalseEndIfEndIfC=UBound(She)IfGFangXiang=TrueThenExitSubSelectCaseKeyCodeCase37IfShe(C).F=2ThenExitSubShe(C).F=0GFangXiang=TrueCase38IfShe(C).F=3ThenExitSubShe(C).F=1GFangXiang=TrueCase39IfShe(C).F=0ThenExitSubShe(C).F=2GFangXiang=TrueCase40IfShe(C).F=1ThenExitSubShe(C).F=3GFangXiang=TrueEndSelectEndSubPrivateSubForm_Load()Me.AutoRedraw=TrueMe.BackColor=&HC000&Me.FillColor=255Me.FillStyle=0Me.ScaleWidth=24Me.ScaleHeight=24Me.WindowState=2SetTimer1=Controls.Add("VB.Timer","Timer1")SetLabel1=Controls.Add("VB.Label","Label1")Label1.AutoSize=TrueLabel1.BackStyle=0Label1="暂停"Label1.ForeColor=RGB(255,255,0)Label1.FontSize=50ChuShiHuaEndSubPrivateSubForm_Resize()OnErrorGoTo1:WithMeIf.WindowState<>1Then.Cls.ScaleMode=3HWB=.ScaleHeight/.ScaleWidth.ScaleWidth=24.ScaleHeight=24Label1.Move(Me.ScaleWidth-Label1.Width)/2,(Me.ScaleHeight-Label1.Height)/2HuaTuMe.Line(X,Y)-(X+1,Y+1),RGB(255,255,0),BFEndIfEndWith1:EndSubPrivateSubTimer1_Timer()DimCAsLong,IAsLongOnErrorGoTo2:QingChuC=UBound(She)SelectCaseShe(C).FCase0IfZhuangTai(She(C).X-1,She(C).Y)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).X-1She(C).Y=She(C-1).YChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X-1,She(C).Y)=1ThenGoTo2:EndIfCase1IfZhuangTai(She(C).X,She(C).Y-1)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).XShe(C).Y=She(C-1).Y-1ChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X,She(C).Y-1)=1ThenGoTo2:EndIfCase2IfZhuangTai(She(C).X+1,She(C).Y)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).X+1She(C).Y=She(C-1).YChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X+1,She(C).Y)=1ThenGoTo2:EndIfCase3IfZhuangTai(She(C).X,She(C).Y+1)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).XShe(C).Y=She(C-1).Y+1ChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X,She(C).Y+1)=1ThenGoTo2:EndIfEndSelectZhuangTai(She(0).X,She(0).Y)=0ForI=0ToCSelectCaseShe(I).FCase0She(I).X=She(I).X-1Case1She(I).Y=She(I).Y-1Case2She(I).X=She(I).X+1Case3She(I).Y=She(I).Y+1EndSelectNextTiaoZheng1:GFangXiang=FalseZhuangTai(She(C).X,She(C).Y)=1HuaTuExitSub2:IfMsgBox("游戏结束，点“是”重新开始游戏，点“否”",vbYesNo,"贪吃蛇")=vbYesThenChuShiHuaElseEndEndIfEndSubPrivateSubChuShiHua()Me.ClsTimer1.Enabled=TrueTimer1.Interval=200EraseZhuangTaiReDimShe(2)She(0).F=2She(0).X=9She(0).Y=11ZhuangTai(9,11)=1She(1).F=2She(1).X=10She(1).Y=11ZhuangTai(10,11)=1She(2).F=2She(2).X=11She(2).Y=11ZhuangTai(11,11)=1HuaTuChanShengShiWuEndSubPrivateSubQingChu()DimIAsLongForI=0ToUBound(She)Me.Line(She(I).X,She(I).Y)-(She(I).X+1,She(I).Y+1),Me.BackColor,BFNextEndSubPrivateSubHuaTu()DimIAsLongForI=0ToUBound(She)Me.Circle(She(I).X+0.5,She(I).Y+0.5),0.49,RGB(255,255,0),,,HWBNextEndSubPrivateSubTiaoZheng()DimIAsLongForI=0ToUBound(She)-1She(I).F=She(I+1).FNextEndSubPrivateSubChanShengShiWu()RandomizeTimer1:X=Int(Rnd*24)Y=Int(Rnd*24)IfZhuangTai(X,Y)>0ThenGoTo1:ZhuangTai(X,Y)=2Me.Line(X,Y)-(X+1,Y+1),RGB(255,255,0),BFEndSub

vb编写加法运算

这个代码中PrivateSubCommand1_Click()Dimn1,n2AsIntegern1=Val(Text1.Text)n1=Val(Text2.Text)Label4.Caption=n1+n2EndSub第4行的n1显然应该是n2要知道一个VB与众不同规定Dimn1,n2asinteger要改成Dimn1asinteger,n2asinteger或者Dimn1asintegerDimn2asinteger

vb功能代码：多个身份认证，类似QQ登陆界面，无需联网登陆，帮忙给些具体代码谢谢

本地身份验证啊，做程序的登陆界面？

方法很多啊

1.对用户名，密码自己编写加密算法，生成固定长度字串写入系统注册表

2.对用户名，密码加密，生成固定长度字符串写入某隐秘的INI文件中。

3.直接写入本地的ACC数据库中。

具体代码挺长的。给你个思路。如果你不使用到数据库存储数据那么可以这样来。

第一步，读取本地硬盘物理序列号或者MAC地址，作为本地加密密匙。并且生成一个初始用户名和密码进入本地某个INI或者授权文件中。

第二步，自己写加密算法，将用户名和密码混合第一步生成的密匙，写入本地目录下某个INI或者任意授权文件中。

第三步，读取授权文件，发现不存在授权文件，或者读取授权文件解密发现不是初始密码和初始用户名，拒绝访问。

第四部，若存在授权文件，那么解密自己的加密授权文件，解析出用户名和密码，若用户名和密码符合，那么允许登陆程序。

关于本次vb编程小游戏代码大全和vb编程代码大全高中的问题分享到这里就结束了，如果解决了您的问题，我们非常高兴。