程式碼:
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
留言列表