Private Sub Combo1_Click()
Select Case Combo1.Text
Case "A"
Call 算法1
Case "B"
Call 算法2
Case "C"
Call 算法3
End Select
End Sub
Private Sub Command1_Click() '添加选项
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
End Sub