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

英研究：吃巧克力 
可提高大腦計算能力

很多人愛吃巧克力，認為它能帶來幸福感覺。英國研究人員如今又給吃巧克力
找到一個新的理由：巧克力中所含的「黃烷醇」能幫助提高大腦計算能力。

  ♨好像在作夢，可是不是夢♨  /   ♥詩情畫意♥  /  ∞噩夢驚魂∞ 

＋自創小說＋ /  ♣筱空在畫話♣  / ◈ VB程式設計◈   ㊣實用㊣

♪ 好險有...音樂讓我說♪  /  ♫好影片要跟好朋友分享♫

大家安安壓




謝謝你們來我家




幫我一個忙



留個言吧




讓我知道你有來過我家




這樣我就可以去你家坐坐XDD




也可以加我好友




要常來幫我灌水優



我最愛交朋友惹



萬分感謝~~

 
前幾天才在說可不可以聲控增文

 
 
最近我好懶的說

 
 
生活中要是沒了巧克力，活著就沒有意義

 
 
 

 
 
 

 
程式碼:
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