Private Sub Combo1_Click()
Text1.Text = Combo1.ItemData(Combo1.ListIndex)
End Sub
Private Sub Form_Load()
Combo1.AddItem "a"
Combo1.ItemData(0) = 9.6
Combo1.AddItem "b"
Combo1.ItemData(1) = 11.5
Combo1.AddItem "c"
Combo1.ItemData(2) = 13.4
Combo1.ListIndex = 2
End Sub
想赋值9.6等 小数的，Text1.Text中显示的都是 10 ，12，这样的整数

ItemData(0) 类型 long
自动类型转换.

太菜了吧

怎末调整呢，刚开始学用VB，请教下，