循环获取数组值

Question

基于How can I declare a two dimensional string array?，我创建了自己的数组，但正在努力检索这些值。

我收到一个似乎与第二 (0) 行 (0) = (((1) / total) * (100 - (vPercentChanger)))) 相关的语法错误，但错误可能出现在此行上方（请参阅下面的代码）。

错误：语法错误。 代码：

  'Test values
Dim highPer As Double = 5
Dim high As Double = 10
Dim medPer As Double = 15
Dim medium As Double = 20
Dim lowPer As Double = 1
Dim low As Double = 2
Dim naPer As Double = 3
Dim na As Double = 4

Dim array1 As Double(,) = New Double(3, 1) {{highPer, high}, {medPer, medium}, {lowPer, low}, {naPer, na}}

Dim tmpList As New List(Of Double)
For i As Integer = 0 To array1.Rank - 1
If (0) > 5 + vPercentChanger Then
                (0) = (((1) / total) * (100 - (vPercentChanger)))     
End If

Next

补充说明：

我已经尝试过 array1(0) 和 tmpList(0)，但都产生了错误。我相信我很接近。我已经尝试过 C# 到 VB 的转换器，但这并不能解决这个问题。

Answer 1

正如所写，代码存在一些问题。

我们已将 array1 声明为一个数组，其中包含 3 行，每行 1 个条目，但给定的数据是 4 行，每行 2 个条目。

我担心我无法理解 Values as strings... 注意。除非highPer、high 等。是变量名，它们需要在它们周围加上引号。如果它们是变量名，则这些变量应该已包含在示例中以满足Minimal, Complete, Verifiable example 标准。

您已经尝试过array1(0) 和tmpList(0) - 您想要达到什么目的？

array1 是一个二维数组，所以我们需要用 2 个索引来处理它，例如array1(0,0).

tmpList 和 array1 都包含字符串，将值与数字进行比较或将数字分配给它们似乎是错误的（VB 是否执行某种隐式转换？您确定要使用字符串，也许它们应该是数组/数字列表？

更新：

从 cmets 看来，我们有一个表示对列表的数组

{valPct, val}

我们想要遍历它们并检查

 if valPct > (5 + vtPercentChanger) then
     valPct = (val / total) * (100 - vPercentChanger)

我们可以这样做

dim values as double(,) = {{v1Pct, v1}, {v2Pct, v2}, {v3Pct, v3}}

for index as integer = 0 to values.GetUpperBound(1) -1
    if (values(index,0) > (5 + vtPercentChanger)) then
        values(index,0) = (values(index,1) / total) * (100 - vPercentChanger)
next

不幸的是，这是在没有代码检查的情况下完成的 - 在公共汽车上使用电话 - 但应该给出大致的形状。