Arrays 二维阵列辅助

我是在Access中创建阵列的新手，我在网上查阅了一些提供帮助的文章。我已经创建了一个二维数组，并为数组中的每个位置分配了值。现在是有趣的部分！！如何请求二维输入、存储信息、将用户输入与已创建的数组进行比较、将数组的匹配值传递给计算，然后在Access中显示结果？任何帮助都将不胜感激！！非常感谢

我需要从你的问题中获得更多信息。您没有说明要比较的值的数据类型，但由于这是一个“计算”，因此我假设涉及数字，在本例中，我将使用整数，而不是浮点数或双精度。另外，我不知道如何计算结果，所以我只是编了一个变量

CalculatedResult

Dim UserInput
UserInput = InputBox("Please enter a number", "Enter Number", Integer)
Dim CalculatedResult As Integer

For Each element In My2DArray
  If UserInput = element Then
    Area(element)
  End If
Next element

Function Area(number As Integer) As Void
    ' Code used for calculation
    Debug.Print CalculatedResult
End Function

---

您可能需要对print语句执行

DoCmd.PrintOut

，而不是

Debug.print

，以显示结果供访问；我不熟悉VBA与Access的关系。与嵌套For循环相比，

For Each

循环节省了大量编程时间。

非常感谢！！我试试看。我还在和伊瑟罗玩。因此，我不得不走另一条路，因为我的手在工作中被绑住了。它已禁用某些功能，而我没有启用这些功能的权限。我现在将所有的数字都设置为双精度，在一个215节中，用于对语句进行比较，并且必须删除数组。现在我遇到了循环不工作、传递值以及需要在不使用DAOs之类的情况下将结果传递到报表的问题。如果我可以上传代码的图片，这会容易得多。我会尽量做到透明。我的一个循环是这样的：do（下一行）j=j+1（下一行）StartPoint=inputbox（“从节点a到z的起始位置”）（下一行）endpoint=inputbox（“从节点a到z的终止位置”）（下一行）循环直到t=trips。一切都是双重的，“trips”由用户输入。对于使用这两个值来测试它们是否为真的循环，起始点和结束点分别传递给215个单独的for循环。如果为true，则应为变量“time”指定一个数值。“time”也是一个双精度数，用于简单的计算，例如（变量1+变量2+…+）/（time+变量N）。此计算值和其他用户输入的值需要传递到可打印的报告。有没有办法解决这个问题？非常感谢你的帮助。非常感谢你所做的一切