传递的东西的价值从子main（）中另一个子程序

Question

Sub main() 

    Dim x as integer=5 

Sub add() 

End sub 

Sub add() 

    Dim z as integer = 5 + x 
    Console.writeline(z) 

End sub y 

它不会工作，因为我要在sub add()Dim x所以我想是的x该值传递给sub add()的方式。

Answer 1

可以使用Scoping将变量传递给这样的方法：

Sub main() 
    Dim x as integer = 5 
    add(x) 
End sub 

Sub add(NewX As Integer) 
    Dim z as integer = 5 + NewX 
    Console.writeline(z) 
End sub