程序是用vb做的，思想很简单一共三个图片组，每个里面3张图片，每个图片放置在一个层上，当点击开始的时候，每组图片的不同层就根据时间判定来变换（时间间隔设置值很小，所以可以使得图片变化很快），然后当点停止的时候，停止图片变化，并且判断这三个图片组所显示在外面的图片是否一样（比较图片是根据图片名称进行的----比如：三个图片组里的图片命名可以这样来操作，p11代表第一组里的第一张图片，它跟p21，p31是一样的，同样p12，p22,p32一样，p13,p23,p33一样这样当符合这个标准时说明图片一样，也就是你赢了，否则你就输了) 关于怎么让图片组合可以随机性？当时没怎么考虑，想到的是用不同的时间控制量来解决的，也就是三个图片组的变化速度不一样，但是都很快，这样就基本实现了期待的结果。其实还有很多好的方案，比如生成随机数，然后制定一个标准，在哪个范围的数对应出哪个图等。 好了，就简单写这些吧，以下是程序代码： Sub judge() temp1 = Val(money.Text) - Val(dz.Text) If temp1 <= 0 Then ban.Caption = "GAME OVER!" start0.Enabled = False stop0.Enabled = False money.Text = 0 Else ban.Caption = "YOU LOSE!" money.Text = temp1 End If End Sub Private Sub Command1_Click() money.Text = 1000 ban.Caption = "" start0.Enabled = True stop0.Enabled = False End Sub Private Sub Form_Load() money.Text = 1000 End Sub Private Sub money_Change() ml.Caption = Val(money.Text) End Sub Private Sub start0_Click() If Val(dz.Text) > 0 Then If Val(dz.Text) <= Val(money.Text) Then start0.Enabled = False stop0.Enabled = True Timer1.Enabled = True Timer2.Enabled = True Timer3.Enabled = True Else ban.Caption = "非法赌注金额!" End If Else Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False ban.Caption = "非法赌注金额!" End If End Sub Private Sub stop0_Click() stop0.Enabled = False start0.Enabled = True Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False If p11.Visible = True Then If p21.Visible = True Then If p31.Visible = True Then ban.Caption = "YOU WIN!" money.Text = Val(money.Text) + Val(dz.Text) Else Call judge End If Else Call judge End If ElseIf p12.Visible = True Then If p22.Visible = True Then If p32.Visible = True Then ban.Caption = "YOU WIN!" money.Text = Val(money.Text) + Val(dz.Text) Else Call judge End If Else Call judge End If ElseIf p13.Visible = True Then If p23.Visible = True Then If p33.Visible = True Then ban.Caption = "YOU WIN!" money.Text = Val(money.Text) + Val(dz.Text) Else Call judge End If Else Call judge End If End If End Sub Private Sub Timer1_Timer() If p11.Visible = True Then p11.Visible = False p12.Visible = True ElseIf p12.Visible = True Then p12.Visible = False p13.Visible = True Else p13.Visible = False p11.Visible = True End If End Sub Private Sub Timer2_Timer() If p21.Visible = True Then p21.Visible = False p22.Visible = True ElseIf p22.Visible = True Then p22.Visible = False p23.Visible = True Else p23.Visible = False p21.Visible = True End If End Sub Private Sub Timer3_Timer() If p31.Visible = True Then p31.Visible = False p32.Visible = True ElseIf p32.Visible = True Then p32.Visible = False p33.Visible = True Else p33.Visible = False p31.Visible = True End If End Sub