四則演算の減算

注意事項

このサイト内で公開していることがらについて

使用や利用によるいかなる損失に対しても責任を負いませんのでご了承ください。

著作物に関する著作権について

原則としてすべて運営者(EponaLab)にあります。

ソースコード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