物種分類--程式碼示範

Public Class Form1
    Dim head, wing, foot As Integer
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("w.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 1
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("b.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 2
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("wb.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 3
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("g.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 4
    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("y.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 5
    End Sub

    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h1.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 1
    End Sub

    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h2.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 2
    End Sub

    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton8.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h3.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 3
    End Sub

    Private Sub RadioButton9_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton9.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h4.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 4
    End Sub

    Private Sub RadioButton10_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton10.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h5.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 5
    End Sub

    Private Sub RadioButton11_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton11.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f1.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 1
    End Sub

    Private Sub RadioButton12_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton12.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f2.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 2
    End Sub

    Private Sub RadioButton13_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton13.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f3.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 3
    End Sub

    Private Sub RadioButton14_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton14.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f4.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 4
    End Sub

    Private Sub RadioButton15_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton15.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f5.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 5
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        Select Case head
            Case 1
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                                Label2.Text = "111"
                            Case 2
                                Label2.Text = "112"
                            Case 3
                                Label2.Text = "113"
                            Case 4
                                Label2.Text = "114"
                            Case 5
                                Label2.Text = "115"
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                                Label2.Text = "121"
                            Case 2
                                Label2.Text = "122"
                            Case 3
                                Label2.Text = "123"
                            Case 4
                                Label2.Text = "124"
                            Case 5
                                Label2.Text = "125"
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                                Label2.Text = "131"
                            Case 2
                                Label2.Text = "132"
                            Case 3
                                Label2.Text = "133"
                            Case 4
                                Label2.Text = "134"
                            Case 5
                                Label2.Text = "135"
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 2
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 3
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 4
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 5
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
        End Select
    End Sub
End Class