本帖最后由 Gr3yPh4ntom 于 2025-2-13 11:40 编辑
初学VBA语言，如有纰漏详请各位大佬指出，本人必将重谢
- ' 初始化所需变量
- Dim isPlaying As Boolean
- Dim correctNumber As Integer
- Dim userInput As Integer
- Dim inputMessage As String
- Sub Auto_Open() ' 设置工作表打开时自动运行宏
- Call initializeGame
- End Sub
- Sub initializeGame() ' 初始化游戏
- Randomize
- isPlaying = False
- correctNumber = Int(100 * Rnd)
- inputMessage = "开始猜数！输入数字"
- msgBoxResult = MsgBox("欢迎来到猜数游戏，按是开始，按否退出", vbYesNo)
- If msgBoxResult = vbYes Then
- Call startGame ' 如果玩家按了Yes就开始游戏
- Else
- Exit Sub ' 如果玩家按了No就停止运行
- End If
- End Sub
- Sub startGame() ' 游戏主过程
- isPlaying = True
- Do While isPlaying ' 只要玩家还在玩游戏就一直循环
- userInput = CInt(InputBox(inputMessage))
- If userInput = correctNumber Then
- MsgBox "猜对了！你真NB"
- isPlaying = False ' 退出循环
- ElseIf userInput < correctNumber Then
- inputMessage = "猜小了，再猜一遍"
- Else
- inputMessage = "猜大了，再猜一遍"
- End If
- Loop
- Call initializeGame ' 一局结束后重新初始化游戏
- End Sub
1609
1
数据加载中，请稍后...
暗色