VB中计算点击图片次数

来源：百度知道 编辑：UC知道 时间：2024/09/24 05:24:44
程序开始运行时，图片在窗体范围内随机移动。当用户用鼠标点中该图片时，显示点中次数，每点中一次加10分
问题补充：用label控件显示次数和分数，循环结构

说明一下,这一题,不适合用循环来做,因为,循环是连续的,除非你用别的方法(如:加空循环,或用Sleep函数)来延时,但这样做的话,还不如用计时器来的方便,因为前者还有一个系统控制权的问题,当然你也可以用DoEvents来交出控制权

Dim s As Single
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500 '设置变化速度
Picture1.AutoRedraw = True
End Sub

Private Sub Picture1_Click()
s = s + 10
label1.caption= "点中" & s/10 & "次,得分:" & S
End Sub

Private Sub Timer1_Timer()
Randomize
Dim x As Single, y As Single
With Picture1
x = Rnd * (Form1.ScaleWidth - .Width)
y = Rnd * (Form1.ScaleHeight - .Height)
.Move x, y
End With
End Sub

创建一个表单级变量，用来计数，在图片控件的单击事件里增加这个变量的值，同时在label里显示。

Private Sub Form_Load()
Timer1.Interval = 10
Timer2.Interval = 10
End Sub

Private Sub Picture1_Click()
Static i As Integer
i = i + 100
Label1.Caption = "次数&quo