-

- 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-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 顯示

