script

引用:

原帖由 wshzw 于 2006-9-14 13:00 发表
需要加一个关键字:
   Dim kkk() As Form, i%
   For i = 0 To 3
      ReDim Preserve kkk(i)
      Set kkk(i) = New Form1
   Next i

上面两位的代码应该都有些问题吧
加Preserve没必要吧,数组是固定的,所以数组内的值不变

应该如下
Dim kkk() As Form, i%
ReDim kkk(3)
   For i = 0 To UBound(kkk)
         Set kkk(i) = New Form1
   Next i

[ 本帖最后由 script 于 2006-9-20 17:02 编辑 ]

script

引用:

原帖由 黑发的放牧者 于 2006-9-23 08:14 发表
那里面的 i%是什么意思？
俺是初学者，请不吝赐教！

i%是整型变量

%=整型
&=长整型
!=单精度
#=双精度
@=货币类型
$=字符类型