Leave a Message...
    • Name: jessicd0dqi
    • Subject:本站不賣瑕疵商品地攤貨,請不要和奇摩賣家
    • Time:2013-09-10 00:15:21  prosecute
    • Message:支持一下喔
      精美禮品送完即止
      Line帳號 aaashops。com
      匄咺儵偶倬
    • Notification:
    • Name: a900915
    • Subject:untitled
    • Time:2011-12-16 14:47:33  prosecute
    • Message:vDim f As Integer, p As Integer, t As Integer
      Private Sub Command1_Click(Index As Integer)
      If p = 0 Then
      p = 1
      Timer1.Interval = 500
      Else
      p = 0
      Timer1.Interval = 0
      End If
      If Index = 0 Then
      f = Abs(f)
      t = 0
      Else
      f = -f
      t = 4
      End If
      For i = 0 To 4
      Shape1(i).FillColor = &H808080
      Next
      End Sub
      Private Sub Form_Load()
      f = 1
      p = 0
      End Sub
      Private Sub Timer1_Timer()
      For i = 0 To 4
      Shape1(i).FillColor = &H808080
      Next
      Shape1(t).FillColor = vbRed
      t = t + f
      If t > 4 Then
      t = 0
      ElseIf t < 0 Then
      t = 4
      End If
      End Sub


      98 106 113 99 106
    • Name: WretchPaper
    • Subject:無名日報-恭喜您上首頁了
    • Time:2011-11-12 18:55:22  prosecute
    • Message:您可以跟你的爸爸媽媽朋友兄弟姐妹炫耀
      您目前的各類最佳名次列在下方:(至明天AM10:00前有效)
      -------------------------------------------------
      相簿首頁排行榜:共上榜1本(未全部列出)
      隨機推薦-蒐集收藏-排行榜第347名-10漫博の戰利品★
      -------------------------------------------------
      如果您不想收到留言 請將WretchPaper 設為黑名單
      本快報每日傍晚發送
      上排行榜小秘訣: 有正確分類比較容易出現在排行榜哦!
    • Name: a900915
    • Subject:untitled
    • Time:2011-05-25 17:37:06  prosecute
    • Message:洗澡中 : http://i.imgur.com/xj1JC.jpg
    • Name: a900915
    • Subject:untitled
    • Time:2011-05-21 11:49:53  prosecute
    • Message:北斗杯ED「Everlasting Snow」
      最終回ED「Get Over(Special Mix)」
    • Name: a900915
    • Subject:untitled
    • Time:2011-05-06 14:50:14  prosecute
    • Message:dan-ball
    • Name: a900915
    • Subject:untitled
    • Time:2011-04-28 16:29:34  prosecute
    • Message:Kalafina - love come down
    • Name: a900915
    • Subject:untitled
    • Time:2011-04-01 14:22:48  prosecute
    • Message:Private Sub Command3_Click()
      a = Text1
      For i = 1 To Len(a)
      b = Mid(a, i, 1)
      If Asc(b) >= 48 And Asc(b) <= 57 Then
      d(Val(b)) = d(Val(b)) + 1
      End If
      Next i
      For i = 0 To 9
      MsgBox d(i)
      Next i


      End Sub 抓取數字
    • Name: WretchPaper
    • Subject:無名日報,恭喜你上了全民最大報-網誌首頁排行榜
    • Time:2011-03-28 16:00:11  prosecute
    • Message:娛樂/影視: 今日必看第149名 - YO!國際書展!
      團體/學生: 今日必看第49名 - 0318校外教學

      如果您不想收到留言 請將WretchPaper 設為黑名單
      上排行榜小秘訣: 有正確分類比較容易出現在排行榜哦!
    • Name: a900915
    • Subject:untitled
    • Time:2011-03-25 14:16:06  prosecute
    • Message:Private Sub Command3_Click()
      x = Val(Text1.Text)
      If x = 100 Then
      w = "你天才嗎:D"
      End If
      If x >= 60 And x < 100 Then
      w = "你終於及格了嗎?"
      End If
      If x < 60 Then
      w = "你豬嗎?這樣都不及格?"
      End If

      Text2 = w


      End Sub 分數

      Private Sub Command4_Click()
      t = Text1
      For i = 1 To Len(t)
      s = Mid(t, i, 1)
      If s = "0" Then
      n = n + 1
      End If
      Next i
      MsgBox n

      End Sub 顯示