在視覺基礎中加減

-1

我是Visual Basic 2010 Express的初學者，我需要製作一個基本程序，您可以在textbox1中輸入數字，然後使用加或減按鈕從textbox2中添加或減去數字。我的問題是隻有一個數字被增加或減少。例如，如果我加50元，只顯示50，我不能只是不斷加入拿到50，100等在視覺基礎中加減

這裏是我的代碼如下所示：

Public Class Form1 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Subtract.Click 
     Dim number1, number2 As Integer 
     number1 = TextBox4.Text 
     number2 = txtVariables.Text 
     TextBox4.Text = number1 - number2 
    End Sub 

    Private Sub btnTransfer_Click(sender As System.Object, e As System.EventArgs) Handles btnTransfer.Click 
     Dim TextBoxContents As String 
     TextBoxContents = txtVariables.Text 
     TextBox4.Text = TextBoxContents 
     If Val(TextBox4.Text) > 1 Then 
      TextBoxContents = Val(TextBox4.Text) + Val(txtVariables.Text) 
     Else 
      TextBox4.Text = TextBoxContents 
     End If 
    End Sub 
End Class

來源

2017-02-01 user7501974

通過給文本框，按鈕和其他控件提供更明智的名稱，可以使您的代碼更容易閱讀。你稍後會感謝你。 –

謝謝你的建議，這真的只是我做過的第一個程序，所以我並不真正瞭解我在做什麼 – user7501974

也看轉** Option Strict On **。它將有助於編碼。既然你是新人，你的計劃還處於初期階段，那麼這樣做並學習會很好。 – Bugs

使用此

Public Class Form1 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Subtract.Click 
Dim number1, number2 As Integer 
number1 = Convert.toInt32(TextBox4.Text) 
number2 = Convert.toInt32(txtVariables.Text) 
TextBox4.Text = (number1 - number2) 
End Sub

來源

2017-02-01 18:06:10

嘿，謝謝，現在我該如何補充？而且我必須不讓數字降到0以下，我該怎麼做？ – user7501974

在「添加」按鈕的事件處理程序中使用'+'而不是'-'。你可以通過用'If'語句檢查結果來防止數字低於0，如果它小於0，不要更新數字。 –

當我運行程序並點擊'添加'它只是崩潰並說錯誤，我該怎麼辦？只有減法工作。 – user7501974

在視覺基礎中加減

回答

相關問題