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