实验一：（带有进度条的倒计时程序）
Public Class Form1
    Dim timers As Integer
    Dim temp As Integer
    Private Sub Timer1_Tick(ByVal sender Asvb程序设计简单吗 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.EventAr
gs) 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 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
        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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。