Question

我有几个大学作业我遇到了麻烦。真的我只是对阵列的一件事情感到困惑。我需要声明一个三列，五行数组。前两列是整数，第三列是字母等级。因此，我对于声明数据类型非常困惑，因为它们不同。这是我第一次使用数组，所以请原谅我的无知。这是我的数组应该是什么样子。

Column 1 {0,300,350,400,450}
Column 2 {299,349,399,449,500}
Column 3 {F,D,C,B,A}

（这是一个评分应用程序）

我可以自己解决剩下的问题，我只是对这个数组部分感到困惑。所以我的问题严格来说是如何声明这样一个数组。它说是使用二维数组，因为有三列，所以只会让我感到困惑。谢谢！

Answer 1

二维数组是正确的。第一个索引是列，第二个索引是行。

Dim strData(,) As String 'Use String variable type, even for the numbers
Dim intRowCount As Integer = 5
Dim intColumnCount As Integer = 3
ReDim strData(intColumnCount - 1, intRowCount - 1) 'subtract 1 because array indices are 0-based. Column 0 = Range start, Column 1 = Range End, Column 2 = Grade
'first row
strData(0, 0) = "0" 'Range start
strData(1, 0) = "299" 'Range end
strData(2, 0) = "F" 'Grade
'second row
strData(0, 1) = "300"
strData(1, 1) = "349"
strData(2, 1) = "D"
'third row
strData(0, 2) = "350"
strData(1, 2) = "399"
strData(2, 2) = "C"
'fourth row
strData(0, 3) = "400"
strData(1, 3) = "449"
strData(2, 3) = "B"
'fifth row
strData(0, 4) = "450"
strData(1, 4) = "500"
strData(2, 4) = "A"
'Add a row
intRowCount = intRowCount + 1
ReDim Preserve strData(intColumnCount - 1, intRowCount - 1)
'sixth row
strData(0, 5) = "501"
strData(1, 5) = "600"
strData(2, 5) = "A+"

请注意，Redim Preserve只能更改数组中的最后一个索引，这就是我们以(column, row)顺序而不是更传统的(row, column)顺序存储的原因。

Answer 2

有几种方法可以解决这个问题。一种是将数组声明为Object类型，并将整数或字符串分配给相应的元素。但有些人并不认为这在社会上是可以接受的，因为它可能会导致代码难以调试。

您还可以将String类型用于二维数组，并将整数保存在字符串变量中。由于数字比较和计算所需的转换，通常也不会这样做。

另一种方法是使用包含三个值的结构或类，并创建一个数组。

例如，

Structure Item
  Dim col1 as integer
  Dim col2 as integer
  Dim col3 as string
  End Structure

Dim itemList(20) as Item

itemList(4).col1 = 23
itemList(4).col2 = 45
itemList(4).col3 = "somestring"

声明二维数组

2 个答案: