直接从0到999999循环就行了，然后不够6位就在前面补零

微贴吧同号

a=0
For i=0 to 999999
If i=0
a="000000"
ElseIf Len(i)=6
a=i
ElseIf Len(i)=5
a="0"&i
ElseIf Len(i)=4
a="00"&i
ElseIf Len(i)=3
a="000"&i
ElseIf Len(i)=2
a="0000"&i
ElseIf Len(i)=1
a="00000"&i
End If
Next
//拿走不客气

日，老哥，麻烦私信我微信，收了30块钱那个，QQ上不去了

Dim passWord,i
for i=1000000 to 1999999 step 1
passWord = right(i, 6)
TracePrint passWord
next

那不是7位数，你这是从1-10，你改成0-9就可以了

算了，要写什么功能加我吧，V同名

厉害

For i = 0 To 999999
a=i
For 6 - len(i)
a="0"&a
Next
TracePrint a
Delay 10
Next
Dim i, j
For i = 0 To 999999
j = i
If Len(j) < 6 Then
j = String(6 - Len(j), "0") & j
End If
TracePrint j
Delay 10
Next
两个都能实现，没BUG，还简短