作者conanthu (yoshki)
看板Visual_Basic
标题[VB6 ] 问一支小程式的功能!
时间Mon Apr 16 21:03:26 2007
一支看似很简单的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
1F：推 Anott:复制贴上跑跑看就知道啦 04/16 21:25
2F：→ conanthu:但是就是不知道他要表达什麽= = 04/16 21:34