程序代码简单小程序.docVIP

实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(  ByVal sender  As ,  ByVal e  As  Handles If + / timers  Then += / timers Else =  False = (  进度完成！  ) End If temp += 1 () End Sub Private Sub Form1_Load( ByVal sender As , ByVal e As Handles timers = 30 End Sub Private Sub Button2_Click( ByVal sender As , ByVal e As Handles timers = Val(InputBox( 输入, 请输入总时间。 , 30, 0, 0)) End Sub Private Sub Button1_Click( ByVal sender As , ByVal e As Handles True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub