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

看板Visual_Basic作者conanthu (yoshki)時間18年前 (2007/04/16 21:03)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串1/1

一支看似很簡單的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

04/16 21:25, , 1^F

04/16 21:25, 1^F

→

conanthu

04/16 21:34, , 2^F

04/16 21:34, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 conanthu 的文章

文章代碼(AID): #168tGVF9 (Visual_Basic)