| 动画介绍:
程序代码: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Form1.Show End Sub
Private Sub Form_Load() Timer1.Interval = 10 Timer2.Interval = 10 Form1.Hide For i = 1 To 1E+23 For a = 1 To 1E+16 Next a For b = 1 To 1E+19 Next b For c = 1 To 999999999 Next c Next i
End Sub
Private Sub Timer1_Timer() Form1.Show End Sub
Private Sub Timer2_Timer() Form1.Show End Sub |