猜猜鴨特徵--程式碼示範

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "北京鴨" Then
            If CheckBox2.Checked And CheckBox3.Checked And Not CheckBox1.Checked And Not CheckBox4.Checked Then
                Label2.Text = "答對了"
            Else
                Label2.Text = " 答錯了"
            End If

        End If
    End Sub
End Class