你给的代码输入1，6，3，然后没有输出

非常抱歉，我在之前的回答中犯了一个错误。在输入起始数字和结束数字时，需要将其转换为整数类型，否则会导致程序无法正确运行。以下是修改后的代码： ``` Dim startNum, endNum, digit startNum = CInt(InputBox("请输入起始数字：")) endNum = CInt(InputBox("请输入结束数字：")) digit = CInt(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 ``` 请尝试将以上代码复制到记事本中，并保存为.vbs文件，然后双击运行即可。如果还有问题，请随时告诉我。