用VB.net创建一个简单的石头剪子布游戏

当前位置:

首页 > Python基础教程 >

用VB.net创建一个简单的石头剪子布游戏

要想使用VB.net创建一个简单的石头剪子布游戏，需要使用VB.NET是一个很好的练习项目。以下是一个简单的示例代码，展示如何使用VB.NET开发一个基本的石头剪子布游戏：

Module Module1

    Sub Main()
        Console.WriteLine("欢迎来到石头剪子布游戏！")
        Console.WriteLine("请输入你的选择（1-石头，2-剪子，3-布）：")

        Dim userChoice As Integer = Convert.ToInt32(Console.ReadLine())
        Dim computerChoice As Integer = GetRandomComputerChoice()

        Console.WriteLine("电脑的选择是：{0}", GetChoiceName(computerChoice))

        Dim result As String = DetermineWinner(userChoice, computerChoice)
        Console.WriteLine(result)

        Console.ReadKey()
    End Sub

    Function GetRandomComputerChoice() As Integer
        Dim rand As New Random()
        Dim choices() As Integer = {1, 2, 3}
        Return choices[rand.Next(choices.Length)]
    End Function

    Function GetChoiceName(choice As Integer) As String
        Select Case choice
            Case 1
                Return "石头"
            Case 2
                Return "剪子"
            Case 3
                Return "布"
            Case Else
                Return "无效的选择"
        End Select
    End Function

    Function DetermineWinner(userChoice As Integer, computerChoice As Integer) As String
        If userChoice = computerChoice Then
            Return "平局！"
        End If

        Select Case userChoice
            Case 1 ' 石头
                If computerChoice = 2 Then ' 剪子
                    Return "你赢了！石头砸坏了剪子。"
                Else ' 布
                    Return "你输了！布包住了石头。"
                End If
            Case 2 ' 剪子
                If computerChoice = 3 Then ' 布
                    Return "你赢了！剪子剪破了布。"
                Else ' 石头
                    Return "你输了！石头砸坏了剪子。"
                End If
            Case 3 ' 布
                If computerChoice = 1 Then ' 石头
                    Return "你赢了！布包住了石头。"
                Else ' 剪子
                    Return "你输了！剪子剪破了布。"
                End If
            Case Else
                Return "无效的选择"
        End Select
    End Function

End Module

这段代码包含以下几个部分：

1. `Main` 方法：程序的入口点，提示用户输入选择，获取用户选择和计算机随机选择，然后确定并输出游戏的结果。

2. `GetRandomComputerChoice` 方法：生成一个1到3之间的随机整数，代表计算机的选择。

3. `GetChoiceName` 方法：根据选择的数字返回对应的中文名字（石头、剪子或布）。

4. `DetermineWinner` 方法：根据用户选择和计算机选择确定游戏的赢家，并返回相应的结果字符串。

要运行此代码，请将其复制到一个VB.NET控制台应用程序项目中，并确保已经安装了.NET Framework或.NET Core环境。编译并运行程序后，程序会提示用户输入选择，然后显示计算机的选择和最终的游戏结果。

请注意，这是一个非常基础的版本，没有考虑用户可能输入非法值的情况（除了1、2、3之外的数字）。在实际应用中，你可能需要添加更多的错误检查和用户友好的提示信息。
最后，如果你对vb.net语言还有任何疑问或者需要进一步的帮助，请访问https://www.xin3721.com 本站原创，转载请注明出处：https://www.xin3721.com/Python/python49188.html

栏目列表