Visual Basic计算

Question

我正在尝试为我的程序创建摘要，但不知道如何操作。 这是我的程序代码。这将通过存款，支票或服务费来计算银行余额。它还支付10美元的书面退款支票费用。

Private Sub CalculateTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateTextBox.Click 
    'Calculate the transaction and display the new balance 
    Dim AmountDecimal As Decimal 

    If DepositRadioButton.Checked Or CheckRadioButton.Checked Or ChargeRadioButton.Checked Then 
     Try 
      AmountDecimal = Decimal.Parse(AmountTextBox.Text) 

      If DepositRadioButton.Checked = True Then 
       BalanceDecimal += AmountDecimal 
      ElseIf CheckRadioButton.Checked = True Or ChargeRadioButton.Checked = True Then 
       If (BalanceDecimal - AmountDecimal > 0) Then 
        BalanceDecimal -= AmountDecimal 
       Else 
        MessageBox.Show("Insufficient Funds. Service charge of $10. ") 
        BalanceDecimal = BalanceDecimal + 10 

       End If 
      End If 

      BalanceTextBox.Text = BalanceDecimal.ToString("C") 
     Catch AmountException As FormatException 
      MessageBox.Show("Please make sure that only numeric data has been entered.", 
       "Invalid Entry", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
      With AmountTextBox 
       .Focus() 
       .SelectAll() 
      End With 
     Catch AnyException As Exception 
      MessageBox.Show("Error: " & AnyException.Message) 
     End Try 
    Else 
     MessageBox.Show("Please select deposit, check, or service charge", "Input needed") 
    End If 
End Sub 

我已经创建了一个摘要按钮将显示的存款总数，沉积物的总金额，支票的数目，和支票的金额。不要包含由于资金不足而退还的支票，但包含10美元的费用。我不知道如何写这个总结，并会很感激任何帮助！我从哪说起呢？我怎样才能做到这一点？

Answer 1

我只是猜测，但我的猜测是，每当用户点击CalculateTextBox，你添加一个存款。如果是这样的话，你可以有一个变量来跟踪存款的数量：

Private deposits as Integer = 0 
Private Sub CalculateTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateTextBox.Click 
    'Calculate the transaction and display the new balance 
    Dim AmountDecimal As Decimal 

    If DepositRadioButton.Checked Or CheckRadioButton.Checked Or ChargeRadioButton.Checked Then 
     ... 
      If DepositRadioButton.Checked = True Then 
       BalanceDecimal += AmountDecimal 
       deposits += 1 'Assuming this is when the user makes a deposit. 
           'Or place this line wherever a deposit is made. 
      ElseIf CheckRadioButton.Checked = True Or ChargeRadioButton.Checked = True Then 
       ... 
      End If 
    ... 
    End If 
End Sub