VB程序代码(简单小程序) 实验一:(带有进度条的倒计时程序) 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 VB程序代码(简单小程序) 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 System、EventArgs) Handles Button1、Click Dim n, y As Integer n = Val(TextBox1、Text) y = Val(TextBox2、Text) Dim xi As Double xi = y TextBox3、Text = "第" + n、ToString() + "天的桃子为:" + y、ToString() + "个。" + vbCrLf For i As Integer = n - 1 To 1 Step -1 xi = (xi + 1) * 2 TextBox3、Text += "第" + i、ToString() + "天的桃子为:" + xi、ToString() + "个。" + vbCrLf Next End Sub End Class 实验四(加减乘除随机数题) Public Class Form1 Dim x, y As Integer Dim i As Integer Dim sum As Integer Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click If (Label1、Text <> "") Then TextBox2、Text += Label1、Text + TextBox1、Text TextBox2、Text += " 结果" If (sum = Val(TextBox1、Text)) Then TextBox2、Text += "√" + vbCrLf Else TextBox2、Text += "×" + vbCrLf End If VB程序代码(简单小程序) End If Randomize() x = Int(Rnd() * 999 + 1) y = Int(Rnd() * 999 + 1) i = Int(Rnd() * 4 + 1) Select Case i Case 1 Label1、Text = x、ToString() + "＋" + y、ToString() + "＝" sum = x + y Case 2 Label1、Text = x、ToString() + "－" + y、ToString() + "＝" sum = x - y Case 3 Label1、Text = x、ToString() + "×" + y、ToString() + "＝" sum = x * y Case 4 Label1、Text = x、ToString() + "÷" + y、ToString() + "＝" sum = x / y End Select End Sub End Class 本文来源：https://www.wddqw.com/doc/2001120cf21dc281e53a580216fc700aba685264.html