sometimes       3/20

可惜不能按 "m"
下次寫個JAVA的吧.

: alvin
: 依此類推 程式碼如下  以下程式僅適用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