除了输入框为字符串,界面返回值大多数是0123456789其中一个,根据这个值再变化即可。 如: Dim a MessageBox "下拉框值是"&Form1.ComboBox1.ListIndex If Form1.ComboBox1.ListIndex = 0 Then a="我" ElseIf Form1.ComboBox1.ListIndex = 1 Then a="你" ElseIf Form1.ComboBox1.ListIndex = 2 Then a="他" Else a="其它" End If MessageBox "a的值为 "&a