四則演算の除算

注意事項

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

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

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

原則としてすべて運営者(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))

'x÷yの割り算の計算(小数第2位までの表記)
MsgBox(TBInputX.Text & " ÷ " & TBInputY.Text & " = " _
& (Integer.Parse(TBInputX.Text) _
/ Integer.Parse(TBInputY.Text)).ToString("0.00") _
)

'x÷yの商の計算
'(\を用いると商になります)
MsgBox(TBInputX.Text & " ÷ " & TBInputY.Text & " = " _
& Integer.Parse(TBInputX.Text) \ Integer.Parse(TBInputY.Text))

'x÷yの余りの計算
'(Modを用いると余りになります)
MsgBox(TBInputX.Text & " ÷ " & TBInputY.Text & " = " _
& Integer.Parse(TBInputX.Text) Mod Integer.Parse(TBInputY.Text))

'x÷yの商と余りの計算
MsgBox(TBInputX.Text & " ÷ " & TBInputY.Text & " = " _
& Integer.Parse(TBInputX.Text) \ Integer.Parse(TBInputY.Text) _
" 余り " _
& Integer.Parse(TBInputX.Text) Mod Integer.Parse(TBInputY.Text))