是这样的，我的老师让我想办法弄一个点名器，就是那种他可以不动脑子考虑学生学业水平与学习态度按按鼠标就可以点人回答问题的软件，我绞尽脑汁用vb写了一个，代码是这样的：
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Timer1_Timer()
Randomize
a = Int(60 * Rnd) + 1
If a = 1 Then
Text1 = "xxx"
End If
If a = 2 Then
Text1 = "xxx"
End If