Vb.net 是什么导致我的程序显示错误的图像？ 公共类表单1 私有子组box1_Enter（发送方作为对象，e作为事件args）处理gpbx1。Enter 端接头 私有子CheckBox1_CheckedChanged（发送方作为对象，e作为事件参数）处理chk20.

是什么导致我的程序显示错误的图像？

公共类表单1
私有子组box1_Enter（发送方作为对象，e作为事件args）处理gpbx1。Enter
端接头
私有子CheckBox1_CheckedChanged（发送方作为对象，e作为事件参数）处理chk20.CheckedChanged
端接头
作为整数的年龄
朦胧的性别
暗淡的男性如弦
朦胧的女性如弦
像绳子一样模糊的孩子
朦胧少年如弦
朦胧的成人如弦
作为字符串的Dim agerange
朦胧的天曼如弦
作为字符串的Dim teengirl
朦胧的少女如弦
朦胧的童子
朦胧的成年男子
朦胧的成年少女
作为字符串的Dim agegen
私有子CheckBox2_CheckedChanged（发送方作为对象，e作为事件参数）处理chk40.CheckedChanged
端接头
私有子CheckBox4_CheckedChanged（发送方作为对象，e作为事件参数）处理chk60.CheckedChanged
端接头
私有子复选框9\u CheckedChanged（发送方作为对象，e作为事件参数）
端接头
Private Sub GroupBox1_Enter_1（发送者作为对象，e作为事件参数）处理GroupBox1。Enter
端接头
私有子TextBox1_TextChanged（发送者作为对象，e作为事件args）处理TextBox1.TextChanged
年龄=TextBox1.Text（）
端接头
私有子标签3\u单击（发送者作为对象，e作为事件参数）处理标签3。单击
端接头
私有子CheckBox6_CheckedChanged（发送方作为对象，e作为事件参数）处理chk90.CheckedChanged
端接头
函数determineage（）
年龄=整数（TextBox1.Text）
返回真值
端函数
函数getgender（）
如果CheckBox7.Checked=True，则
性别=男性
ElseIf CheckBox8.Checked=True然后
性别=女性
ElseIf CheckBox7.Checked=False，然后CheckBox8.Checked=False
MessageBox.Show（“请选择性别”）
如果结束
返回真值
端函数
函数限定值（）
如果20岁<200岁，则
Agrange=成人
如果10岁<20岁
青少年
如果10岁<年龄<0岁
Agrange=儿童
如果结束
返回真值
端函数
函数determinationagenger（）
如果Agrange=成人，性别=男性，则
老年人
ElseIf Agrange=成人，性别=女性
年龄=成年女孩
ElseIf Agrange=青少年，性别=男性
年龄=天曼
ElseIf Agrange=青少年，性别=女性
agegen=teengirl
ElseIf Agrange=儿童，性别=男性
年龄=儿童
ElseIf Agrange=儿童，性别=女性
年龄=童女
如果结束
返回真值
端函数
函数温度（）
如果chk20.Checked=True且AGGEN=TeenMan，则
PictureBox1.Load（“H:\AP CSP\VB\MALE\Teen\20.jpg”）
ElseIf chk40.Checked=True，agegen=tenman然后
PictureBox1.Load（“H:\AP CSP\VB\MALE\Teen\40.jpg”）
ElseIf chk50.Checked=True，agegen=tenman然后
PictureBox1.Load（“H:\AP CSP\VB\MALE\Teen\50.jpg”）
ElseIf chk60.Checked=True，agegen=tenman然后
PictureBox1.Load（“H:\AP CSP\VB\MALE\Teen\60.jpg”）
ElseIf chk80.Checked=True，agegen=TeenMan然后
PictureBox1.Load（“H:\AP CSP\VB\MALE\Teen\80.jpg”）
ElseIf chk90.Checked=True，agegen=TeenMan然后
PictureBox1.Load（“H:\AP CSP\VB\MALE\Teen\90.jpg”）
如果结束
如果chk20.Checked=True且agegen=adultman，则
PictureBox1.Load（“H:\AP CSP\VB\MALE\成人\20.jpg”）
ElseIf chk40.Checked=正确，agegen=成年男子
PictureBox1.Load（“H:\AP CSP\VB\MALE\成人\40.jpg”）
ElseIf chk50.Checked=正确，agegen=成年男子
PictureBox1.Load（“H:\AP CSP\VB\MALE\成人\50.jpg”）
ElseIf chk60.Checked=真，agegen=成年男子
PictureBox1.Load（“H:\AP CSP\VB\MALE\成人\60.jpg”）
ElseIf chk80.Checked=正确，agegen=成年男子
PictureBox1.Load（“H:\AP CSP\VB\MALE\成人\80.jpg”）
ElseIf chk90.Checked=正确，agegen=成年男子
PictureBox1.Load（“H:\AP CSP\VB\MALE\成人\90.jpg”）
如果结束
如果chk20.Checked=True且agegen=childboy，则
PictureBox1.Load（“H:\AP CSP\VB\MALE\Child\20.jpg”）
ElseIf chk40.Checked=真，agegen=童子军
PictureBox1.Load（“H:\AP CSP\VB\MALE\Child\40.jpg”）
ElseIf chk50.Checked=真，agegen=童子军
PictureBox1.Load（“H:\AP CSP\VB\MALE\Child\50.jpg”）
ElseIf chk60.Checked=真，agegen=童子军
PictureBox1.Load（“H:\AP CSP\VB\MALE\Child\60.jpg”）
ElseIf chk80.Checked=True，agegen=childboy Then
PictureBox1.Load（“H:\AP CSP\VB\MALE\Child\80].jpg”）
ElseIf chk90.Checked=正确，agegen=儿童
PictureBox1.Load（“H:\AP CSP\VB\MALE\Child\90.jpg”）
如果结束
返回真值
端函数
函数温度girl（）
如果chk20.Checked=True且AGGEN=teengirl，则
PictureBox1.Load（“H:\AP CSP\VB\FEMALE\Teen\20.jpg”）
ElseIf chk40.Checked=True，agegen=teengirl然后
PictureBox1.Load（“H:\AP CSP\VB\FEMALE\Teen\40.jpg”）
ElseIf chk50.Checked=True，agegen=teengirl然后
PictureBox1.Load（“H:\AP CSP\VB\FEMALE\Teen\50.jpg”）
ElseIf chk60.Checked=True，agegen=teengirl然后
PictureBox1.Load（“H:\AP CSP\VB\FEMALE\Teen\60.jpg”）
ElseIf chk80.Checked=True，agegen=teengirl然后
PictureBox1.Load（“H:\AP CSP\VB\FEMALE\Teen\80.jpg”）
ElseIf chk90.Checked=True，agegen=teengirl然后
PictureBox1.Load（“H:\AP CSP\VB\FEMALE\Teen\90.jpg”）
如果结束
如果chk20.Checked=True且agegen=adultgirl Th
Public Class Form1

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles gpbx1.Enter

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chk20.CheckedChanged

    End Sub


    Dim Age As Integer
    Dim Gender As String
    Dim Male As String
    Dim Female As String
    Dim child As String
    Dim teen As String
    Dim adult As String
    Dim agerange As String
    Dim TeenMan As String
    Dim teengirl As String
    Dim childgirl As String
    Dim childboy As String
    Dim adultman As String
    Dim adultgirl As String
    Dim agegen As String

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles chk40.CheckedChanged

    End Sub

    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles chk60.CheckedChanged

    End Sub

    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub GroupBox1_Enter_1(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Age = TextBox1.Text()

    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub

    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles chk90.CheckedChanged

    End Sub
    Function determineage()
        Age = Int(TextBox1.Text)
        Return True

    End Function
    Function getgender()
        If CheckBox7.Checked = True Then
            Gender = Male

        ElseIf CheckBox8.Checked = True Then
            Gender = Female

        ElseIf CheckBox7.Checked = False And CheckBox8.Checked = False Then
            MessageBox.Show("Please select a gender")
        End If
        Return True
    End Function
    Function determineagerange()
        If 20 < Age < 200 Then
            agerange = adult

        ElseIf 10 < Age < 20 Then
            agerange = teen

        ElseIf 10 < Age < 0 Then
            agerange = child

        End If
        Return True
    End Function
    Function determineagegender()
        If agerange = adult And Gender = Male Then
            agegen = adultman

        ElseIf agerange = adult And Gender = Female Then
            agegen = adultgirl

        ElseIf agerange = teen And Gender = Male Then
            agegen = TeenMan

        ElseIf agerange = teen And Gender = Female Then
            agegen = teengirl

        ElseIf agerange = child And Gender = Male Then
            agegen = childboy

        ElseIf agerange = child And Gender = Female Then
            agegen = childgirl


        End If
        Return True
    End Function

    Function Temperature()
        If chk20.Checked = True And agegen = TeenMan Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Teen\20.jpg")
        ElseIf chk40.Checked = True And agegen = TeenMan Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Teen\40.jpg")
        ElseIf chk50.Checked = True And agegen = TeenMan Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Teen\50.jpg")
        ElseIf chk60.Checked = True And agegen = TeenMan Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Teen\60.jpg")
        ElseIf chk80.Checked = True And agegen = TeenMan Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Teen\80.jpg")
        ElseIf chk90.Checked = True And agegen = TeenMan Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Teen\90.jpg")

        End If

        If chk20.Checked = True And agegen = adultman Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Adult\20.jpg")
        ElseIf chk40.Checked = True And agegen = adultman Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Adult\40.jpg")
        ElseIf chk50.Checked = True And agegen = adultman Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Adult\50.jpg")
        ElseIf chk60.Checked = True And agegen = adultman Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Adult\60.jpg")
        ElseIf chk80.Checked = True And agegen = adultman Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Adult\80.jpg")
        ElseIf chk90.Checked = True And agegen = adultman Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Adult\90.jpg")

        End If


        If chk20.Checked = True And agegen = childboy Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Child\20.jpg")
        ElseIf chk40.Checked = True And agegen = childboy Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Child\40.jpg")
        ElseIf chk50.Checked = True And agegen = childboy Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Child\50.jpg")
        ElseIf chk60.Checked = True And agegen = childboy Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Child\60.jpg")
        ElseIf chk80.Checked = True And agegen = childboy Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Child\80].jpg")
        ElseIf chk90.Checked = True And agegen = childboy Then
            PictureBox1.Load("H:\AP  CSP\VB\MALE\Child\90.jpg")

        End If
        Return True

    End Function

function temperaturegirl()

        If chk20.Checked = True And agegen = teengirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Teen\20.jpg")
        ElseIf chk40.Checked = True And agegen = teengirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Teen\40.jpg")
        ElseIf chk50.Checked = True And agegen = teengirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Teen\50.jpg")
        ElseIf chk60.Checked = True And agegen = teengirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Teen\60.jpg")
        ElseIf chk80.Checked = True And agegen = teengirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Teen\80.jpg")
        ElseIf chk90.Checked = True And agegen = teengirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Teen\90.jpg")

        End If

        If chk20.Checked = True And agegen = adultgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Adult\20.jpg")
        ElseIf chk40.Checked = True And agegen = adultgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Adult\30.jpg")
        ElseIf chk50.Checked = True And agegen = adultgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Adult\50.jpg")
        ElseIf chk60.Checked = True And agegen = adultgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Adult\60.jpg")
        ElseIf chk80.Checked = True And agegen = adultgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Adult\70.jpg")
        ElseIf chk90.Checked = True And agegen = adultgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Adult\90.jpg")

        End If


        If chk20.Checked = True And agegen = childgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Child\20.jpg")
        ElseIf chk40.Checked = True And agegen = childgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Child\40.jpg")
        ElseIf chk50.Checked = True And agegen = childgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Child\50.jpg")
        ElseIf chk60.Checked = True And agegen = childgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Child\60.jpg")
        ElseIf chk80.Checked = True And agegen = childgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Child\80].jpg")
        ElseIf chk90.Checked = True And agegen = childgirl Then
            PictureBox1.Load("H:\AP  CSP\VB\FEMALE\Child\90.jpg")

        End If



        Return True
    End Function

    Private Sub btcalc_Click(sender As Object, e As EventArgs) Handles btcalc.Click
        getgender()
        determineage()
        determineagerange()
        determineagegender()
        If Gender = Male Then
            Temperature()
        ElseIf Gender = Female Then
            temperaturegirl()
        End If



    End Sub

    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles chk80.CheckedChanged

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged

    End Sub

    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.CheckedChanged

    End Sub
End Class

Gender = "Male"

If Gender = "Male" Then