二维阵列辅助

Question

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

Answer 1

我需要你提问的更多信息。您没有说明您要比较的值的数据类型，但由于它是“计算”，我假设涉及数字，在本例中我将使用整数代替浮点数或双精度数据。另外，我不知道如何计算结果，所以我只是编造了一个变量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来显示Access的结果;我不熟悉VBA与Access的关系。与嵌套的For循环相比，For Each循环节省了大量的编程时间。