序列填充数字的算法

Question

我有一个通过以下查询获得的记录集:

SELECT DISTINCT [Number] FROM NUMBERS WHERE CODE = 7 ORDER BY [Number]

因此 Recordset 将是一个有序数字列表，例如。 [6,14,37,59,81,145]

我想生成一长串仅由 0 和 1 组成的数字，其中除记录集中数字指定的位置外均为 0:例如。 6、14、37、59 等

因此结果看起来像这样:

000000000000000000100000000000000000000001000000000000000000001000000 etc

假设 rs 是 Recordset，到目前为止我有以下代码。这行得通吗？

intLower = 1
While Not (rs.BOF Or rs.EOF)
    intUpper = rs!Number
    For intSlot = intLower To intUpper
        strOutput = strOutput & IIf(rs!Number = intSlot, 1, 0)
    Next intSlot
    rs.moveNext
    intLower = intUpper + 1
Wend

注意:我意识到这与我之前的一个问题类似，但我现在想问的是当数字包含在 Recordset 中时如何做到这一点。另请注意，我不想使用将记录集转换为数组的函数，因为我使用的是 DAO，显然 GetRows 有问题。

Answer 1

怎么样;

dim value as long
dim result as String

do while not rs.EOF
    value = rs!Number
    If (value > Len(result)) then result = result & String$(value - Len(result), "0")
    Mid$(result, value, 1) = "1"
    rs.moveNext
loop
msgbox result

按排序进行编辑；

dim result as String

do while not rs.EOF
  result = result & String$(rs!Number - Len(result) - 1, "0") & "1"
  rs.moveNext
loop
msgbox result