以下是一个用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
While arr(0) <= endNum
WScript.Echo 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
```
使用方法:
1. 双击打开记事本,将上述代码复制粘贴到记事本中;
2. 保存文件,文件名以.vbs结尾,例如test.vbs;
3. 双击运行test.vbs文件,按照提示输入起始数字和结束数字,以及要生成的数字位数;
4. 程序会输出所有可能生成的数字组合。