用vbs做一个贪吃蛇游戏

很好，以下是vbs实现贪吃蛇游戏的代码：

Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("snake_game.vbs")

'定义游戏参数
Const ROWS = 20 '游戏窗口的行数
Const COLS = 40 '游戏窗口的列数
Const BLOCK_SIZE = 20 '每个方块的尺寸
Const SNAKE_INIT_LEN = 3 '初始蛇的长度
Const FPS = 10 '游戏帧率，即每秒刷新次数
Const UP = -1 '蛇头向上移动时的方向
Const DOWN = 1 '蛇头向下移动时的方向
Const LEFT = -2 '蛇头向左移动时的方向
Const RIGHT = 2 '蛇头向右移动时的方向

'定义全局变量
Dim snake(100) '蛇的身体数组，最多100个方块
Dim foodX, foodY '食物的位置
Dim score '得分
Dim direction '蛇头当前的移动方向
Dim gameOver '游戏结束标志

'定义函数
Sub GameInit() '初始化游戏
    Randomize '随机种子
    For i = 0 To SNAKE_INIT_LEN - 1 '初始化蛇的位置
        snake(i).x = Int(COLS / 2) * BLOCK_SIZE '蛇头在屏幕中央
        snake(i).y = (ROWS - 1) * BLOCK_SIZE - i * BLOCK_SIZE '蛇的身体在蛇头上方，初始长度为3
    Next
    foodX = Int(Rnd * COLS) * BLOCK_SIZE '随机生成食物位置
    foodY = Int(Rnd * ROWS) * BLOCK_SIZE
    score = 0 '分数清零
    direction = UP '初始方向向上
    gameOver = False '游戏未结束
End Sub

Sub DrawScreen() '绘制游戏界面
    objShell.Run "cls" '清空屏幕
    For i = 0 To ROWS - 1 '绘制边框
        For j = 0 To COLS - 1
            If i = 0 Or i = ROWS - 1 Or j = 0 Or j = COLS - 1 Then
                objFile.Write "■"
            Else
                objFile.Write " "
            End If
        Next
        objFile.WriteLine
    Next
    For i = 0 To SNAKE_INIT_LEN - 1 '绘制蛇的初始位置
        objFile.Write "●"
        objFile.Write Space(BLOCK_SIZE - 1)
    Next
    objFile.WriteLine
    objFile.Write "Score: " & score '显示得分
End Sub

Sub UpdateSnake() '更新蛇的状态
    For i = SNAKE_INIT_LEN - 1 To 1 Step -1 '从后往前更新蛇的身体
        snake(i).x = snake(i - 1).x
        snake(i).y = snake(i - 1).y
    Next
    Select Case direction '根据方向移动蛇头
        Case UP
            snake(0).y = snake(0).y - BLOCK_SIZE
        Case DOWN
            snake(0).y = snake(0).y + BLOCK_SIZE
        Case LEFT
            snake(0).x = snake(0).x - BLOCK_SIZE
        Case RIGHT
            snake(0).x = snake(0).x + BLOCK_SIZE
    End Select
    If snake(0).x = foodX And snake(0).y = foodY Then '如果吃到了食物
        snake(SNAKE_INIT_LEN).x = foodX '蛇的身体增加一节
        snake(SNAKE_INIT_LEN).y = foodY
        SNAKE_INIT_LEN = SNAKE_INIT_LEN + 1
        foodX = Int(Rnd * COLS) * BLOCK_SIZE '重新生成食物位置
        foodY = Int(Rnd * ROWS) * BLOCK_SIZE
        score = score + 10 '分数加10
    End If
    If snake(0).x < BLOCK_SIZE Or snake(0).x >= (COLS - 1) * BLOCK_SIZE Or snake(0).y < BLOCK_SIZE Or snake(0).y >= (ROWS - 1) * BLOCK_SIZE Then '蛇撞到边界
        gameOver = True
    End If
    For i = SNAKE_INIT_LEN - 1 To 1 Step -1 '蛇撞到自己
        If snake(0).x = snake(i).x And snake(0).y = snake(i).y Then
            gameOver = True
        End If
    Next
End Sub

Sub GameOver() '游戏结束
    objShell.Run "cls" '清空屏幕
    objFile.WriteLine "Game Over!"
    objFile.WriteLine "Score: " & score
End Sub

Sub GameLoop() '游戏主循环
    Do While Not gameOver '游戏未结束
        DrawScreen '绘制游戏界面
        UpdateSnake '更新蛇的状态
        Sleep 1000 / FPS '控制游戏帧率
    Loop
    GameOver '游戏结束
End Sub

'调用函数
GameInit '初始化游戏
GameLoop '进入游戏主循环

objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Set objShell = Nothing

将上述代码保存为snake_game.vbs，双击运行即可。