Next

        For i = 0 To 191

            If pflag(i) = True Then

                pab = 0

                For j = 0 To 9

                    For k = 0 To 9

                        If table(j, k) = 2 Then

                            If pwin(j, k, i) = True Then

                                pab = pab + 1

                            End If

                        End If

                    Next

                Next

                Select Case pab

                    Case 3

                        For m = 0 To 9

                            For n = 0 To 9

                                If table(m, n) = 0 Then

                                    If pwin(m, n, i) = True Then

                                        pscore(m, n) = pscore(m, n) + 30

                                    End If

                                End If

                            Next

                        Next

                    Case 4

                        For m = 0 To 9

                            For n = 0 To 9

                                If table(m, n) = 0 Then

                                    If pwin(m, n, i) = True Then

                                        yuandian(m * 30 + 10, n * 30 + 10)

                                        table(m, n) = 1

                                        For dc = 0 To 191

                                            If pwin(m, n, dc) = True Then

上一页  [1] [2] [3] [4]  下一页