計算

今回は計算してみます。
以下の内容をします。
・足す
・引く
・かける
・割る
・余り
・○乗する

やってみます。
足します

Sub calculationTasu()
    Dim sum As Integer
    sum = 5 + 5
    MsgBox sum
End Sub

引きます

Sub calculationHiku()
    Dim sum As Integer
    sum = 5 - 4
    MsgBox sum
End Sub

掛けます

Sub calclationKakeru()
    Dim sum As Integer
    sum = 5 * 5
    MsgBox sum
End Sub

割ります

Sub calclationWaru()
    Dim sum As Integer
    sum = 5 / 5
    MsgBox sum
End Sub

割り算の商を求めます

Sub calclationSyou()
    Dim sum As Integer
    sum = 5 \ 3
    MsgBox sum
End Sub

割り算の余りを求めます

Sub calclationAmasri()
    Dim sum As Integer
    sum = 5 Mod 3
    MsgBox sum
End Sub

○乗します

Sub calclationJyou()
    Dim sum As Integer
    '（値）の（値）乗
    sum = 2 ^ 3
    MsgBox sum
End Sub

あると思いました。
もうはやらないですね。
また新しいの探します。