作者stormbird (单眼皮)
看板Visual_Basic
标题Re: [VB6 ] 连续循环数的出现
时间Sun Mar 25 15:54:27 2007
请问如果我的Text1，Text2，Text3皆为0到15的阵列
而我想要当我在Text1，Text2填上数字
然後在Text3，15个阵列同时显现数字，
而不是Text3（0）先出现，在依序接个Text3（1）、Text3（2）....出现
我要如何修改，因为我跑出来得是有bug
而bug给我的讯息是9，阵列索引超出范围
可是我在表单上是Text1（0）到Text1（15），2，3也都一样
为什麽会错误阿？？
请各位高手帮帮我的忙，谢谢！！
Dim n1(15) As Long
Dim n2(15) As Long
For k = 0 To 15
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