VB如何实现象棋的哈希表

sdadads

---

补充：

象棋表示方法

REM 将107、士106、象105、车104、马103、包102、卒101(黑)
REM 帅207、仕206、相205、车204、马203、炮202、兵201(红)

哈希表结构
    Public type HistoryTable

        Public ZZ As String    ''棋盘情况：字符描述方式
        Public Value As Long    ''得分

    End type

rem '棋盘(横9列，竖10行)
Dim ChessBoard(9, 10) As Integer         

    Dim Ht(HASH_SIZE) As HistoryTable    ''置换表最多存2000条信息

    Function NextByte() As Byte '' 生成密码流的下一个字节

        Dim uc As Byte, x As Integer, y As Integer

        x = (x + 1) And 255
        y = (y + rc4_s(x)) And 255
        uc = rc4_s(x)
        rc4_s(x) = rc4_s(y)
        rc4_s(y) = uc
        NextByte = rc4_s(rc4_s(x) + rc4_s(y)) And 255

    End Function

    REM 生成密码流的下四个字节
    Function Rc4() As Long

        Dim uc0 As Byte, uc1 As Byte, uc2 As Byte, uc3 As Byte