Question

VB combo1.listindex

Private Sub Form_Load()
Dim com2i%, com3i%, com4i%

Combo1.AddItem "请选择", 0
Combo1.AddItem "早晚班", 1
Combo1.AddItem "休 息", 2
Combo1.AddItem "下午班", 3
Combo1.ListIndex = 0

For com2i = 0 To 1000 Step 1
Combo2.AddItem Val((com2i + 2000)), (com2i)
Next com2i
Combo2.ListIndex = 11

For com3i = 0 To 11 Step 1
Combo3.AddItem Val((com3i + 1)), (com3i)
Next com3i
Combo3.ListIndex = 2

For com4i = 0 To 30 Step 1
Combo4.AddItem Val((com4i + 1)), (com4i)
Combo4.ListIndex = 0
Next com4i

End Sub
为什么我的Combo4.ListIndex总是-1？而combo2.listindex和combo3.listindex都是预定的11和2.
另外如果我想将索引对应的数值带入运算 应该怎样写？
比如combo1.additem 1,2000 这个时候索引是1索引对应的值是2000，那么我怎么将2000带入运算？比如将索引1对应的值2000对4求余
我自己是这样写的：combo1.listindex mod 4
但是我发现这样写是不对的 combo1.listindex的值始终是1
求解释。

Answer 1

ListIndex指的是当前选择项目的索引，当Combo的Text与列表中的值都不匹配时，ListIndex 值为 -1
你这个程序运行后，Combo4的ListIndex 是0 ，不是 -1 。
要引用Combo中的当前数值应该这样：
val(Combo4.text) mod 4
如果要引用Combo中第N个数值
val(Combo4.List(N-1)) mod 4

Answer 2

选F1时，Combo1.ListIndex等于0，那么相当于调用的函数是Key(0)，当参数是0时，函数返回&H70，而&H70是16进制数字，7*16+0=112