求助,想把随机抽取的图片交替在图片框1和图片框2中显示,每秒交替一次,一定时间后终止,退出程序,

[roserice]

Private Sub UserForm_Initialize()
If Cells(1, 1) <> 0 Then Cells(1, 1) = 0
UserForm1.Image2.Enabled = False
UserForm1.Image2.Visible = False
Call aa
End Sub

Private Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:01"), "aa", schedule:=False
End Sub

Sub aa()
Application.OnTime Now + TimeValue("00:00:01"), "aa", schedule:=True
Cells(1, 1) = Cells(1, 1) + 1
If Cells(1, 1) > 5 Then UserForm1.Image1.Visible = False
If Cells(1, 1) > 5 Then UserForm1.Image2.Visible = True
If Cells(1, 1) > 10 Then Application.OnTime Now + TimeValue("00:00:01"), "aa", schedule:=False
With UserForm1.Image2
.Picture = LoadPicture("d:\" & Int(11 * Rnd + 1) & ".jpg")
.Move 120, 10, 100, 100
.PictureSizeMode = fmPictureSizeModeStretch
End With
With UserForm1.Image1
.Picture = LoadPicture("d:\" & Int(11 * Rnd + 1) & ".jpg")
.Move 10, 10, 100, 100
.PictureSizeMode = fmPictureSizeModeStretch
End With

End Sub

[roserice]

引用 1 楼 脆皮大雪糕的回复:

标题你想做一件事情，内容是你做这件事情的代码。 属于炫耀帖吧，CSDN的传统，这种帖子楼主要散分的。

我炫耀，我一共100多分，散什么分，炫耀什么，上代码为了答题的人看着方便，你可以不回答，不要胡说八道，你没有回答问题的能力可以回避

[脆皮大雪糕]

标题你想做一件事情，内容是你做这件事情的代码。 属于炫耀帖吧，CSDN的传统，这种帖子楼主要散分的。

[脆皮大雪糕]

引用 2 楼 roserice 的回复:

[quote=引用 1 楼 脆皮大雪糕的回复:]标题你想做一件事情，内容是你做这件事情的代码。 属于炫耀帖吧，CSDN的传统，这种帖子楼主要散分的。

我炫耀，我一共100多分，散什么分，炫耀什么，上代码为了答题的人看着方便，你可以不回答，不要胡说八道，你没有回答问题的能力可以回避[/quote] 是说你写了半天，都没人知道你问了什么！！！ 你期望的是啥，代码执行起来情况是啥，什么地方不符合你的期望，啥现象。一句话做标题加一段代码，你舍不得码字，于是问题放了那么多天也没人回答不是么？ 我有没有能力回答问题另说，你连问问题的能力都不足。

[roserice]

说来说去是你没这能力,是我舍不得码字?我码一万多字,那是浪费别人时间,这个道理我知道你不懂,所以给你讲讲,作人做事的道理,别找借口,有能力的话就解决问题,不能解决的话就靠边远离,

[浪客]

吃瓜，接分。

[脆皮大雪糕]

引用 4 楼 roserice 的回复:

说来说去是你没这能力,是我舍不得码字?我码一万多字,那是浪费别人时间,这个道理我知道你不懂,所以给你讲讲,作人做事的道理,别找借口,有能力的话就解决问题,不能解决的话就靠边远离,

得，我没能力伺候，您码字浪费您的时间，别人猜测你的想法时间不值钱。 祝你尽快解决问题。

[roserice]

引用 5 楼 脆皮大雪糕的回复:

[quote=引用 4 楼 roserice 的回复:]说来说去是你没这能力,是我舍不得码字?我码一万多字,那是浪费别人时间,这个道理我知道你不懂,所以给你讲讲,作人做事的道理,别找借口,有能力的话就解决问题,不能解决的话就靠边远离,

得，我没能力伺候，您码字浪费您的时间，别人猜测你的想法时间不值钱。 祝你尽快解决问题。[/quote] 是骡子是马拉出来溜溜，光说不练是假把式，

[roserice]

怎么没有人回答呢