上一秒我們還不認識，或許下一秒我們就一起談心事=]

程式碼:

Dim A As Integer, F As Integer, L As Integer
Dim i As Integer, j As Integer, k As String
Private Sub Command1_Click()
F = 1: L = 99
Randomize: A = Int(Rnd * 99 + 1)
For i = 10 To 1 Step -1
       k = InputBox("終極密碼 " & F & "~" & L & "(你還有" & i & "次的機會)", "【終極密碼】")
If StrPtr(k) = 0 Then Exit Sub
       j = Int(Val(k))
If j = A Then
       MsgBox ("恭喜你!! 答對了=]"), , "【終極密碼】": Exit Sub
ElseIf j < A And j >= F Then
       F = j
ElseIf j > A And j <= L Then
       L = j
End If
Next
    MsgBox ("很可惜都沒猜中，終極密碼是" & A), , "【終極密碼】"
End Sub

程式碼好短...阿哈哈

很好玩喔=]

快去這邊下載→  http://rapidshare.de/files/44242708/___K_O___a__.exe.html

按下去→往下拉他會問你You want to download ___K_O___a__.exe→按FREE→打上驗證碼就可以DOWNLOAD