在窗体上加一个ComboBox控件，代码如下；
Option Explicit
Dim d(4) As Integer
Private Sub Combo1_Click()
MsgBox "你选择了第" & Combo1.ListIndex + 1 & "项," & "对应的值为：" & d(Combo1.ListIndex)
End Sub
Private Sub Form_Load()
d(0) = 20
d(1) = 30
d(2) = 40
d(3) = 80
Combo1.AddItem 1
Combo1.AddItem 2
Combo1.AddItem 3
Combo1.AddItem 4
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024