VERSION 5.00
Begin VB.Form menu 
   Caption         =   "menu"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form3"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu ks_mode 
      Caption         =   "模式"
      Begin VB.Menu study_mode 
         Caption         =   "學(xué)習(xí)模式"
      End
      Begin VB.Menu exam_mode 
         Caption         =   "考試模式"
      End
   End
End
Attribute VB_Name = "menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub exam_mode_Click()
'區(qū)別在于學(xué)習(xí)模式即時(shí)提供答案并說(shuō)明題目的重點(diǎn)，而考試模式?jīng)]有，考試結(jié)果交給服務(wù)器進(jìn)行評(píng)分
ksmode = 1
Form1.txtRecive.SelText = Form1.txtRecive.SelText & login_admin & "將考試模式設(shè)定為考試模式" & vbCrLf
End Sub

Private Sub study_mode_Click() '選擇學(xué)習(xí)模式按鈕
ksmode = 0
Form1.txtRecive.SelText = Form1.txtRecive.SelText & login_admin & "將考試模式設(shè)定為學(xué)習(xí)模式" & vbCrLf
End Sub