以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10797)
--  作者：qianzhig
--  发布时间：2011/6/23 19:41:00
--  请教

我是一个初学者，以前也没有接触过计算机语言，想请教一下以下代码的意思：

Dim Values(100) As Integer
Dim Index As Integer
For Index = 0 To Values.Length - 1
    Values(Index) = Index * 2
Next
Output.Show(Index)

请帮我看看，集合Values（），并没有给他赋值呀？怎么会有结果呢？

我查看了一下，这样计算之后，集合里各个的值是：

0，2,4,6,8,10……
--  作者：hhbb
--  发布时间：2011/6/23 23:10:00
--  
Values（）不是集合,而是数组
下面代码就是赋值
For Index = 0 To Values.Length - 1
    Values(Index) = Index * 2
Next

数组

数组是同一数据类型的一组变量的集合。

定义数组语法为：

Dim 数组名(索引上限) As 数据类型

例如：

Dim Names(3) As String

表示定义了一个字符型(String)数组，数组名为“Names”，数组的索引从0开始，所以该数组包括4个字符型变量（我们称之为数组元素），分别是：

Names(0), Names(1), Names(2), Names(3)

数组有一个Length属性，用于返回数组的长度。

下面是一段完整的代码，用于测试数组的基本特性，请复制到命令窗口执行：

Dim Names(3) As String
Names (0) = "杨国辉"
Names (1) = "柯迎"
Names (2) = "陈绍月"
Names (3) = "朱志欣"
Output.Show(Names(1)) \'在命令窗口显示第二个数组元素的值。
Output.Show(Names.Length) \'在命令窗口显示数组的长度。

可以在定义数组的时候，直接给数组元素赋值，例如：

Dim Values() As Integer = {1,3,5}

上面的代码定义了一个整数型数组，数组包括三个元素，分别是1、3、5。

再例如：

Dim s1() As String = {"中国","美国","日本","俄罗斯"}

上面的代码定义了一个字符型数组，数组包括四个元素。
如果采用直接赋值的方式定义数组，不需要指定数组的索引上限，此时索引上限由值的个数确定。

可以在定义数组之后，再给数组批量赋值：

Dim s1() As String
s1 = New String() {"中国","美国","日本","俄罗斯"}
--  作者：qianzhig
--  发布时间：2011/6/24 8:45:00
--  请教
谢谢。