VB程序代码(简单小程序).docx

实验一：(带有进度条的倒计时程序) Public Class Forml Dim timers As In teger Dim temp As In teger Private Sub Timer1_Tick(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies Timerl.Tick If (ProgressBarl.Vaiue + ProgressBarl.Maximum / timers < ProgressBarl.Maximum) The n ProgressBarl.Vaiue += ProgressBarl.Maximum / timers Else Timerl.E nabled = False ProgressBarl.Vaiue = ProgressBarl.Maximum MessageBox.Show(” 进度完成！") End If temp += 1 Labell.Text = temp.ToStri ng() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies MyBase.Load timers = 30 End Sub Private Sub Butto n2_Click(ByVal sender As System.Object, ByVai e As System.Eve ntArgs) Han dies Butt on 2.Click timers = Val(I nputBox(" 输入"," 请输入总时间。",30, 0, 0)) End Sub Private Sub Butto n1_Click(ByVal sender As System.Object, ByVai e As System.Eve ntArgs) Han dies Butt on I.Click Timerl.E nabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Forml Dim t As In teger Private Sub Timer1_Tick(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies Timerl.Tick 'Dim t As Boolean 'If t = True Then ' PictureBox3 .Im age = PictureBox2 .Im age 't = False 'Else ' PictureBox3 .Im age = PictureBoxI .Im age 't = True 'End If Select Case t Case 0 PictureBox3 .Im age = PictureBox1 .Im age t = 1 Case 1 PictureBox3 .Im age = PictureBox2 .Im age t = 2 Case 2 PictureBox3 .Im age = PictureBox1 .Im age t = 3 Case 3 PictureBox3 .Im age = PictureBox1 .Im age t = 0 End Select End Sub End Class 实验三(递推法 迭代法--猴子吃桃) Public Class Form1 Private Sub Butto n1_Click(ByVal sender As System.Object, ByVal e As System.Eve ntArgs) Han dles Butt on 1.Click Dim n, y As In teger n = Val(TextBoxl.Text) y = Val(TextBox2.Text) Dim xi As Double xi = y TextBox3.Text =" 第"+ n. ToStri ng() + " 天的桃子为：” + y.ToStri ng() + " 个。 "+ vbCrLf For i As In teger = n - 1 To 1 Step -1 xi = (xi + 1) * 2 TextBox3.Text +=" 第 ” + i.ToStri ng() + " 天的桃子为：” + xi.ToStri ng() + "个。"+ vbCrLf Next End Sub End Class 实验四（加减乘除随