1,451
社区成员
发帖
与我相关
我的任务
分享
Dim X As Integer
Private Sub Combo1_Click()
Dim MM As Integer
MM = Val(Combo1.Text)
Select Case MM
Case 1: X = 15
Case 2: X = 20
Case 3: X = 25
Case 4: X = 30
Case 5: X = 35
End Select
End Sub
Private Sub Form_Load()
Combo1.Clear
For I = 1 To 5
Combo1.AddItem I
Next I
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_Change()
Dim AA As Integer
AA = Val(Text1.Text)
Text2.Text = AA * X
End Sub
在Combo1_Click中设置票价,在Text1_Change事件中就可以计算出总价。很简单的!select case Combo1.listindex
case 0
text1.text="20元"
case 1
text1.text="50元"
case ....
end select