作者stormbird (单眼皮)
看板Visual_Basic
标题Re: [VB6 ] 连续循环数的出现
时间Sat Mar 24 21:50:12 2007
前面的我删除了！
如果我的Text1，Text2是阵列，是从0到16个！！
那我每一个都要让他计算出来显现在Text3
那我可以改成
Dim n1(17) As Long
Dim n2(17) As Long
For k = 0 To 16
n1(k) = Val(Text1(k).Text)
n2(k) = Val(Text2(k).Text)
If n1(k) > n2(k) Then x = -1 Else x = 1
For i = n1(k) To n2(k) Step x
Text3(0) = i
For q = 1 To 10000
DoEvents
Next q
Next i
Next k
这样吗？？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.126.20.53
1F：推 SmallBeeWayn:看不出明显的错误... 03/24 21:56
2F：→ stormbird:感谢！！我去试试看！！ 03/24 22:01