リスト２：初期化処理 Private Sub Initialize() 　　txtNumber.Text = "0" 　　sglNumber1 = 0 　　sglNumber2 = 0 　　sglAnswer = 0 　　IsCamma = False 　　intOperator = 0 End Sub 本文へ戻る