四則演算の減算

注意

• このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

コード1:整数型の変数を用いた場合

• 整数型の変数x, yを用いて減算を行います。
• 結果はダイアログボックスで表示します。

                    Dim x As Integer = 3
                    Dim y As Integer = 5
                    MsgBox(x - y)
                

コード2:TextBoxを用いて入出力をする場合

• 入力用のTextBoxのNameをTBInputX, TBInputYとします。
• 出力用のTextBoxのNameをTBOutputとします。
• 2つの入力欄の数を減算し、結果をTBOutputに出力します。
• 文字列型の数値をInteger型に置き換えるためには、Integer.Parseを用います。

                    TBOutput.Text = Integer.Parse(TBInputX.Text) - Integer.Parse(TBInputY.Text)
                

コード3:表示形式を調整した場合

• 入力用のTextBoxのNameをTBInputX, TBInputYとします。
• 出力用のTextBoxのNameをTBOutputとします。
• 2つの入力欄の数を減算し、結果をダイアログボックスで表示します。
• 文字列型の数値をInteger型に置き換えるためには、Integer.Parseを用います。
• 複数行にまたがるときにはアンダーライン"_"をはさみます。

                    'x-yの計算
                    MsgBox(TBInputX.Text & " - " & TBInputY.Text & " = " _
                        & Integer.Parse(TBInputX.Text) - Integer.Parse(TBInputY.Text))
                        
                    'y-xの計算
                    MsgBox(TBInputY.Text & " - " & TBInputX.Text & " = " _
                        & Integer.Parse(TBInputY.Text) - Integer.Parse(TBInputX.Text))
                        
                    '|x-y|の計算
                    If Integer.Parse(TBInputX.Text) >= Integer.Parse(TBInputX.Text) Then
                        MsgBox(TBInputX.Text & " - " & TBInputY.Text & " = " _
                            & Integer.Parse(TBInputX.Text) - Integer.Parse(TBInputY.Text))
                    Else
                        MsgBox(TBInputY.Text & " - " & TBInputX.Text & " = " _
                            & Integer.Parse(TBInputY.Text) - Integer.Parse(TBInputX.Text))
                    End If