[VB6 ] 問一支小程式的功能!

[conanthu (yoshki)]

一支看似很簡單的VB程式
請教一下他有什麼功用
看了很久研究不出來
謝謝

程式如下

Private Sub Form_Activate()
  Dim i As Integer
    Dim j As Integer

    i = 1
    j = 500

    For i = 10 To 10000 Step 1
        If (j - i = 0) Then
            Print i
Exit For
        ElseIf (j - i > 100) Then
            i = i + 50
            Print i
        ElseIf (j - i >= 10) Then
            i = i + 5
            Print i
        Else
            Print i
        End If
    Next i

End Sub


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.128.100.57
推 Anott:複製貼上跑跑看就知道啦
→ conanthu:但是就是不知道他要表達什麼= =