Question

请问如何在VB中给一个combox下不同选项赋不同的值

如combox里有1，2，3，4四个选项，我希望1选项值为20，2选项值为30，等等，然后再把选中的值加入一个算式中求结果

Answer 1

在窗体上加一个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

追问

请问如何把对应的值赋给某个变量呢，我需要这个值来进行计算

追答

Option Explicit
Dim d(4) As Integer
dim x as integer
 
Private Sub Combo1_Click()
x = 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

你选择的项的对应值，赋给变量 X 了