Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Label2_Click()
Label2.Caption = x + y
End Sub
Private Sub Timer1_Timer()
Dim x As Integer, y As Integer, z As Integer, s As Integer
Randomize
x = Int(Rnd() * 90 + 10)
y = Int(Rnd() * 90 + 10)
Picture1.Cls
Picture1.Print "第一个数:" + csr(x)
Picture2.Cls
Picture2.Print "第二个数:" + csr(y)
If x + y = 100 Then
Timer1.Enabled = False
End If
End Sub