Dim t As Integer ‘t用来计时
Private Sub Command1_click( )
Image1.left=64
Label1.caption=””
t=0
Timer1.interval=100
(1)______________
Image1.Enabled=False
End sub
Private Sub Image1_click( )
Timer1.Enabled=False
Image1. Enadled=False
Label1.caption=”打中了”
End Sub
Private Sub Timer1.Timer( )
t =" t" +1
if t<="30" then label1.caption=3-int(t/10)
if t>32 then
label1.caption=”没打中”
For i="1" to 10 ‘手迅速移开的动画
Image1.left=Image1.left-20
For j="1" to 10000
Doevents
Nextj
Next i
Timer1.Enabled=False
Image1.Enabled=False
End if
If t="30" then
‘当t=30时,即倒计时3秒结束,允许开打,对象image1开始允许响应事件
(2)_____________
End if
End sub
同类型试题
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2