from c＃to vba conversion（yes，kind of stupid）

Question

double [] numbers = new numbers[200]; 
    numbers[0] = 123; 
    numbers[1] = 456; 

    // 
    // and so on. 
    // 

    var n0 = numbers; 
    var n1 = numbers.Skip(1); 
    var n2 = numbers.Skip(2); 
    var n3 = numbers.Skip(3); 

    var x = from a in n0 
      from b in n1 
      from c in n2 
      from d in n3 
      where a + b + c + d == 2341.42 
      select new { a1 = a, b1 = b, c1 = c, d1 = d }; 

    foreach (var aa in x) 
    { 
    Console.WriteLine("{0}, {1}, {2}, {3}", aa.a1, aa.b1, aa.c1, aa.d1); 
    } 

这是我的c＃代码。我需要将其转换为vba。

我的主要问题是：

var x = from a in n0 
      from b in n1 
      from c in n2 
      from d in n3 
      where a + b + c + d == 2341.42 
      select new { a1 = a, b1 = b, c1 = c, d1 = d }; 

，我们会怎么做这在VBA？

Answer 1

Type NumberSet 
    A As Double 
    B As Double 
    C As Double 
    D As Double 
End Type 

Public Sub TheSub() 
    Dim numbers(0 To 199) As Double 

    numbers(0) = 123 
    numbers(1) = 456 

    ' 
    ' and so on. 
    ' 

    'iterators 
    Dim ai As Integer 
    Dim bi As Integer 
    Dim ci As Integer 
    Dim di As Integer 

    'data set  
    Dim x() As NumberSet 

    'temp record holder 
    Dim ns As NumberSet 

    Dim count As Integer 

    count = 0 

    'simulate the select query 
    For ai = LBound(numbers) To UBound(numbers) 
     For bi = LBound(numbers) + 1 To UBound(numbers) 
      For ci = LBound(numbers) + 2 To UBound(numbers) 
       For di = LBound(numbers) + 3 To UBound(numbers) 
        'fill the record 
        With ns 
         .A = numbers(ai) 
         .B = numbers(bi) 
         .C = numbers(ci) 
         .D = numbers(di) 
         'test record 
         If .A + .B + .C + .D = 2341.42 Then 
          'append to the data set 
          ReDim Preserve x(0 To count) 
          x(count) = ns 
          count = count + 1 
         End If 
        End With 
       Next di 
      Next ci 
     Next bi 
    Next ai 

    'iterate through data set and print results 
    For i = LBound(x) To UBound(x) 
     ns = x(i) 
     With ns 
      Debug.Print .A & ", " & .B & ", " & .C & ", " & .D 
     End With 
    Next i 
End Sub 

不是最有效的..但试图按照原代码的流程..它会运行缓慢，因为它就像暴力破解循环（这里需要四分钟左右）。也许使用临时数据库/访问表通过ADO/DAO你可以使用SQL将会有所帮助。

Answer 2

Dim N(200) 

For I0 = 0 To 199 
    For I1 = 1 To 199 
    For I2 = 2 To 199 
     For I3 = 3 To 199 
     If N(I0)+N(I1)+N(I2)+N(I3) = 2341.42 Then 
      Debug.Print N(I0) & "," & N(I1) & "," & N(I2) & "," & N(I3) 
     End If 
     Next 
    Next 
    Next 
Next