参考答案

Private Sub Clea_Click()
    Text1.Text = ""
End Sub
Private Sub Dis_Click()
    Text1.Text = "等级考试"
End Sub