用vbs写一个输入几到几的数字，生成几位数，输出所有组合生成的数字。例如输入1到6，生成3位数

以下是一个用vbs写的程序，可以实现输入起始数字和结束数字，生成指定位数的所有可能数字组合： ``` Dim startNum, endNum, digit startNum = InputBox("请输入起始数字：") endNum = InputBox("请输入结束数字：") digit = InputBox("请输入要生成的数字位数：") For i = startNum To endNum For j = startNum To endNum For k = startNum To endNum If digit = 1 Then WScript.Echo i ElseIf digit = 2 Then WScript.Echo i & j ElseIf digit = 3 Then WScript.Echo i & j & k End If Next Next Next ``` 使用方法： 1. 双击打开记事本，将上述代码复制粘贴到记事本中； 2. 将代码中的“digit”变量改为你需要生成的数字位数； 3. 保存文件，文件名以.vbs结尾，例如test.vbs； 4. 双击运行test.vbs文件，按照提示输入起始数字和结束数字； 5. 程序会输出所有可能生成的数字组合。