Question

VB 数个数

大家好，小弟来请教个问题：
之前上VB课弄了个定时画圆的小程序，但我有个问题不太懂
就是数圆的个数
代码如下（在TIMER里写的）
For i = 1 To 10
shuzu(i) = Int(801 * Rnd + 100)
x = Rnd * Picture1.ScaleHeight
y = Rnd * Picture1.ScaleWidth

Picture1.Circle (x, y), shuzu(i)
Next

按暂停后算出圆的个数

Answer 1

Dim z As Integer
Private Sub Command1_Click()
Timer1.Enabled = False

Print z
End Sub

Private Sub Timer1_Timer()
For i = 1 To 10
shuzu(i) = Int(801 * Rnd + 100)
x = Rnd * Picture1.ScaleHeight
y = Rnd * Picture1.ScaleWidth

Picture1.Circle (x, y), shuzu(i)
z = z + 1
Next
End Sub