lan
小水手

UID 2509
精华
0
积分 3
帖子 3
阅读权限 10
注册 2006-3-25 来自 广东
状态 离线
|
Private Sub Form_Load()
a = 1 为什么要等于1
End Sub
Private Sub Timer1_Timer()
Select Case a
Case -1 为什么要是-1
Label1.Top = Label1.Top + a * 20
If Label1.Top <= 0 Then
a = 1
End If
Case 1 为什么是1
Label1.Top = Label1.Top + a * 20 a*20又是什么
If Label1.Top > 2000 Then
a = 0
End If
End Select
End Sub
请指点
|
|