做一个VB的小游戏，难度不用太高，程序十句左右就够了，只要简单的和case语句 就足够了，希望在线的帮下忙
来自： 更新日期：早些时候
求一个简单的VB小游戏程序~
Private Sub Command1_Click()
Iguess = Int(Rnd * 3) + 1
Do
YouGuess = Val(InputBox("我已想好了，你出什么？（1=锤子， 2=剪刀，3=布：", "猜拳"))
Loop Until YouGuess <= 3 And YouGuess >= 1
If Iguess = YouGuess Then
k = 1
ElseIf Iguess < YouGuess Xor Abs(Iguess - YouGuess) = 2 Then
k = 2
Else
k = 0
End If
MsgBox "我出：" + Mid("锤子剪刀布 ", Iguess * 2 - 1, 2) + "，你出：" + _
Mid("锤子剪刀布 ", YouGuess * 2 - 1, 2) + vbCrLf + Mid("你赢了平 局我赢了", k * 3 + 1, 3)
End Sub
Private Sub Form_Load()
Command1.Caption = "开始猜拳"
Randomize Timer
End Sub
把我的双色球选号器发给你好不？
做一个VB的小游戏，难度不用太高，程序十句左右就够了，只要简单的和case语句 就足够了，希望在线的帮下忙视频
相关评论：19493846977：做一个VB的小游戏,难度不用太高,程序十句左右就够了,只要简单的和case语...
葛莎叛' 锤子剪刀布 Private Sub Command1_Click()Iguess = Int(Rnd * 3) + 1 Do YouGuess = Val(InputBox("我已想好了，你出什么？（1=锤子， 2=剪刀，3=布：", "猜拳"))Loop Until YouGuess <= 3 And YouGuess >= 1 If Iguess = YouGuess Then k = 1 ElseIf Iguess < YouGuess...
19493846977：如何用vb编写小游?
葛莎叛要使用VB编写一个小游戏，首先需要在Visual Basic环境中创建一个新的Windows Forms应用程序。点击“文件”菜单，选择“新建项目”，在弹出的窗口中选择“Windows Forms应用程序”。在新打开的项目中，你可以看到一个空白的窗体。在这个窗体上可以添加各种控件，例如按钮、文本框、图片框等，以构建游戏界面。...
19493846977：...随便什么都行,简单的小游戏,我会追加 的~~!!
葛莎叛MsgBox " BS贪食蛇:一个规则最简单的趣味游戏,您将用键盘" & Chr(13) & _ "上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _ "不能后退,蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _ "和蛇自己的身体,否则就游戏失败。在吃掉随机出现的" & Chr(13) & _ "果子...
19493846977：急求一个简单的VB小游戏(不要猜数字和打地鼠)
葛莎叛Timer1.Interval = 150 End Select End Sub Private Sub Form_Load()Form1.KeyPreview = True Timer1.Interval = 150 Command1.Caption = "开始"End Sub Private Sub Timer1_Timer()Randomize For i = 1 To 19 l1(i) = l1(i + 1)l2(i) = l2(i + 1)drawway (i)Next i Do l1(2...
19493846977：急!!vb简易的小游戏代码,不要太复杂,不过石头剪刀布那种就算了_百度知 ...
葛莎叛简易三国志 创建9个command，1个timer，时间20000,9个text，6个farm。布置如图 代码如下 Private Sub Form_Load()Text1.Text = "100" '我方剩余士兵 Text2.Text = "170" '对方剩余士兵 Text3.Text = "180" '对方剩余士兵 Text4.Text = "200" '对方剩余士兵 Text5.Text = "500" '金钱 ...
19493846977：用VB编写一个小游戏
葛莎叛用VB编写一个小游戏 是用visualstudio里VB的window窗口来做。做一个跟电脑玩21点的游戏。我只会随机的发自己和电脑各两张牌,然后怎么加牌,和最后怎么判断谁赢不知道怎么弄的,牌有52张是按照序号1-52来... 是用visual studio里VB的window窗口来做。做一个跟电脑玩21点的游戏。我只会随机的发自己和电脑各两...
19493846977：如何编写一套完整的VB小游戏程序
葛莎叛如果只是几百或者1千行并且不是太复杂的小游戏的话,并且不希望非常大的扩展下去,那就随便画画草图脑子有个大概思路就差不多可以开始了.如果楼主想用vb做,那可能不太合适,本人也只是用过它做过一些俄罗斯方块,贪食蛇之类的小游戏还有类似斗地主那样的牌类游戏.简单的说吧,首先你要知道你想做什么,并且...
19493846977：求做vb射击小游戏
葛莎叛用VB做这种程序不太适合。首先，画图，必须用directDRAW，而且应该有多重背景的。飞机应该是那种有透明区域的。可能还要用那种alpha效果。爆炸效果什么的。再者，键盘方面，游戏一般是要求多个按钮可以同时按的，这个要用directInput。一般最多可以5~6个按钮按下都没问题。如果要声音、音乐，还得用direct...
19493846977：如何用vb做一个小游戏
葛莎叛1、首先双击桌面图标启动 visual basic 6.0。2、然后新建工程，选择标准EXE。3、选择完工程后，点击打开，就可以新建一个exe工程了。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click() 事件中。5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^...
19493846977：求VB小游戏,简单一点,越简单越好
葛莎叛winner = winner + 1 End If Next i If winner = 8 Then MsgBox " 恭喜您,胜利了!", 0 + 64 + 0, "提示" Picture1.Enabled = False answer = MsgBox("还继续吗?", 4 + 32 + 0, "提示") If answer = vbYes Then Command1.Enabled = True Else End End If End IfEnd Sub弹球游戏 Dim ...
我有vb游戏源码:扫雷\俄罗斯方块\贪食蛇
要的话给我发消息
我的空间里有
猜数字
四子棋
开箱子等游戏 你可以去看看 都是源代码
http://hi.baidu.com/comeonbady/blog
Private Sub Command1_Click()
Iguess = Int(Rnd * 3) + 1
Do
YouGuess = Val(InputBox("我已想好了，你出什么？（1=锤子， 2=剪刀，3=布：", "猜拳"))
Loop Until YouGuess <= 3 And YouGuess >= 1
If Iguess = YouGuess Then
k = 1
ElseIf Iguess < YouGuess Xor Abs(Iguess - YouGuess) = 2 Then
k = 2
Else
k = 0
End If
MsgBox "我出：" + Mid("锤子剪刀布 ", Iguess * 2 - 1, 2) + "，你出：" + _
Mid("锤子剪刀布 ", YouGuess * 2 - 1, 2) + vbCrLf + Mid("你赢了平 局我赢了", k * 3 + 1, 3)
End Sub
Private Sub Form_Load()
Command1.Caption = "开始猜拳"
Randomize Timer
End Sub
把我的双色球选号器发给你好不？
可以用VB的那个程序发到我QQ邮箱吗？？我没听课，老师要交作业，麻烦了
1）运行VB,
2） 新建“标准EXE”,
3）加一个command按钮，
4）将上面的程序拷贝到程序页面
5）运行就行了
做一个VB的小游戏，难度不用太高，程序十句左右就够了，只要简单的和case语句 就足够了，希望在线的帮下忙视频
相关评论：
葛莎叛' 锤子剪刀布 Private Sub Command1_Click()Iguess = Int(Rnd * 3) + 1 Do YouGuess = Val(InputBox("我已想好了，你出什么？（1=锤子， 2=剪刀，3=布：", "猜拳"))Loop Until YouGuess <= 3 And YouGuess >= 1 If Iguess = YouGuess Then k = 1 ElseIf Iguess < YouGuess...
葛莎叛要使用VB编写一个小游戏，首先需要在Visual Basic环境中创建一个新的Windows Forms应用程序。点击“文件”菜单，选择“新建项目”，在弹出的窗口中选择“Windows Forms应用程序”。在新打开的项目中，你可以看到一个空白的窗体。在这个窗体上可以添加各种控件，例如按钮、文本框、图片框等，以构建游戏界面。...
葛莎叛MsgBox " BS贪食蛇:一个规则最简单的趣味游戏,您将用键盘" & Chr(13) & _ "上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _ "不能后退,蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _ "和蛇自己的身体,否则就游戏失败。在吃掉随机出现的" & Chr(13) & _ "果子...
葛莎叛Timer1.Interval = 150 End Select End Sub Private Sub Form_Load()Form1.KeyPreview = True Timer1.Interval = 150 Command1.Caption = "开始"End Sub Private Sub Timer1_Timer()Randomize For i = 1 To 19 l1(i) = l1(i + 1)l2(i) = l2(i + 1)drawway (i)Next i Do l1(2...
葛莎叛简易三国志 创建9个command，1个timer，时间20000,9个text，6个farm。布置如图 代码如下 Private Sub Form_Load()Text1.Text = "100" '我方剩余士兵 Text2.Text = "170" '对方剩余士兵 Text3.Text = "180" '对方剩余士兵 Text4.Text = "200" '对方剩余士兵 Text5.Text = "500" '金钱 ...
葛莎叛用VB编写一个小游戏 是用visualstudio里VB的window窗口来做。做一个跟电脑玩21点的游戏。我只会随机的发自己和电脑各两张牌,然后怎么加牌,和最后怎么判断谁赢不知道怎么弄的,牌有52张是按照序号1-52来... 是用visual studio里VB的window窗口来做。做一个跟电脑玩21点的游戏。我只会随机的发自己和电脑各两...
葛莎叛如果只是几百或者1千行并且不是太复杂的小游戏的话,并且不希望非常大的扩展下去,那就随便画画草图脑子有个大概思路就差不多可以开始了.如果楼主想用vb做,那可能不太合适,本人也只是用过它做过一些俄罗斯方块,贪食蛇之类的小游戏还有类似斗地主那样的牌类游戏.简单的说吧,首先你要知道你想做什么,并且...
葛莎叛用VB做这种程序不太适合。首先，画图，必须用directDRAW，而且应该有多重背景的。飞机应该是那种有透明区域的。可能还要用那种alpha效果。爆炸效果什么的。再者，键盘方面，游戏一般是要求多个按钮可以同时按的，这个要用directInput。一般最多可以5~6个按钮按下都没问题。如果要声音、音乐，还得用direct...
葛莎叛1、首先双击桌面图标启动 visual basic 6.0。2、然后新建工程，选择标准EXE。3、选择完工程后，点击打开，就可以新建一个exe工程了。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click() 事件中。5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^...
葛莎叛winner = winner + 1 End If Next i If winner = 8 Then MsgBox " 恭喜您,胜利了!", 0 + 64 + 0, "提示" Picture1.Enabled = False answer = MsgBox("还继续吗?", 4 + 32 + 0, "提示") If answer = vbYes Then Command1.Enabled = True Else End End If End IfEnd Sub弹球游戏 Dim ...
