算術演算子 ： Excel

Option Explicit

Private Sub CommandButton1_Click()
On Error GoTo ErrExit
    TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    Exit Sub
ErrExit:
    MsgBox "足し算（和）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton2_Click()
On Error GoTo ErrExit
    TextBox4.Text = Val(TextBox5.Text) - Val(TextBox6.Text)
    Exit Sub
ErrExit:
    MsgBox "引き算（差）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton3_Click()
On Error GoTo ErrExit
    TextBox7.Text = Val(TextBox8.Text) * Val(TextBox9.Text)
    Exit Sub
ErrExit:
    MsgBox "掛け算（積）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton4_Click()
On Error GoTo ErrExit
    TextBox10.Text = Val(TextBox11.Text) / Val(TextBox12.Text)
    Exit Sub
ErrExit:
    MsgBox "割り算（商）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton5_Click()
On Error GoTo ErrExit
    TextBox14.Text = Val(TextBox13.Text) ^ Val(TextBox15.Text)
    Exit Sub
ErrExit:
    MsgBox "べき乗 計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton6_Click()
On Error GoTo ErrExit
    TextBox17.Text = Val(TextBox16.Text) \ Val(TextBox18.Text)
    Exit Sub
ErrExit:
    MsgBox "整数商 計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton7_Click()
On Error GoTo ErrExit
    TextBox19.Text = Val(TextBox20.Text) Mod Val(TextBox21.Text)
    Exit Sub
ErrExit:
    MsgBox "剰余 計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub