VB中combobox的选项问题

Private Sub Combo1_Change()
If Combo1.Text = "有水位" Then
swzt1_int = 1
ElseIf Combo1.Text = "玻璃管呈现白色" Then
swzt1_int = 2
ElseIf Combo1.Text = "玻璃管呈现暗色" Then
swzt1_int = 3
End If
End Sub

Private Sub Combo2_Change()
If Combo2.Text = "有水位" Then
swzt2_int = 1
ElseIf Combo2.Text = "玻璃管呈现白色" Then
swzt2_int = 2
ElseIf Combo2.Text = "玻璃管呈现暗色" Then
swzt2_int = 3
End If
End Sub

Private Sub Combo3_Change()
If Combo3.Text = "外表无损坏" Then
grzt_int = 1
ElseIf Combo3.Text = "附近有蒸汽响声" Then
grzt_int = 2
End If
End Sub

Private Sub Command1_Click()
Dim jg1 As Integer
Dim jg2 As Integer
Dim jg3 As Integer
If (Combo1.Text = "") Or (Combo2.Text = "") Or (Combo3.Text = "&qu

VB中Combobox的用法 VB中COMBOBOX的问题 vb.net中COMBOBOX的用法 VB中关于 ComboBox控件的使用 VB中Combobox ,是怎么监视它被选择的? vb.net中winform的combobox联动问题 VB的中combobox和command两个控件使用方法 VB中combobox的list里怎么关联文件啊？ VB中如何把ComboBox控件变成平面的？ vb中combobox应怎样才能达到：当选项全为字母项时按某一字母就显示该字母的顶项。