参考答案

Private Sub Clea_Click()
    P1.Cls
End Sub
Private Sub Dis_Click()
    P1.Print "等级考试"
End Sub