怎么能同时给ComboBox1赋值并执行

Private Sub CommandButton1_Click()
ComboBox1.List = Array("优良", "满意", "合格")
ComboBox2.List = Array(1, 2, 3)
ComboBox1.Value = "优良"
ComboBox2.Value = 2
End Sub