作者 Anonymous [actionscript] 2007-08-29 11:13 (点击下载)

  1.  
  2.  
  3. Private Sub Command1_Click()
  4.  
  5.  
  6.  
  7.     Sum = 0: dit = 0
  8.  
  9.     S = Txt1
  10.  
  11.     If Not Txt1 = "" Then
  12.  
  13.         Do While Not S = ""
  14.  
  15.             dit = dit + 1
  16.  
  17.             Sum = Sum + Int(Abs(Asc(S)) ^ (0.5 + dit * 0.171))
  18.  
  19.             S = Replace(S, Chr(Asc(S)), "", , 1)
  20.  
  21.         Loop
  22.  
  23.         Sum = Sum * 100
  24.  
  25.         
  26.  
  27.         Do While Sum > 100
  28.  
  29.             If Sum Mod 2 = 0 Then
  30.  
  31.                 Sum = Sum \ 3
  32.  
  33.             Else
  34.  
  35.                 Sum = Sum \ 5
  36.  
  37.             End If
  38.  
  39.         Loop
  40.  
  41.     
  42.  
  43.         If Txt1 = "¹šå«" Then Sum = -1
  44.  
  45.         Label1 = 0
  46.  
  47.         
  48.  
  49.         Timer1.Enabled = True
  50.  
  51.         Timer1.Interval = 100
  52.  
  53.         
  54.  
  55.         If Sum = 100 Then S = "ÎÒÏëÎÒ¿ÉÄÜÓöµœÊ¥ÈËÁË."
  56.  
  57.         If Sum < 100 Then S = "ÄãÈËÆ·ÕæÊDz»µÃÁ˵ĺÃ,À×·æÔÚÊÀ°¡!"
  58.  
  59.         If Sum < 90 Then S = "ÄãÈËÆ·Ì«ºÃÁË,Ò»¿ŽŸÍÊÇÒ»±íÈ˲Å."
  60.  
  61.         If Sum < 80 Then S = "ÄãÈËÆ·²»ŽíÑœ,ÄãƜʱһ¶šºÜ°®°ïÖúÈË."
  62.  
  63.         If Sum < 70 Then S = "ÄãÈËÆ·Õæ¿ÉÒÔ."
  64.  
  65.         If Sum < 60 Then S = "ÄãÈËÆ·Ò»°ãÀ²,»¹ËµµÃ¹ýÈ¥À²."
  66.  
  67.         If Sum < 50 Then S = "ÄãÈËÆ·ÊÇÓеã²î,²»¹ý¿ŽÆðÀŽ²»ÏñÊÇÌرðÄÜ×ö»µÊÂ."
  68.  
  69.         If Sum < 40 Then S = "ÄãÈËÆ·Õæ²î,¿ŽÆðÀŽŸÍÊÇÒ»²»Ð¡ÐÄŸÍ»ážÉ»µÊµÄÈË."
  70.  
  71.         If Sum < 30 Then S = "ÄãÈËÆ·Ì«²îÁË,žÉ»µÊÂÊDz»ÊÇÄãµÄñ±ºÃ?"
  72.  
  73.         If Sum < 20 Then S = "ÄãÈËÆ·²îµÄµÃ²»µÃÁË.ÎÒÏàÐÅ,Äã×ßÔÚœÖÉϻᱻ·ÈËȺŹ."
  74.  
  75.         If Sum < 10 Then S = "ÄãÏÖÔÚÓŠžÃÔÚÀÎÀï°É?ÔõÃŽ»¹ÍµÓõçÄÔÄØ?"
  76.  
  77.         If Sum = 0 Then S = "ÎÒÏëÎÒ¿ÉÄÜÓöµœ¹íÁË,Äãžù±Ÿ²»ÓŠžÃ»îÔÚÕâžöÊÀœçÉÏ!"
  78.  
  79.         If Sum = -1 Then
  80.  
  81.             S = "作者"
  82.  
  83.             Label1 = "??"
  84.  
  85.         End If
  86.  
  87.         
  88.  
  89.     Else
  90.  
  91.         MsgBox "Èç¹ûÄã³ÐÈÏÄ㻹ÓÐÈËÆ·µÄ»°,ÇëÊäÈëÄãµÄŽóÃû."
  92.  
  93.     End If
  94.  
  95.     
  96.  
  97. End Sub
  98.  
  99.  
  100.  
  101. Private Sub Timer1_Timer()
  102.  
  103.     If Val(Label1) < Sum Then
  104.  
  105.         Label1 = Val(Label1) + 1
  106.  
  107.         Timer1.Interval = (100 * Val(Label1) / Sum) ^ 1.35
  108.  
  109.     Else
  110.  
  111.         MsgBox S
  112.  
  113.         Timer1.Enabled = False
  114.  
  115.     End If
  116.  
  117. End Sub
  118.

下面的修改已经提交:
提交下面的校正或者修改. (点击这里开始一个新的帖子)
姓名: 在 cookie 中记住我的名字

屏幕抓图:(jpeg 或 png)