源代码清单如下:Private Sub MDIForm_Load()End SubPrivate Sub mnuExamination_Click() frmMarks.ShowEnd SubPrivate Sub mnuExit_Click() If MsgBox("确实要退出吗?", vbOKCancel + vbQuestion, "系统退出") = vbOK Then Unload Me Else Exit Sub End IfEnd SubPrivate Sub mnuStudent
Copyright (c) Microsoft Corporation. All rights reserved. You may only use this code if you agree to the terms ofthe Windows Research Kernel Source Code License agreement(see License.txt). If you do not agree to the terms, do not use the code.***WRK
Public Function findstr(ByRef instring As String, after As String, before As String, rewind As Boolean) As String ’instring母串,after前面字符,before后面字符,rewind从头开始查找