最初からのコードを全て書き出します。 Private Sub CommandButton1_Click() '変数宣言 Dim atai1 As Integer Dim atai2 As Integer Dim atai3 As Integer '入力 atai1 = a.Value atai2 = b.Value atai3 = c.Value '条件処理 If a > 80 Then MsgBox "よく出…