Question

vb整人代码

帮我编一个：打开文件，自动弹出1000个对话框，上面写“你中奖了, 奖品：1000个对话框”

Answer 1

Private Sub Form_Load()
dim i as integer,N as integer
n=1000
for i=1 to n
MsgBox "你中奖了, 奖品：" & n-i &"个对话框",16,"中奖了"
next
End Sub

Answer 2

Private Sub Form_Load()
i = 0
aa:
MsgBox "你中奖了, 奖品：1000个对话框"
i = i + 1
If i < 3 Then GoTo aa '把3改为1000
End Sub

Answer 3

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000'一秒一个
End Sub

Private Sub Form_Load()
Label1.Move 100
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 1
Dim a As New Form1
a.Show
If Label1.Left >= 105 Then Timer1.Enabled = False'过5秒后停止
End Sub