运行

Question

期间通过变量循环是有一种方法通过一组运行时间期间定义的变量的循环，而无需编写的代码来处理每个变量 例如控制台应用程序的下面一行新代码：

Module Module1 

    Sub Main() 
     Dim a!, b#, c%, d&, s$ 

     Console.WriteLine("a " & VarType(a).ToString) 
     Console.WriteLine("b " & VarType(b).ToString) 
     Console.WriteLine("c " & VarType(c).ToString) 
     Console.WriteLine("d " & VarType(d).ToString) 
     Console.WriteLine("s " & VarType(s).ToString) 
     Console.ReadLine() 
    End Sub 
End Module 

伪代码将是这样的：

for each Var in DefinedVariables 
'Do Something To the variable 
next 

Answer 1

正如我在评论中说，使用集合。例如

Dim letters As New List(Of String) From {"a", "b", "c", "d"} 

    For Each letter In letters 
     Console.WriteLine(letter) 
    Next 

编辑：

Dim a As String = "a" 
    Dim b As String = "b" 
    Dim c As String = "c" 
    Dim d As String = "d" 
    Dim e As Integer = 123 

    Dim variables As New List(Of Object) From {a, b, c, d, e} 

    For Each value In variables 
     Console.WriteLine(value.ToString) 
    Next 

Answer 2

您可以使用MethodBody.LocalVariables检索方法体作为LocalVariableInfo实例列表内声明的局部变量。不幸的是，您只能通过索引访问它们，因为名称未被存储。你基本上得到变量类型，它被声明的序号，以及它是否被固定。优化甚至可以重新排序变量或完全消除它们。

Dim mi As MethodInfo = GetType(Example).GetMethod("MethodBodyExample") 
Dim mb As MethodBody = mi.GetMethodBody() 
Console.WriteLine(vbCrLf & "Method: {0}", mi) 

' Display the general information included in the 
' MethodBody object. 
Console.WriteLine(" Local variables are initialized: {0}", mb.InitLocals) 
Console.WriteLine(" Maximum number of items on the operand stack: {0}", mb.MaxStackSize) 

' Display information about the local variables in the 
' method body. 
Console.WriteLine() 
For Each lvi As LocalVariableInfo In mb.LocalVariables 
    Console.WriteLine("Local variable: {0}", lvi) 
Next