演算子 算術演算子

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][演算子 算術演算子]
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





Production Japan Import Application. Since 1998