vba之计算成绩

Sub evaluate()
        
        Dim score
        
        score = (Cells(3, 3) + Cells(4, 3) + Cells(5, 3)) / 3
        
        Cells(6, 3) = score

        If score >= 60 Then 'If＝もし、Then=なら
            
            Cells(6, 3) = "合格"
            
        Else 'Else=じゃないと
        
            Cells(6, 3) = "不合格"
            
        End If 'End if=判断終わり
            

End Sub

---------------------------------------------------------------------------------------------------------------------------------

Sub evaluate1()

    Dim score
     <