参考答案

Private Sub Clea_Click()
  Cls
End Sub
Private Sub Dis_Click()
  Print "等级考试"
End Sub
VERSION 5#
Begin VB.Form Form1
  Caption = "Form1"
  ClientHeight = 3195
  ClientLeft = 165
  ClientTop = 735
  ClientWidth = 4680
  LinkTopic = "Form1"
  ScaleHeight = 3195
  ScaleWidth = 4680
  StartUpPosition = 3    '窗口缺省
  Begin VB.Menu Op
      Caption = "操作"
      Begin VB.Menu Dis
        Caption = "显示"
      End
      Begin VB.Menu Clea
        Caption = "清除"
      End
  End
End
Private Sub Clea_Click()
  Cls
End Sub
Private Sub Dis_Click()
  Print "等级考试"
End Sub