vb.net - 随机数生成器 VB.NET 出现问题

Question

我正在构建一个简单的井字游戏，但遇到了问题。我正在尝试为计算机编写一个脚本以在游戏中进行移动，但我被卡住了。这是我遇到问题的代码部分。

Public Class Form1
    Public Enum Buttons As Byte
        btn1 = 1
        btn2 = 2
        btn3 = 3
        btn4 = 4
        btn5 = 5
        btn6 = 6
        btn7 = 7
        btn8 = 8
        btn9 = 9
    End Enum

    Public Sub Computer(ByVal ButtonSelected As Button, ByVal Buttons As Buttons)
        Dim RandomNumberGenerator As New Random
        Dim RandomNumber As Integer
        RandomNumber = RandomNumberGenerator.Next(1, 9)
        If Buttons.RandomNumber Then

        End If


    End Sub

我遇到的问题是 If 语句。我想使用随机数从枚举中选择一个按钮，但我不知道如何。有人可以帮帮我吗？

Answer 1

只需使用强制转换将整数转换为枚举。还要确保只初始化 Random 类对象一次，这样您就不会一遍又一遍地获得相同的按钮。像这样：

Dim RandomNumberGenerator As New Random

Public Sub Computer()
    Dim RandomNumber = RandomNumberGenerator.Next(0, 9)
    Dim RandomButton = CType(RandomNumber, Buttons)
    '' etc..
End Sub