「掛上bolt
  就等於從地面開始起攀
  害怕
  只會令你更加無法伸展」


  沒錯..
  從地面起攀到掛第一個快扣以前，往往是最危險也最嚇人的時候..

  所以每次掛完快扣..
  就等於又從頭從地面起攀...
  天啊~

-------------------------------------------
依此類推 程式碼如下  以下程式僅適用VB6.0 crazy climbing version

Public Sub Climber_Leading()

   Dim n As numbers_of_bolts '宣告n為bolt數
   Dim i As Interger         '宣告i為整數

   For i = 1 to n
      Print "Suffer most difficult and scared thing!!"
      Print "Restart from the ground!!"

      If Event.Fall = True Then         '如果發生墬落
         Print "You are loser"          '顯示你是窩囊廢
         Exit For                       '跳出迴圈
      End If
   Next i

   Print "Congratulation!! You are onsight!" '如果沒墬落
                                             '顯示"恭喜你onsight"
End Sub

------------------------------------------------------
天ㄚ~我快寫程式寫瘋ㄌ!!