2、dAsString,ActionAsInteger,SuppValueAsLong)AsIntegerDeclareFunctionSQAMsgBox(sMsgTextasString,OptionalvMsgCaptionasVariant,OptionalvTimeOutasVariant)asIntegerFunctionTimedDlgFunc(idAsString,ActionAsInteger,SuppValueAsLong)AsInteger StaticStartTime DimEndTime Dim