【实验】VB程序代码(简单小程序).pdfVIP

实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If (ProgressBar1.Value + ProgressBar1.Maximum / timers ProgressBar1.Maximum)Then ProgressBar1.Value += ProgressBar1.Maximum / timers Else Timer1.Enabled = False ProgressBar1.Value = ProgressBar1.Maximum MessageBox.Show(进度完成！ ) End If temp += 1 Label1.Text = temp.ToString() End Sub Private Sub Form1_Load(ByVal senderAs System.Object,ByVal e As System.EventArgs) HandlesMyBase.Load timers = 30 End Sub Private Sub Button2_Click( ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles Button2.Click timers = Val(InputBox( 输入 , 请输入总时间。 , 30, 0, 0)) End Sub Private Sub Button1_Click( ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub Timer1_Tick( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ’Dim t As Boolean If t = True Then PictureBox3.Image = PictureBox2.Image t = False Else PictureBox3.Image = PictureBox1.Image t = True End If Select Case t Case 0 PictureBox3.Image = PictureBox1.Image t = 1 Case 1 PictureBox3.Image = PictureBox2.Image t = 2 Case 2 PictureBox3.Image = PictureBox1.Image t = 3 Case 3