主题：[求助]（虚心请教）怎么实现这个

 问题1 代码

Dim t As Table = Tables("基础走势")
Dim qcs() As String = {"红一", "红二", "红三", "红四", "红五", "红六", "蓝球"}
Dim pr As Row = Nothing
For i As Integer = 0 To t.Rows.Count - 1
    Dim r As Row = t.Rows(i)
   
    For j As Integer = 1 To 33
        For Each qc As String In qcs
            If r(qc) = j Then
                If pr Is Nothing Then
                    r("h" & j) = 1
                Else
                    r("h" & j) = pr("h" & j) + 1
                End If
                Exit For
            Else
                r("h" & j) = 0
            End If
        Next
    Next

    pr = r
Next