用vb.net编写小游戏 用vb编写简单小游戏

vb.net编写的贪吃蛇游戏，带代码的

需用VB实现，代码如下

'定义蛇的运动速度枚举值

Private Enum tpsSpeed

QUICKLY = 0

SLOWLY = 1

End Enum

'定义蛇的运动方向枚举值

Private Enum tpsDirection

D_UP = 38

D_DOWN = 40

D_LEFT = 37

D_RIGHT = 39

End Enum

'定义运动区域4个禁区的枚举值

Private Enum tpsForbiddenZone

FZ_TOP = 30

FZ_BOTTOM = 5330

FZ_LEFT = 30

FZ_RIGHT = 5730

End Enum

'定义蛇头及身体初始化数枚举值

Private Enum tpsSnake

SNAKEONE = 1

SNAKETWO = 2

SNAKETHREE = 3

SNAKEFOUR = 4

End Enum

'定义蛇宽度的常量

Private Const SNAKEWIDTH As Integer = 100

'该过程用于显示游戏信息

Private Sub Form_Load()

Me.Show

Me.lblTitle = "BS贪食蛇 — (版本 " App.Major "." App.Minor "." App.Revision ")"

Me.Caption = Me.lblTitle.Caption

frmSplash.Show 1

End Sub

'该过程用于使窗体恢复原始大小

Private Sub Form_Resize()

If Me.WindowState 1 Then

Me.Caption = ""

Me.Height = 6405 '窗体高度为 6405 缇

Me.Width = 8535 '窗体宽度为 8535 缇

Me.Left = (Screen.Width - Width) \ 2

Me.Top = (Screen.Height - Height) \ 2

End If

End Sub

'该过程用于重新开始开始游戏

Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Beep

msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")

If msg = 6 Then Call m_subGameInitialize

End Sub

'该过程用于暂停/运行游戏

Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Me.chkPause.Caption = "暂停游戏(P)" Then

Me.tmrSnakeMove.Enabled = False

Me.tmrGameTime.Enabled = False

Me.picMoveArea.Enabled = False

Me.lblPauseLab.Visible = True

Me.chkPause.Caption = "继续游戏(R)"

Else

Me.tmrSnakeMove.Enabled = True

Me.tmrGameTime.Enabled = True

Me.picMoveArea.Enabled = True

Me.lblPauseLab.Visible = False

Me.chkPause.Caption = "暂停游戏(P)"

End If

End Sub

'该过程用于显示游戏规则

Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Beep

MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" Chr(13) _

"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" Chr(13) _

"不能后退，蛇的头部也不能接触到运动区域的边线以外" Chr(13) _

"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" Chr(13) _

"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"

End Sub

'该过程用于显示游戏开发信息

Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Beep

MsgBox "BS贪食蛇" "(V-" App.Major "." App.Minor "版本)" Chr(13) Chr(13) _

"" Chr(13) Chr(13) _

"由PigheadPrince设计制作" Chr(13) _

"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"

End Sub

'该过程用于退出游戏

Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Beep

msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")

Select Case msg

Case 6

End

Case 7

Me.chkWindowButton(2).Value = 0

Exit Sub

End Select

End Sub

'该过程用于拖动窗体_(点击图标)

Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ReleaseCapture

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

End Sub

'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)

Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button 1 Then Exit Sub

Select Case Index

Case 0 '锁定窗体

If Me.chkWindowButton(0).Value = 1 Then

Me.imgWindowTop.BorderStyle = 0

Me.imgWindowTop.Enabled = False

Else

Me.imgWindowTop.BorderStyle = 1

Me.imgWindowTop.Enabled = True

End If

Case 1 '最小化

Me.WindowState = 1

Me.chkWindowButton(1).Value = 0

Me.Caption = "BS贪食蛇 — (V-" App.Major "." App.Minor "版本)"

Case 2 '退出

Beep

msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")

Select Case msg

Case 6

End

Case 7

Me.chkWindowButton(2).Value = 0

Exit Sub

End Select

End Select

End Sub

'该过程用于设置蛇运动速度的快慢

Private Sub hsbGameSpeed_Change()

Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value

End Sub

'该过程用于通过键盘的方向键改变蛇的运动方向

Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case g_intDirection

Case D_UP

If KeyCode = D_DOWN Then Exit Sub

Case D_DOWN

If KeyCode = D_UP Then Exit Sub

Case D_LEFT

If KeyCode = D_RIGHT Then Exit Sub

Case D_RIGHT

If KeyCode = D_LEFT Then Exit Sub

End Select

g_intDirection = KeyCode

End Sub

'该计时循环过程用于计算游戏耗费的秒数并显示

Private Sub tmrGameTime_Timer()

g_lngGameTime = g_lngGameTime + 1

Me.lblGameTime.Caption = g_lngGameTime "秒"

End Sub

'该计时循环过程用于控制蛇的行动轨迹

Private Sub tmrSnakeMove_Timer()

Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long

Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long

Randomize

Me.picMoveArea.SetFocus

Me.picMoveArea.Cls

'确认蛇头的运动方向并获取新的位置

Select Case g_intDirection

Case D_UP '向上运动

g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX

g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY

g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTH

Case D_DOWN '向下运动

g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX

g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY

g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTH

Case D_LEFT '向左运动

g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX

g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTH

g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY

Case D_RIGHT '向右运动

g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX

g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTH

g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY

End Select

'根据新的位置绘制蛇头

lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurX

lngSnakeY = g_udtSnake(SNAKEONE).Snake_CurY

lngSnakeColor = g_udtSnake(SNAKEONE).Snake_Color

Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor

'移动蛇身体其他部分的位置

For i = 2 To g_intSnakeLength

g_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldX

g_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldY

lngSnakeX = g_udtSnake(i).Snake_CurX

lngSnakeY = g_udtSnake(i).Snake_CurY

lngSnakeColor = g_udtSnake(i).Snake_Color

Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor

Next i

'更新蛇旧的坐标位置

For j = 1 To g_intSnakeLength

g_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurX

g_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurY

Next j

'判断蛇在移动中是否到了禁区而导致游戏失败

If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then

Beep

MsgBox "您的蛇移动到了禁区，游戏失败！", 0 + 16, "BS贪食蛇"

Me.tmrSnakeMove.Enabled = False

Me.tmrGameTime.Enabled = False

Me.picMoveArea.Visible = False

Exit Sub

End If

'判断蛇在移动中是否碰到了自己的身体而导致游戏失败

If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then

Beep

MsgBox "您的蛇在移动中碰到了自己的身体，游戏失败！", 0 + 16, "BS贪食蛇"

Me.tmrSnakeMove.Enabled = False

Me.tmrGameTime.Enabled = False

Me.picMoveArea.Visible = False

Exit Sub

End If

'判断蛇是否吃到了果子

If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then

'累加玩家的得分并刷新得分显示

g_intPlayerScore = g_intPlayerScore + 1

Me.lblYourScore.Caption = g_intPlayerScore "分"

Call m_subAddSnake '加长蛇的身体

Call m_subGetPoint '获取下一个果子的位置和颜色

Else

'绘制果子

lngPointX = g_udtPoint.Point_X

lngPointY = g_udtPoint.Point_Y

lngPointColor = g_udtPoint.Point_Color

Me.picMoveArea.PSet (lngPointX, lngPointY), lngPointColor

End If

End Sub

'该私有子过程用于初始化游戏

Private Sub m_subGameInitialize()

Erase g_udtSnake '清空蛇的结构数组

g_intPlayerScore = 0 '清空玩家的得分

g_lngGameTime = 0 '清空游戏耗费的秒数

g_intDirection = D_DOWN '设定蛇的初始运动方向为下

g_intSnakeLength = 4 '设定蛇的初始长度

ReDim g_udtSnake(1 To g_intSnakeLength) '重新定义蛇的长度

'定义蛇头部的数据

With g_udtSnake(SNAKEONE)

.Snake_OldX = 530

.Snake_OldY = 530

.Snake_Color = vbBlack

End With

'定义蛇身第2节的数据

With g_udtSnake(SNAKETWO)

.Snake_OldX = 530

.Snake_OldY = 430

.Snake_Color = vbGreen

End With

'定义蛇身第3节的数据

With g_udtSnake(SNAKETHREE)

.Snake_OldX = 530

.Snake_OldY = 330

.Snake_Color = vbYellow

End With

'定义蛇身第4节的数据

With g_udtSnake(SNAKEFOUR)

.Snake_OldX = 530

.Snake_OldY = 230

.Snake_Color = vbRed

End With

Me.picMoveArea.Visible = True

Me.lblYourScore.Caption = g_intPlayerScore "分"

Me.lblGameTime.Caption = g_lngGameTime "秒"

Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value

Me.tmrSnakeMove.Enabled = True

Me.tmrGameTime.Enabled = True

Call m_subGetPoint '获取第一个果子的位置和颜色

End Sub

相关问答

Q1: 五子棋游戏程序设计（VB）

五子棋的AI构想 有句话叫“当局者迷用vb.net编写小游戏，旁观者清。”用vb.net编写小游戏，但这句话在由AI所控制的计算机玩家上是不成立的，因为计算机必须知道有那些获胜方式，并计算出每下一步棋到棋盘上任一格子的获胜几率，也就是说，一个完整的五子棋的AI构想必须：

　

1、能够知道所有的获胜组合用vb.net编写小游戏； 2、建立和使用获胜表； 3、设定获胜的分数； 4、使电脑具有攻击和防守的能力； 一、求五子棋的获胜组合 在一场五子棋的游戏中，计算机必须要知道有那些的获胜组合，因此我们必须求得获胜组合的总数。我们假定当前的棋盘为10*10。 （1）计算水平方向的获胜组合数，每一列的获胜组合是：6，共10列，所以水平方向的获胜组合数为：6*10=60 （2）计算垂直方向的获胜组合总数，每一行的获胜组合是：6，共10行，则垂直方向的获胜组合数为：6*10=60 （3）计算正对角线方向的获胜组合总数，正对角线上的获胜组合总数为6+（5+4+3+2+1）*2=36 （4）计算反对角线方向的获胜组合总数，反对角线上的获胜组合总数为6+（5+4+3+2+1）*2=36 ，这样所有的获胜组合数为：60+60+36+36=192 二、建立和使用获胜表 我们已经计算出了一个10*10的五子棋盘会有192种获胜方式，这样我们可以利用数组建立获胜表，获胜表的主要作用是：1，判断当前的获胜方式是否有效；2，判断当前的获胜方式中到底有多少子落入该获胜组合中。详细的使用您将在后面的程序中可以看出。 三，分数的设定 在游戏中为了让计算机能够决定下一步最佳的走法，必须先计算出计算机下到棋盘上任一空格的分数，而其中最高分数便是计算机下一步的最佳走法。 原理：我们判定当前讨论的空格与当前讨论的点有几种获胜的方式，有几种该空格就加几分。这种原理初听起来似乎是无法入手，没关系，当您了解我们后面的程序后您就会明白这种决策原理了。 这种决策有一些缺陷，因为如果只根据这个模型设计，就有可能出现电脑或玩家有三个子连成一线的时候，计算机却判断不出，它认为其他某些空格是当前的获胜的最佳位置而不去攻击或防守。没关系我们完全可以通过一个加强算法来改变当前的分值情况，也就是说当电脑或玩家有三个子或四个子连成一线时，我们通过加强算法将当前与三个子或四个子有关的空格的分值提高，从而可以弥补这一缺憾。 四、攻击与防守 以上的方式，事实上计算机只是计算出了最佳的攻击位置，为了防守我们还应计算当前玩家的最佳的攻击位置。这样有什么用呢？道理很简单，如果玩家最佳攻击位置的分数大于计算机最佳攻击位置上的分数，那么计算机就将下一步的棋子摆在玩家的最佳攻击位上以阻止玩家的进攻，否则计算机便将棋子下在自己的最佳攻击位置上进行攻击。 事实上，这个AI构想是很强大的如果你不是很厉害的五子棋高手的话，可能很快会被计算机打败。我在联众上可是中级棋手啊，跟这种构想打的时候胜率也不是很高。 使用vb.net编写五子棋 一、编写前的准备： 1、用计算机的思想描述整个下棋的过程 考虑步骤： （1）为了简便我们可以先让电脑先走第一步棋，电脑每走一步就会封掉许多玩家的获胜可能情况。 （2）当玩家走棋的时候我们首先应该考虑玩家走棋的合法性。 （3）如果合法，那么玩家也会封掉许多电脑的获胜的可能情况。 （4）电脑的思考路径：首先判断当前玩家和电脑的所有获胜组合是否需要进行加强赋值，

是进行加强赋值，否则进行普通的赋值。 （5）比较当前玩家和电脑谁的分值最大。将分值最大的点作为电脑的下一步走法。 2、利用vb.net窗体和图形工具建立五子棋的棋盘界面 （1）添加一个picturebox控件 作用：使用picturebox控件绘制棋子和棋盘 （2）添加一个label控件 作用：显示当前的获胜标志，也就是当某一方获胜或和棋时显示此标签。 （3）添加一个mainmenu控件 作用：控制游戏的开始或结束 （4）添加一个mediaplay组件 作用：使程序可以播放音乐。 3、设置整体框价 我们采取10*10的棋盘，为主要的平台。利用数组定义整个棋盘桌面，利用数组定义获胜组合以及获胜标志等。 二，声明全局数组和变量 定义虚拟桌面： Dim table(9, 9) As Integer 定义当前玩家桌面空格的分数： Dim pscore(9, 9) As Integer 定义当前电脑桌面空格的分数： Dim cscore(9, 9) As Integer 定义玩家的获胜组合： Dim pwin(9, 9, 191) As Boolean 定义电脑的获胜组合： Dim cwin(9, 9, 191) As Boolean 定义玩家的获胜组合标志： Dim pflag(191) As Boolean 定义电脑的获胜组合标志：

Dim cflag(191) As Boolean 定义游戏有效标志： Dim theplayflag As Boolean 三、初始化游戏 '*****************************************************************************

'** 模块名称: initplayenvironment

'**

'** 描述: 此函数主要功能如下:

'** 1. 设置背景音乐。

'** 2. 设置游戏状态有效。

'** 3. 初始化游戏状态标签。

'** 4. 直接指定电脑的第一步走法。

'** 5. 初始化基本得分桌面。

'** 6. 电脑和玩家获胜标志初始化。

'** 7. 初始化所有获胜组合。

'** 8. 重新设定玩家的获胜标志。

'**

'*****************************************************************************

Sub initplayenvironment()

player.FileName = ".\music\zhyu01.mid"

player.Play()

theplayflag = True

'游戏有效

Label1.Visible = False

'游戏状态标签不显示

PictureBox1.Refresh()

'清空picturebox1的内容

yuandian(130, 130)

'调用绘图函数绘制当前电脑先走的位置

Dim i, j, m, n As Integer

For i = 0 To 9

For j = 0 To 9

table(i, j) = 0

Next

Next

'桌面初始化

For i = 0 To 191

pflag(i) = True

cflag(i) = True

Next

'获胜标志初始化

table(4, 4) = 1

'由于我们设定电脑先手，并下了4，4位所以将其值设为1

''' ******** 初始化获胜组合 ********

n = 0

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i, n) = True

cwin(j + m, i, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(i, j + m, n) = True

cwin(i, j + m, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 5

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i + m, n) = True

cwin(j + m, i + m, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 5

For j = 9 To 4 Step -1

For m = 0 To 4

pwin(j - m, i + m, n) = True

cwin(j - m, i + m, n) = True

Next

n = n + 1

Next

Next

''' ******** 初始化获胜组合结束 ********

For i = 0 To 191

If pwin(4, 4, i) = True Then

pflag(i) = False

End If

Next

'由于电脑已下了4，4位所以我们需要重新设定玩家的获胜标志

End Sub

四，处理鼠标事件 '*****************************************************************************

'** 模块名称: themousedown

'**

'** 描述: 此函数主要实行以下功能：

'** 1. 判定当前游戏标志是否有效。

'** 2. 将实际坐标转化成虚拟坐标。

'** 3. 绘制玩家的棋子。

'** 4. 执行检查获胜函数。

'** 5. 执行电脑算法函数。

'**

'*****************************************************************************

Sub themousedown(ByVal x As Integer, ByVal y As Integer)

If theplayflag = False Then

Exit Sub

End If

'检查游戏状态是否有效

Dim i, j As Integer

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

For i = 0 To 9

For j = 0 To 9

If table(zhx, zhy) 0 Then

Exit Sub

End If

Next

Next

'检查当前鼠标点击的格子是否有效

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

mycolor = Color.White

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

'绘制玩家的棋子

table(zhx, zhy) = 2

For i = 0 To 191

If cwin(zhx, zhy, i) = True Then

cflag(i) = False

End If

Next

'重设电脑的获胜标志

checkwin()

'检查当前玩家是否获胜

diannao()

'调用电脑算法

End Sub 五、获胜检查算法。 '*****************************************************************************

'** 模块名称: checkwin

'**

'** 描述: 此模块执行以下功能:

'** 1. 检查是否和棋。

'** 2. 检查电脑是否获胜。

'** 3. 检查玩家是否获胜。

'**

'*****************************************************************************

Sub checkwin()

Dim i, j, k, m, n As Integer

Dim ca As Integer

Dim pa As Integer

Dim cnormal As Integer = 0

For i = 0 To 191

If cflag(i) = False Then

cnormal = cnormal + 1

End If

Next

If cnormal = 190 Then

Label1.Visible = True

Label1.Text = "和棋，请重新开始！"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

'设定和棋规则

For i = 0 To 191

If cflag(i) = True Then

ca = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

ca = ca + 1

End If

End If

Next

Next

If ca = 5 Then

Label1.Visible = True

Label1.Text = "电脑获胜,请重新开始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

End If

Next

'检查电脑是否获胜

For i = 0 To 191

If pflag(i) = True Then

pa = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pa = pa + 1

End If

End If

Next

Next

If pa = 5 Then

Label1.Visible = True

Label1.Text = "玩家获胜,请重新开始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

End If

Next

'检查玩家是否获胜

End Sub 　六、电脑算法 '*****************************************************************************

'** 模块名称: diannao

'**

'** 描述: 此程序主要执行以下功能：

'** 1. 初始化赋值系统。

'** 2. 赋值加强算法。

'** 3. 计算电脑和玩家的最佳攻击位。

'** 4. 比较电脑和玩家的最佳攻击位并决定电脑的最佳策略。

'** 5. 执行检查获胜函数。

'**

'***************************************************************************** Sub diannao()

Dim i, j, k, m, n As Integer

Dim dc As Integer

Dim cab As Integer

Dim pab As Integer

For i = 0 To 9

For j = 0 To 9

pscore(i, j) = 0

cscore(i, j) = 0

Next

Next

'初始化赋值数组

''' ******** 电脑加强算法 ********

For i = 0 To 191

If cflag(i) = True Then

cab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

cab = cab + 1

End If

End If

Next

Next

Select Case cab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

cscore(m, n) = cscore(m, n) + 5

End If

End If

Next

Next

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

Next

End If

End If

Next

Next

End Select

End If

Next

For i = 0 To 191

If pflag(i) = True Then

pab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pab = pab + 1

End If

End If

Next

Next

Select Case pab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

pscore(m, n) = pscore(m, n) + 30

End If

End If

Next

Next

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

Next

End If

End If

Next

Next

End Select

End If

Next

''' ******** 电脑加强算法结束 ******** ' ******** 赋值系统 ********

For i = 0 To 191

If cflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If cwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 1 Then

If cwin(m, n, i) = True Then

cscore(j, k) = cscore(j, k) + 1

End If

End If

Next

Next

End If

End If

Next

Next

End If

Next

For i = 0 To 191

If pflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If pwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 2 Then

If pwin(m, n, i) = True Then

pscore(j, k) = pscore(j, k) + 1

End If

End If

Next

Next

End If

End If

Next

Next

End If

Next

''' ******** 赋值系统结束 ********

''' ******** 分值比较算法 ********

Dim a, b, c, d As Integer

Dim cs As Integer = 0

Dim ps As Integer = 0

For i = 0 To 9

For j = 0 To 9

If cscore(i, j) cs Then

cs = cscore(i, j)

a = i

b = j

End If

Next

Next

For i = 0 To 9

For j = 0 To 9

If pscore(i, j) ps Then

ps = pscore(i, j)

c = i

d = j

End If

Next

Next

If cs ps Then

yuandian(a * 30 + 10, b * 30 + 10)

table(a, b) = 1

For i = 0 To 191

If pwin(a, b, i) = True Then

pflag(i) = False

End If

Next

Else

yuandian(c * 30 + 10, d * 30 + 10)

table(c, d) = 1

For i = 0 To 191

If pwin(c, d, i) = True Then

pflag(i) = False

End If

Next

End If

''' ******** 分值比较算法结束 ********

checkwin()

End Sub 七、绘制棋子 '*****************************************************************************

'** 模块名称: yuandian

'**

'** 描述: 此函数主要进行电脑棋子的绘制。

'**

'***************************************************************************** Sub yuandian(ByVal x As Integer, ByVal y As Integer)

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

mycolor = Color.Black

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

End Sub

Q2: vb.net做石头剪刀布小游戏

我也是新手，随便做个玩玩。把RadioButton0，1，2放一个容器里！

Public Class Form1

Dim win1 As Integer = 0

Dim win2 As Integer = 0

Dim i As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim str As Integer

Dim rand As New Random()

str =rand.Next(3)'随机数

If str = 0 Then

RadioButton0.Checked = True

ElseIf str = 1 Then

RadioButton1.Checked = True

ElseIf str = 2 Then

RadioButton2.Checked = True

End If

If RadioButton3.Checked = True Then

i = 0

ElseIf RadioButton4.Checked = True Then

i = 1

ElseIf RadioButton5.Checked = True Then

i = 2

Else

MsgBox("请选择要出的拳法！")

End If

If (str = 0 And i = 1) Or (str = 1 And i = 2) Or (str = 2 And i = 0) Then

win1 += 1

TextBox1.Text = "玩家胜利"

ElseIf (str = 0 And i = 2) Or (str = 1 And i = 0) Or (str = 2 And i = 1) Then

win2 += 1

TextBox1.Text = "电脑胜利"

Else

TextBox1.Text = "平手"

End If'判断胜利者

TextBox2.Text = win1

TextBox3.Text = win2

If win1 = 5 Then

MsgBox("最终胜利者是玩家！恭喜！")

win1 = 0

win2 = 0

For i = 0 To Me.Controls.Count - 1

If TypeOf (Me.Controls(i)) Is TextBox Then

Me.Controls(i).Text = ""

End If'清空过时信息

Next

ElseIf win2 = 5 Then

MsgBox("最终胜利者是电脑！")

win1 = 0

win2 = 0

For i = 0 To Me.Controls.Count - 1

If TypeOf (Me.Controls(i)) Is TextBox Then

Me.Controls(i).Text = ""

End If'清空过时信息

Next

End If

End Sub

End Class

纯属新手，高手毋笑！

Q3: VB.Net猜字小游戏源代码。

这并不难，但程序肯定很长，其实，只要你已经学会了VB，这个问题并不难，但只是懒惰。，你应该自己编的，遇到问题，我们要问，请不要问。

锤子，图片显示和隐藏的Visible属性设置为指示的出现和消失的仓鼠，您可以使用自定义鼠标。

Q4: 谁能帮我用VB.net做个简单的游戏设计啊,我快愁死了

这是个vb6的BINGO小游戏的代码 如果要源程序 去我资料里找我网盘的地址 下载bingo.rar

因为没有任何第三方控件，可以直接转成vb.net的！~

Option Explicit

Private iSumA As IntegerPrivate iSumB As Integer

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Call S_Clear(1)

If F_CheckAll = False Then Exit Sub

For j = 0 To 3

For i = 0 To 3

If Val(Text(j).Text) = Val(Label(i).Caption) Then

If i = j Then

iSumA = iSumA + 1

Else

iSumB = iSumB + 1

End If

End If

Next

Next

Call S_Show

End Sub

Private Sub S_Clear(Optional iKB As Integer = 0)

Dim i As Integer

If iKB = 0 Then

For i = 0 To 3

Label(i).Caption = ""

Text(i).Text = ""

Next

End If

iSumA = 0

iSumB = 0

Label5.Caption = ""

End Sub

Private Sub S_Start()

Dim i As Integer

For i = 0 To 3

Label(i).Visible = False

Label(i).Caption = F_iGetRandomize(i)

Next

End Sub

Private Sub S_Show()

Dim stemp As String

Dim i As Integer

For i = 1 To iSumA

stemp = stemp "A"

Next

For i = 1 To iSumB

stemp = stemp "B"

Next

If iSumA + iSumB = 0 Then

Label5.Caption = "0000"

Else

Label5.Caption = stemp

End If

If iSumA = 4 Then

For i = 0 To 3

Label(i).Visible = False

Label(i).Caption = F_iGetRandomize(i)

Next

MsgBox "Bingo", vbOKOnly, "Flying Frog"

Command2.Value = True

DoEvents

Text(0).SetFocus

End If

End Sub

Private Sub Command2_Click()

Call S_Clear

Call S_Start

End Sub

Private Sub Form_Load()

Call S_Clear

Call S_Start

End Sub

Private Function F_iGetRandomize(ByVal iKB As Integer) As Integer

Dim num As Integer

Start:

Randomize

num = Rnd * (9 - 1) + 1

Select Case iKB

Case 0

F_iGetRandomize = num

Case 1

If num Val(Label(0).Caption) And _

num Val(Label(2).Caption) And _

num Val(Label(3).Caption) Then

F_iGetRandomize = num

Else

GoTo Start

End If

Case 2

If num Val(Label(0).Caption) And _

num Val(Label(2).Caption) And _

num Val(Label(3).Caption) Then

F_iGetRandomize = num

Else

GoTo Start

End If

Case 3

If num Val(Label(0).Caption) And _

num Val(Label(1).Caption) And _

num Val(Label(2).Caption) Then

F_iGetRandomize = num

Else

GoTo Start

End If

End Select

End Function

Private Function F_CheckText(ByVal iIndex As Integer) As Boolean

F_CheckText = False

If Val(Text(iIndex).Text) = 0 Then

Text(iIndex).SetFocus

MsgBox "Must Input", vbCritical, "Flying Frog"

Exit Function

End If

Select Case iIndex

Case 0

If Val(Text(iIndex).Text) = Val(Text(1).Text) Or _

Val(Text(iIndex).Text) = Val(Text(2).Text) Or _

Val(Text(iIndex).Text) = Val(Text(3).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

Case 1

If Val(Text(iIndex).Text) = Val(Text(0).Text) Or _

Val(Text(iIndex).Text) = Val(Text(2).Text) Or _

Val(Text(iIndex).Text) = Val(Text(3).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

Case 2

If Val(Text(iIndex).Text) = Val(Text(0).Text) Or _

Val(Text(iIndex).Text) = Val(Text(1).Text) Or _

Val(Text(iIndex).Text) = Val(Text(3).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

Case 3

If Val(Text(iIndex).Text) = Val(Text(0).Text) Or _

Val(Text(iIndex).Text) = Val(Text(1).Text) Or _

Val(Text(iIndex).Text) = Val(Text(2).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

End Select

F_CheckText = True

End Function

Private Function F_CheckAll() As Boolean

Dim i As Integer

F_CheckAll = False

For i = 0 To 3

If F_CheckText(i) = False Then Exit Function

Next

F_CheckAll = True

End Function

Private Sub Text_GotFocus(Index As Integer)

Text(Index).SelStart = 0

Text(Index).SelLength = Len(Text(Index).Text)

End Sub

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

If F_CheckText(Index) = False Then Exit Sub

End If

S_gKeySend (KeyCode)

End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)

KeyAscii = F_gKeypressNumber(Text(Index), KeyAscii, 1)

End Sub

Q5: VB可以做什么游戏

理论上讲，VB可以做任何游戏，游戏开发不是一言两语能说明白的，在这里可以给你简单的说一下，具体开发方法请仔细百度。

开发游戏你需要解决四个技术问题：

1：图像绘制。2：声音播放。3：用户输入控制。4：文件的读写。

其中2、3、4基本可以用VB的基础语言功能和操作系统提供的API解决，唯独绘图需要引擎来解决。除非是很小的小游戏，否则你不太可能用系统控件去做一个游戏，你也不能天才到啥都自己实现出来，你就算有那么天才，也没那个时间精力，也没有必要。做游戏用的绘图引擎一般是GDI或DIRECTX或OPENGL。VB6可以使用GDI或DIRECTX7、8，VB.net可以使用DIRECTX9以上的版本。其中GDI可以用来开发2D游戏，DIRECTX可以用于开发任何类型游戏，DIRECTX不但可以用来绘图，其还包含解决游戏中联网、用户输入控制、声音播放的专用模块推荐使用。

关于用vb.net编写小游戏和用vb编写简单小游戏的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。