VB程序代碼(简单小程序).docVIP

实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As 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 sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load timers = 30 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click timers = Val(InputBox(输入, 请输入总时间。, 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As 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 sender As 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 PictureBox3.Image = PictureBox1.Image t = 0 End Select End Sub End Class 实验三（递推法 迭代法--猴子吃桃） Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sys