演算子 算術演算子

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Private Sub 算術演算子()

'****************************************************
'算術演算子サンプル
'****************************************************
Dim a As Long, b As Byte, c(7, 3) As String, d As Byte

a = 10: b = 3

c(1, 1) = "+":      c(1, 2) = "加算式":     c(1, 3) = a + b
c(2, 1) = "-":      c(2, 2) = "減算式":     c(2, 3) = a - b
c(3, 1) = "*":      c(3, 2) = "乗算式":     c(3, 3) = a * b
c(4, 1) = "/":      c(4, 2) = "除算式":     c(4, 3) = a / b
c(5, 1) = "\":      c(5, 2) = "除算商":     c(5, 3) = a \ b
c(6, 1) = "Mod":    c(6, 2) = "除算余":     c(6, 3) = a Mod b
c(7, 1) = "^":      c(7, 2) = "べき乗":     c(7, 3) = a ^ b

For d = 1 To UBound(c, 1)
    MsgBox a & c(d, 1) & b & " = " & c(d, 3) & " です。", 0, "【" & c(d, 2) & "】"
Next d

End Sub

 

2000年01月01日|[VBサンプルコード]:[演算子]