用vbs写一个输入几到几的数字，生成几位数，然后一次输出所有组合生成的数字

以下是一个用vbs写的程序，可以实现输入起始数字和结束数字，生成指定位数的所有可能数字组合，并一次性输出： ``` Dim startNum, endNum, digit startNum = InputBox("请输入起始数字：") endNum = InputBox("请输入结束数字：") digit = InputBox("请输入要生成的数字位数：") Dim arr(digit-1) For i = 0 To digit-1 arr(i) = startNum Next Dim result result = "" While arr(0) <= endNum result = result & Join(arr, "") & " " arr(digit-1) = arr(digit-1) + 1 For i = digit-1 To 1 Step -1 If arr(i) > endNum Then arr(i) = startNum arr(i-1) = arr(i-1) + 1 End If Next Wend WScript.Echo result ``` 使用方法： 1. 双击打开记事本，将上述代码复制粘贴到记事本中； 2. 保存文件，文件名以.vbs结尾，例如test.vbs； 3. 双击运行test.vbs文件，按照提示输入起始数字和结束数字，以及要生成的数字位数； 4. 程序会一次性输出所有可能生成的数字组合。