VBA Excel自制猜数游戏

初学VBA语言，如有纰漏详请各位大佬指出，本人必将重谢

1. ' 初始化所需变量
   
2. Dim isPlaying As Boolean
   
3. Dim correctNumber As Integer
   
4. Dim userInput As Integer
   
5. Dim inputMessage As String
   
6. 
   
7. 
   
8. Sub Auto_Open() ' 设置工作表打开时自动运行宏
   
9.     Call initializeGame
   
10. End Sub
    
11. 
    
12. Sub initializeGame() ' 初始化游戏
    
13.     Randomize
    
14.     isPlaying = False
    
15.     correctNumber = Int(100 * Rnd)
    
16.     inputMessage = "开始猜数！输入数字"
    
17.     msgBoxResult = MsgBox("欢迎来到猜数游戏，按是开始，按否退出", vbYesNo)
    
18.     If msgBoxResult = vbYes Then
    
19.         Call startGame ' 如果玩家按了Yes就开始游戏
    
20.     Else
    
21.         Exit Sub ' 如果玩家按了No就停止运行
    
22.     End If
    
23. End Sub
    
24. 
    
25. Sub startGame() ' 游戏主过程
    
26.     isPlaying = True
    
27.     Do While isPlaying ' 只要玩家还在玩游戏就一直循环
    
28.         userInput = CInt(InputBox(inputMessage))
    
29.         If userInput = correctNumber Then
    
30.             MsgBox "猜对了！你真NB"
    
31.             isPlaying = False ' 退出循环
    
32.         ElseIf userInput < correctNumber Then
    
33.             inputMessage = "猜小了，再猜一遍"
    
34.         Else
    
35.             inputMessage = "猜大了，再猜一遍"
    
36.         End If
    
37.     Loop
    
38.     Call initializeGame ' 一局结束后重新初始化游戏
    
39. End Sub
    

复制代码

初学