Question

帮我编一个vb整人代码：我想要打开那个文件，自动弹出1000个对话框，上面写“你中彩票了：1000个对话框

Answer 1

i=0
do until i=1000
i=i+1
createobject("wscript.shell").popup "你被耍了"
loop

'弹出1000个对话框，点完一个出现下一个，引号中文字可以更改。

Answer 2

sub main()
for i = 1 to 1000
msgbox “你中彩票了”
next
end sub

Answer 3

privast sub command1_click()
dim s
do until s=100
msgbox"你中彩票了！"，64
loop
end sub
直接复制就OK了！