求大神出手 连续数字算法 也可以说为顺子算法

#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>

#define MAX  13

void sort(int a[], int n)
{
    for (size_t i = n-1; i > 0; i--)
    for (size_t j = 0; j < i; j++)
    {
        if (a[j] < a[j+1])
        {
            int tmp;
            tmp    = a[j];
            a[j]   = a[j+1];
            a[j+1] = tmp;
        }
    }
}

int main(int argc, char *argv[])
{
    int sa[7] = { 0 };
    bool flag = false;

    srand(time(NULL));
   
    int n = rand() % 2 + 5;  // n 取值 5、6、7 表示随机第一次取 n 个数

    // 随机产生 n 个数
    for (size_t j, i = 0; i < n; i++)
    {
        sa[i] = rand() % MAX;
        for (j = 0; j < i; j++)
        {
            if (sa[i] == sa[j])  break;
        }
        if (j < i)  { i--;  continue; }
        printf("%d ", sa[i]);
    }
    printf("\n");  //换行

    // 将这 n 个数排序
    sort(sa, n);

    // 主要 判断 过程
    // 以 n = 5 为例，判断 02，13，24 三组数，循环变量为 3
    for (size_t i = 0; i < 3; i++)
    {
        // 如果 第 i 个数 和 第 i+7-n 个数之差 不大于 n-2 说明可解
        // 仍以 n = 5 为例
        // 如果 sa[0] - sa[2] <= 3 ，说明有解
        if (n - 2 >= sa[i] - sa[i + 7 - n])
            flag = true;
    }
    if (flag)  puts("TRUE");
    return 0;
}

Private Function Straight(ByVal Sour As String) As String
  '判断是否为顺子
  Dim b() As String, i As Integer, j As Integer, a As String, f As Boolean
  Straight = ""
  b = Split(Sour, ",")
  For i = 0 To 5
    '对数据进行冒泡法排序
    For j = i + 1 To 6
      If Val(b(i)) > Val(b(j)) Then a = b(i): b(i) = b(j): b(j) = a
    Next
  Next
  For i = 0 To 2
    f = True
    For j = Val(b(i)) + 1 To Val(b(i)) + 4
      If InStr("," & Sour, "," & j & ",") = 0 Then
        f = False
        Exit For
      End If
    Next
    If f Then
      a = ""
      For j = 0 To 6
        a = a & b(j) & ","
      Next
      Straight = a
      Exit Function
    End If
  Next
End Function
Private Sub PermComb(ByVal Sour As String, Result As String)
  '递归排列组合所有
  Dim b() As String, a As String, i As Integer
  b = Split(Sour, ",")
  If UBound(b) = 7 Then
    a = Straight(Sour)
    If a <> "" And InStr(Result, a) = 0 Then Result = Result & a & "|" '输出有顺子的不重复的结果
    Exit Sub
  End If
  For i = 1 To 13
    If InStr("," & Sour, "," & i & ",") = 0 Then PermComb Sour & i & ",", Result
  Next
End Sub
Private Sub Command1_Click()
  Dim a As String, b() As String, c() As String, d As String, i As Integer, j As Integer, s As Integer
  Randomize
  s = Int(Rnd * 3) + 5    '随机数据个数
  a = ""
  j = Int(Rnd * 13) + 1
  For i = 1 To s
    While InStr(a, j) > 0
      j = Int(Rnd * 13) + 1
    Wend
    a = a & j & ","
  Next
  '上述代码产生随机数据在a里
  'a = "10,2,5,3,9,"     '该数据实验用
  'a = "6,3,11,12,4,"
  's = 5                 '该数据模拟实验用
  Text1 = "原数据：" & Left(a, Len(a) - 1)
  d = ""
  PermComb a, d
  If d <> "" Then
    Text1 = Text1 & ",可以组成顺子。"
    If s < 7 Then
      b = Split(d, "|")
      For i = 0 To UBound(b) - 1
        c = Split(b(i), ",")
        d = ""
        For j = 0 To 6
          If InStr("," & a, "," & c(j) & ",") = 0 Then d = d & c(j) & ","    '这里同前面一样，加个逗号把数字分开即可
        Next
        Text1 = Text1 & d & "|"
      Next
    End If
  Else
    Text1 = Text1 & ",无法组成顺子。"
  End If
End Sub