求一个简短的VB小游戏程序代码,紧急!!!

一定要简单一些的,新手上路

2025-04-15 09:37:57

推荐回答（1个）

回答1：

Private Sub Command1_Click()
    Dim a As Integer, b As Integer, s As String

    MsgBox "我记住一个数，你根据我的提示猜猜是这个数是几"

    Randomize
    a = Int(Rnd * 100)
    s = InputBox("写出你猜的数")

    Do While s <> ""
        b = Val(s)
        If a = b Then
            MsgBox "你真聪明！猜对了"
            Exit Do
        ElseIf a > b Then MsgBox b & " 有点小了"
        ElseIf a < b Then MsgBox b & " 有点大了"
        End If

        s = InputBox("写出你猜的数")
    Loop

    MsgBox "88，下次再玩"
End Sub