Dim a As Integer
Dim b As Integer
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "高"
a = 10
Case Else
a = 0
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo2.Text
Case "底"
b = 5
Case Else
b = 0
End Select
Text1.Text = a + b
End Sub
Private Sub Form_Load()
Combo1.AddItem "高"
Combo2.AddItem "底"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！