Question

我使用For循环遍历一些代码。迭代变量是“i”。我在For循环之前标注了以下变量。 L1，L2，L3，L4为字符串。我想在For循环中引用这些字符串，以某种方式引用“L”＆amp;炭（i）中。因此，比较值“Foo”＆lt;＆gt; “L”＆amp;当i = 1时，Char（i）应该对存储在变量L1中的字符串测试“Foo”。当i = 2时依次对L2，依此类推。

我以前的编程经验是Visual FoxPro，我所要做的只是前缀和＆amp;在字符串的前面，然后引用其名称存储在字符串中的变量。

所以如果L1存储“Bar”，我想比较我可以写＆amp; L1 ==“Bar”。我需要能够用VB6做到这一点。有人可以帮忙吗？

Answer 1

我建议您创建一个数组，而不是创建4个变量。例如：

Dim L(1 To 4) As String

For i = 1 to 4
    L(i) = "Whatever"
Next

Answer 2

你真正想要的是一个数组，如下所示：

Dim L(3) As String  ''// index begins at 0, 4 total elements

For Each i As String In L
    If "Foo" <> i Then
        ''// ...
    End If
Next i

Answer 3

这适用于一个类（例如VB表单）：

Option Explicit

Public L1 As String
Public L2 As String
Public L3 As String
Public L4 As String

Sub Main()

  L1 = "Foo"
  L2 = "Bar"
  L3 = "Go"
  L4 = "Figure"

  Dim i As Long
  For i = 1 To 4
    Debug.Print CallByName(Me, "L" & CStr(i), VbGet)
  Next

End Sub

需要使用存储在字符串vb6中的值来引用变量

3 个答案: