大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
dim a as string
创新互联是专业的望花网站建设公司,望花接单;提供网站建设、成都做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行望花网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
dim b() as string
dim i as integer
a="abc"
redim b(4)
for i=0 to 4
b(i)=a
next
2种方法
1. 直接赋值,此法只适合和小数组
Dim myArray() as Integer ={1,2,3,4,5}
或Dim myArray(5)as integer
myArray(0)=1
myArray(1)=2
myArray(2)=3
myArray(3)=3
myArray(4)=5
myArray(5)=6
2.最常用的for next循环赋值
Dim myArray()as integer
For intCount as Integer= 0 to 5
myArray(intCount)=你要赋值的东西
Next
如果你要每个都不同那就这样:
Dim myArray()as integer
Dim FuZhi as integer
For Fuzhi as 0 to 5
For intCount as Integer= 0 to 5
myArray(intCount)=fuzhi
Next intCount
Next fuzhi
For i =1 To 10
A(i)=0
Next i
就是先让i等于1,,然后执行A(1)=0,遇到Next i,就自动给i加1,i 变成2,回到上面,未超过10,就再执行A(2)=0,如此这般,一直执行到A(10)=0,自动给i加1,i 变成11,再回到上面,已超过10,就不再执行循环体。继续执行Next i这个语句后面的语句(如果还有的话)。
至于Picture1.print a(i);'''';,这是在打印a(i)后不换行,再打印一个" ",这里面不是什么也没有,而是有一个空格。printf语句后面的分号表示打印后不加入其它内容,下一次紧接着输出其它的内容。