Question

VB里listbox的list_click与command_click触发顺序的问题

listbox里有几个方程，比如y=2x，y=3x，y=2+2x等等，此外还有一个textbox，在这个textbox里输入x的值，然后点击command1按钮进行计算，如何实现。
我写的是下面这段，但是算不出来，求大神告知。
Private Sub List1_Click()
If List1.Text = "方程一" Then

y= 2*x
ElseIf List1.Text = "方程二" Then
y=2+2x
else
y=“”
end if
end sub

Private Sub Command1_Click()
x = Val(Text1.Text)
Text2.Text = y
End Sub

Answer 1

Private Sub Command1_Click()
Select Case List1.Text
Case "方程一"  'y=2*x
    Text2.Text = 2 * Val(Text1.Text)
Case "方程二"  'y=3*x
    Text2.Text = 3 * Val(Text1.Text)
Case "方程三"  'y=2+2*x
    Text2.Text = 2 + 2 * Val(Text1.Text)
End Select
End Sub