24h購物| | PChome| 登入
2007-05-15 14:00:03| 人氣216| 回應2 | 上一篇 | 下一篇

電腦課

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

Option Base 1
Dim Adata As Variant

Private Sub Command1_Click()

search_num = Val(Text1.Text)

For j = 1 To UBound(Adata)
If Adata(j) = search_num Then num = j
Next j

If num = 0 Then
lblShow.Caption = "沒有這個數字->" & search_num
Else
lblShow.Caption = search_num & "是第" & num & "個數"
End If

End Sub

Print "喔耶~現在是電腦課~"

Print "每次都要聽gay上課真的是超無聊的"

Print "剛剛打球的時候有很多人都因為父母的關係不能加入"

Print "在我打字的同時gay竟然叫牙牙站起來ˋˊ　討厭的gay"

Print "I hope our team will get better~"

Private Sub Form_Load()

Adata = Array(5, 3, 1, 2, 9, 4, 8, 7, 6)

For i = 1 To UBound(Adata)

lblBefore.Caption = lblBefore.Caption & "(" & i & ")---->" & Adata(i) & vbNewLine

Next

End Sub

我要檢舉
#GAY
台長： 山米兒

您可能對以下文章有興趣

人氣(216) | 回應(2)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 心情日記(隨筆、日記、心情手札)

我要回應
PIG
你知道...這是篇恐怖的新聞~
恐怖的新聞+恐怖的留言...
GOD!我討厭程式碼!ˋˊ
2007-05-15 19:09:09
蝦
沒辦法...
這種留言太多....
我刪不完
2007-05-15 23:06:01
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文