一个可以显示历史的菜单OptionExplicitDimmainAsNewmain_frmPublicmax_indexAsIntegerPublicmyindexAsIntegerPrivateSubclose_Click()OnErrorResumeNext'循环语句ForEachmainInFormsIfmain.MDIChild=TrueThenUnloadmainEndIfNextDimFNumAsIntegerDimstrfilenameAsStringDimiAsInteger