' Dim [変数名] As [データ型] ' ' Const [定数名] As [データ型] = [定数] ' ' Dim intX as Integer '整数 Dim lngY as Long '長整数 Dim strDT as String '文字列 Const Pai As Single = 3.14 '単精度浮動小数点