你在组合框Chang事件中添加你需要处理的事务就可以了Private Sub ComboBox3_Change() If (Me.ComboBox3.Text = "Rad") Then Me.BackColor = a ElseIf (Me.ComboBox3.Text = "Rad") Then Me.BackColor = b End If End Sub