vbscript 如何使用循环解决如下问题

来源：百度知道 编辑：UC知道 时间：2024/09/25 00:28:49
做一个VB脚本，
运行它时，打开记事本，输入如下数字
1
12
123
1234
……
123456789
用循环解决。
sendkeys我会，关键是出问题的人要用循环
我要的是一段代码,我保存为XXX.vbs
运行时,它自动打开记事本,输入我上面的内容.

With CreateObject("WScript.Shell")
.Run "notepad"
WScript.Sleep 1000
.AppActivate "无标题-记事本"
For i=1 To 9
For j=1 To i
.SendKeys j
Next
.SendKeys "{ENTER}"
Next
End With

注：WinXP上测试通过

Open "c:\1.txt" For Output As #1
s = "123456789"
For i = 1 To Len(s)
Print #1, Left(s, i)
Next i
Close #1