按规律填数1,15,3,13,5,11,(),()。答:1,15,3,13,5,11,(7),(9)。奇数位上的数依次加2,偶数位上的数依次减2
VBA怎么将连续数字变成带“-”表示,如有一组数据:1,2,3,5,6,7,9...答:Sub 连续数字组合() arr = Array(1, 2, 3, 5, 6, 7, 9, 11, 12, 1000) '为防止下标超出数组尾多加一个数,该数不参加整理 '实际操作中该数由程序加入,不影响原数据规则 a = arr(0) For i = 1 To 8 If arr(i) - arr(i - 1) > 1 Then a = a & "," ...