vb中combobox中如何提取当前的数值？

我刚才已经说过了，combo1 change（）只是在你使用键盘输入或使用程序赋值combo1时候才会触发的事件，你还是使用你的过程，使用键盘输入一下就能看到label的改变了

Private Sub Command1_Click()
y = Val(Combo1.Text) '可以加减乘除的数值
Print y
Print y + 10
End Sub

Private Sub Form_Load()
For i = 2008 To 2050
Combo1.AddItem i & "年"
Next

按照你的说法，你应该改为这个过程
Private Sub Combo1_Change()
Label1.Caption = Val(Combo1.Text)'这个过程是键盘输入时候变化
End Sub

Private Sub Combo1_Click()
Label1.Caption = Val(Combo1.Text)'这个过程是鼠标点击时候变化
End Sub

val(combobox.text)

cint(combobox.text)

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
End Sub