计算机高职专业VB知识要点005 VB中一维数组、二维数组，如何声明？如何使用？数组特性和数据重组思想

什么是数组？

1.控件数组 2.数值  3.文本字符串  4.布尔值 等等

一组具有类似功能的数据类型的一组元素，每一个元素都是一个变量。这一组元素成为数组。

举例：

有一组数值要进行存储，这组数值是 5、3、8、21

想要将这组数据存储到内存中，就必须要声明变量。

四个变量a,b,c,d

数值类型的变量声明：

dim a as integer

dim b as integer

dim c as integer

dim d as integer

第二种声明

dim a%,b%,c%,d%

a=5

b=3

c=8

d=21

数组的特性：

1.索引默认从0开始。我们也可以认为让它表示从1开始，使用代码option base 1

2.每一个数组元素，都是一个变量

数组名称为a为 a(3)构成元素是a(0)、a(1)、a（2）、a（3）

dim a(3) as integer

dim a%(3)

a(0)=5

a(1)=3

a(2)=8

a(3)=21

扩展：声明二维数组 a(2,3)

实际上声明了如下元素：

a(0,0) a(0,1) a(0,2) a(0,3)

a(1,0) a(1,1) a(1,2) a(1,3)

a(2,0) a(2,1) a(2,2) a(2,3)

数组重组1解题思路：

1.遍历20个数，统计到索引为0-9的数组中

2.根据统计的个数情况，按照索引元素遍历输出,统计了多少个就输出多少次

软件设计界面：

源代码分享：

通用中的全局变量

Option Explicit
Dim x(1 To 20)

随机数产生源码

Dim i%
Text1.Text = ""
Randomize
For i = 1 To 20
  x(i) = Int(Rnd * 10) ' x(i) = (1)
  Text1.Text = Text1.Text & x(i) & " "
Next i

数据重组源码，统计每个随机数产生的个数，然后按照从小到大的顺序输出这些数。

Dim i%, k%, j%, a%(9)
Text2.Text = ""
For i = 1 To 20
    k = x(i)
    a(k) = a(k) + 1 'a(k) = (2)
Next i
For i = 0 To 9
  If a(i) <> 0 Then
      'For j = 1 To (3)
        ' Text2.Text = (4)
      For j = 1 To a(i)
         Text2.Text = Text2.Text & i & " "
      Next j
  End If
Next i