リスト１：グローバル変数の宣言 Public sglResult As Single 　 ' 計算結果（外部通信用） Dim sglNumber1 As Single 　 ' 最初の置数 Dim sglNumber2 As Single 　 ' 2番目の置数 Dim sglAnswer As Single 　 ' 計算結果（内部処理用） Dim IsCamma As Boolean 　 ' 小数点の有無を示すフラグ Dim intOperator As Integer 　 ' 演算子 -- 0:+, 1:-, 2:*, 3:/ 本文へ戻る