数组中的数字未按数字排序

Question

我使用的程序是IBM Data Collection 6.0（用于编程调查）。

我遇到的问题是它如何存储问题的值。类别[1,2,3,4，... 59,60]（数字顺序）的值会以不同的顺序标记值：

1
2
11
12
13
14
15
16
17
18
19
20
3
21
22
23
24
25
26
27
28
29
30
4
31
32
33
34
35
36
37
38
39
40
5
41
42
43
44
45
46
47
48
49
50
6
51
52
53
54
55
56
57
58
59
60
7
8
9
10

有人可以向我解释这是如何排序的，以及是否有一个简单的算法可以按数字顺序排列？

谢谢！

Answer 1

  

    

以前按字母顺序排序

  

添加前导零

这只是一个例子，可能会有所帮助

Sub test()
    Dim Dic As Object:
    Set Dic = CreateObject("Scripting.dictionary")
    Dim n%, Key As Variant
    n = 1
    While n < 101
        Dic.Add Right("000" & n, 3), Nothing
        n = n + 1
    Wend
    For Each Key In Dic
        Debug.Print Key
    Next Key
End Sub

可以根据需要进行分类

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
...