演算子 算術演算子
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| 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 |