http://b29.photo.store.qq.com/http_imgload.cgi?/rurl4_b=853f5c41a0dd4f815a53d807ffd3186f17232eff64867ab5b207aae0fbb395c42d7919b68387adbf1ff73cbaa8e0476ea4fe0eaba2916542dbb97014a158a321e3919d136220a7db7731b96472dbabe4e5535a7f&a=28&b=29怎么我把这段代码复制到窗体的代码段中出现编译不了的情况上面的代码是从MSDN上复制的..???请问,要给数组负初值该怎样负值》。请高手举些列子..

解决方案 »

  1.   

    数组的各个元素类型是一样的。用一个循环就可赋初值。如果是boolean类型数组,不需要赋初值,全部为False。
      

  2.   

     Dim S()
     S = Array("Dan", "Fred")
     Debug.Print S(0), S(1)
      

  3.   

    dim arr() as string
    dim str as string
    str="a,b,c,d,e"
    arr=split(str,",")
      

  4.   

    LZ的图片我看了,显示有问题是因为你程序中i是变量,但你输出时没有给具体值,所以会报错,例子中数组一共有9个元素,将I赋值0-8一个具体信息,再输出就没问题了。