VB课程设-daima.docVIP

Dim caiming(20) As String Dim price(20) As Integer Dim total As Integer 按钮1（-》） Private Sub Command1_Click() Dim sel_text As String Dim sel_price As Integer sel_text = List1.Text List2.AddItem sel_text sel_price = search(sel_text) Text2.Text = Str(Val(Text2) + sel_price) + 元 Text1.Text = Str(Val(Text1) - sel_price) + 元 List1.RemoveItem List1.ListIndex list1中删除选中项 End Sub 按钮2（《-） Private Sub Command2_Click() Dim sel_text As String Dim sel_price As Integer sel_text = List2.Text List1.AddItem sel_text sel_price = search(sel_text) Text1.Text = Str(Val(Text1) + sel_price) + 元 Text2.Text = Str(Val(Text2) - sel_price) + 元 List2.RemoveItem List2.ListIndex list2中删除选中项 End Sub 按钮3 （》》） Private Sub Command3_Click() Do While List1.ListCount 0 List1.ListIndex = 0 List2.AddItem List1.Text List1.RemoveItem List1.ListIndex 删除选定项 Loop Text1.Text = 0元 Text2.Text = Str(total) + 元 End Sub 按钮4（《《） Private Sub Command4_Click() Do While List2.ListCount 0 List2.ListIndex = 0 List1.AddItem List2.Text List2.RemoveItem List2.ListIndex 删除选定项 Loop Text2.Text = 0元 Text1.Text = Str(total) + 元 End Sub (导出form3) Private Sub Command5_Click() Form3.Show Me.Hide End Sub Private Sub Form_Load() Dim fileno As Integer fileno = FreeFile Open App.Path \菜单.txt For Input As #fileno Sum = 0 i = 0 Do While Not EOF(fileno) Input #fileno, caiming(i), price(i) List1.AddItem caiming(i) Sum = Sum + price(i) i = i + 1 Loop Close #fileno total = Sum Text1.Text = Str(total) + 元 Text2.Text = 0元 End Sub Public Function search(mname As String) As Integer For i = 0 To 20 If mname = caiming(i) Then search = price(i) Exit For End If Next End Function Private Sub List1_Click() End Sub