跑步总数 [英] Running total

查看：97 发布时间：2019/6/15 12:38:52 linqprojectgeneral

本文介绍了跑步总数的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

在我正在处理的应用中，我需要保持一个总计，并且能够显示"总计"。在标签控件中。我正在使用visual basic express并且是初学者。以下是我到目前为止的情况。我可以在我的第三个列表框中显示研讨会和位置，但是当我按下我的计算总计按钮时，它会显示0。任何帮助都将非常感谢。提前谢谢你。

- Mac

公共 Class frmMain

Public Class frmMain

私人 intWrkShpCost 作为整数 '工作坊成本

Private intWrkShpCost As Integer 'Workshop Cost

私人 intLocCost As 整数 '位置成本

Private intLocCost As Integer 'Location Cost

私人 intNumDays As 整数 '天数

Private intNumDays As Integer 'Number of Days

私人 intTotal As 整数 '用作累加器

Private intTotal As Integer 'Use as accumulator

私人 Sub btnExit_Click（ ByVal sender As System.Object， ByVal e As System.EventArgs）句柄 btnExit.Click

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

Me .Close（）

Me.Close()

结束 Sub

End Sub

私人 Sub btnAddWorkshop_Click（ ByVal sender As System.Object， ByVal e As System.EventArgs）句柄 btnAddWorkshop.Click

Private Sub btnAddWorkshop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddWorkshop.Click

'为intTotal建立起始值

'Establish starting value for intTotal

intTotal = 0

If lstWorkshops.SelectedIndex = -1 然后

If lstWorkshops.SelectedIndex = -1 Then

MessageBox.Show（ "请选择一个研讨会。" ）

MessageBox.Show("Please select a workshop.")

ElseIf lstWorkshops.SelectedItem = "处理压力" 然后

ElseIf lstWorkshops.SelectedItem = "Handling Stress" Then

lstCosts.Items.Add（lstWorkshops.SelectedItem）。 ToString（）

lstCosts.Items.Add(lstWorkshops.SelectedItem).ToString()

intWrkShpCost = 595 和 intNumDays = 3

intWrkShpCost = 595 And intNumDays = 3

ElseIf lstWorkshops.SelectedItem = " Time Management" 然后

ElseIf lstWorkshops.SelectedItem = "Time Management" Then

lstCosts.Items。添加（lstWorkshops.SelectedItem）.ToString（）

lstCosts.Items.Add(lstWorkshops.SelectedItem).ToString()

intWrkShpCost = 695 和 intNumDays = 3

intWrkShpCost = 695 And intNumDays = 3

ElseIf lstWorkshops.SelectedItem = "监督技能" 然后

ElseIf lstWorkshops.SelectedItem = "Supervision Skills" Then

lstCosts.Items.Add（lstWorkshops.SelectedItem）.ToString（）

lstCosts.Items.Add(lstWorkshops.SelectedItem).ToString()

intWrkSh pCost = 995 intNumDays = 3

intWrkShpCost = 995 And intNumDays = 3

ElseIf lstWorkshops.SelectedItem = " Negotiation" 然后

ElseIf lstWorkshops.SelectedItem = "Negotiation" Then

lstCosts.Items.Add（lstWorkshops.SelectedItem）.ToString（）

lstCosts.Items.Add(lstWorkshops.SelectedItem).ToString()

intWrkShpCost = 1295 和 intNumDays = 5

intWrkShpCost = 1295 And intNumDays = 5

ElseIf lstWorkshops.SelectedItem = " How to Interview" 然后

ElseIf lstWorkshops.SelectedItem = "How to Interview" Then

lstCosts.Items.Add（lstWorkshops.SelectedItem）.ToString（）

lstCosts.Items.Add(lstWorkshops.SelectedItem).ToString()

intWrkShpCost = 395 和 intNumDays = 1

intWrkShpCost = 395 And intNumDays = 1

结束 If

End If

If lstLocation.SelectedIndex = -1 然后

If lstLocation.SelectedIndex = -1 Then

MessageBox.Show（ " ;请选择一个位置。" ）

MessageBox.Show("Please select a location.")

ElseIf lstLocation.SelectedItem = " Austin，TX" 然后

ElseIf lstLocation.SelectedItem = "Austin,TX" Then

lstCosts.Items .Add（lstLocation.SelectedItem）.ToString（）