Question

我做了个背单词的模块，怎么用timer控件先在label1上显示单词，然后过1秒再label2中显示词义。

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Randomize
Static i As Integer
i = i + 1
Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
If i = 5 Then Timer1.Enabled = False
End Sub

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！

Answer 2

Public t As Boolean
'定义一个全局变量

Private Sub Form_Load()
t = False
Timer1.Interval = 1000
'初始化时间变量为0和控件触发时间间隔为1秒
End Sub

Private Sub Timer1_Timer()
t = Not (t)
If t = True Then
'在这里填入显示单词的代码
Else
'在这里填入显示词义的代码
End If
End Sub