24h購物| | PChome| 登入
2005-01-26 16:40:46| 人氣36| 回應0 | 上一篇 | 下一篇

程式。。收尋

推薦 0 收藏 0 轉貼0 訂閱站台

Dim s(5) As String

Private Sub Form_Load()
s(0) = "天神"
s(1) = "天之交子"
s(2) = "我愛天堂"
s(3) = "愛與勇氣"
s(4) = "氣勢如馬"
s(5) = "氣焰堂"
End Sub

Private Sub T_Change()
For i = 0 To 5
If T.Text <> "" Then
If InStr(s(i), T.Text) <> 0 Then
Print s(i)
End If
End If
Next
Print "##########"
End Sub

我要檢舉
台長： 酷仔♫° 瘋　
人氣(36) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 工作甘苦(工作心得、創業、求職)

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文