当前位置 > vb游戏代码大全vb游戏代码大全免费
-
vb小游戏源代码
Rem 窗体创建三个单选框按钮,Option1、Option2、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 Se...
2024-08-27 网络 更多内容 728 ℃ 43 -
求一个简单的vb小游戏制作代码?
Me.FillColor = 255Me.FillStyle = 0Me.ScaleWidth = 24Me.ScaleHeight = 24Me.WindowState = 2Set Timer1 = Controls.Add("VB.Timer", "Timer... = 1HuaTuExit Sub2:If MsgBox("游戏结束,点“是”重新开始游戏,点“否”", vbYesNo, "贪吃蛇") = vbYes ThenChuShiHuaElseEndEnd IfEnd Su...
2024-08-27 网络 更多内容 836 ℃ 807 -
关于VB代码一个掉字母的小游戏
Label1 = "z" ***.Top = 0 End Sub Private Sub Timer1_Timer() Static m Randomize Timer ***.Top = ***.Top + 100 If ***.Top > Form1.Height Then ***.Top = 0 Label1.Left = Int(Rnd * Form1.Width) Label1.Caption = Chr(Int(Rnd * 26 + 97)) m = m + 1 If m > 3 Then MsgBox "game over" En...
2024-08-27 网络 更多内容 812 ℃ 493 -
求简单的VB小游戏源代码
rem 窗体创建三个单选框按钮,option1、option2、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_cli...
2024-08-27 网络 更多内容 817 ℃ 999 -
vb小游戏源代码
Rem 窗体创建三个单选框按钮,Option1、Option2、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 Se...
2024-08-27 网络 更多内容 649 ℃ 377 -
求一个简单的vb小游戏制作代码
'猜数字,这个简单了吧.Private Sub Form_Load() Randomize num = Int(Rnd * 1000) str1 = "输入一个0到999间的整数" Do num1 = Val(InputBox(str1)) If num1 > num Then str1 = "大了" ElseIf num1 < num Then str1 = "小了" Else MsgBox "恭喜...
2024-08-27 网络 更多内容 404 ℃ 250 -
用VB做的猜数游戏代码!
'添加两个CommandButton 三个Label 一个Timer 设置Tiemr1.Interval=100 每次猜完数后单击窗体可继续游戏 Private Sub Command1_Click() Timer1.Enabled = False If Val(Label1.Caption) > Val(Label2.Caption) Then Label3.Caption = "左边大,回答正确" Else Label3.C...
2024-08-27 网络 更多内容 132 ℃ 814 -
求vb小游戏代码 谢谢
直接复制下面代码到代码框中后运行程序即可: Option Explicit Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim G... VB.Timer", "Timer1") Set Label1 = Controls.Add("VB.Label", "Label1") Label1.AutoSize = True Label1....
2024-08-27 网络 更多内容 602 ℃ 977 -
求VB小游戏代码
猜数字 控件: Text1 注意将MultiLine属性修改为True Command1 代码: Private Sub Command1_Click() Randomize Dim Num As Long Dim RightAnswer As Boolean Dim InputNum As Long Text1.Text = "" Num = Int(Rnd * 1000) + 1 RightAnswer = False Text1.Text = T...
2024-08-27 网络 更多内容 769 ℃ 482 -
求VB小游戏代码
猜数字 控件: Text1注意将MultiLine属性修改为True Command1 代码: PrivateSubCommand1_Click() Randomize DimNumAsLong DimRightAnswerAsBoolean DimInputNumAsLong Text1.Text="" Num=Int(Rnd*1000)+1 RightAnswer=False Text1.Text=Text1.Text+&quo...
2024-08-27 网络 更多内容 774 ℃ 615