VB程序设计简单小游戏 - 猜数字游戏
VB（Visual Basic）程序设计语言是一种简单易学、功能强大的编程语言，特别适合初学者入门，在本篇文章中，我们将通过编写一个简单的猜数字游戏来介绍VB程序设计的基本概念和方法。
游戏规则：程序随机生成一个1到100之间的整数，玩家有10次机会猜出这个数字，每次猜测后，程序会给出提示，告诉玩家猜的数字是太大了还是太小了，如果玩家在10次机会内猜中数字，则游戏胜利；否则，游戏结束。
下面是使用VB编写的猜数字游戏的代码：
Private Sub btnGuess_Click()
' 声明变量
Dim secretNumber As Integer
Dim guess As Integer
Dim guessCount As Integer
Dim isGuessed As Boolean
' 初始化变量
secretNumber = Int((100 * Rnd) + 1) ' 生成1到100之间的随机数
guessCount = 0 ' 猜测次数初始化为0
isGuessed = False ' 猜测结果初始化为未猜中
' 游戏循环
While Not isGuessed And guessCount < 10
guess = Val(InputBox("请输入你猜测的数字：")) ' 获取用户输入的数字
guessCount = guessCount + 1 ' 猜测次数加1
' 判断猜测结果
If guess = secretNumber Then
isGuessed = True ' 猜中了，结束循环
ElseIf guess < secretNumber Then
MsgBox "太小了！" ' 猜的数字太小了，给出提示
ElseIf guess > secretNumber Then
MsgBox "太大了！" ' 猜的数字太大了，给出提示
End If
Wend
' 游戏结束后的处理
If isGuessed Then
MsgBox "恭喜你，你猜中了！" ' 如果猜中，给出提示
Else
MsgBox "很遗憾，你没有猜中。正确答案是：" & secretNumber ' 如果没猜中，给出正确答案
End If
End Sub
代码解释：
1. `Private Sub btnGuess_Click()`: 定义一个按钮点击事件的处理程序，当玩家点击按钮时，会触发这个事件。
2. `Dim secretNumber As Integer` 等行：声明变量，这些变量用于存储随机数、用户猜测的数字、猜测次数和猜测结果等。
3. `secretNumber = Int((100 * Rnd) + 1)`: 生成一个1到100之间的随机整数，`Rnd`函数生成一个[0,1)之间的随机浮点数，乘以100后取整得到一个[0,99]之间的整数，再加1后得到[1,100]之间的整数，`Int`函数将浮点数转换为整数。
4. `While Not isGuessed And guessCount < 10`: 游戏循环，只要猜测结果未猜中且猜测次数未超过10次，就继续循环。
5. `guess = Val(InputBox("请输入你猜测的数字："))`: 使用`InputBox`函数获取用户输入的数字，并使用`Val`函数将输入的字符串转换为数字。
6. `If guess = secretNumber Then ... End If`: 判断用户的猜测是否正确，如果猜中了，就将`isGuessed`设置为`True`，结束循环，如果猜的数字太小或太大，就给出相应的提示。
7. `Wend`: 结束游戏循环。
8. `If isGuessed Then ... End If`: 游戏结束后的处理，如果玩家猜中了数字，就给出恭喜信息；否则，给出正确答案。
