将某个东西的值从sub 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

它不起作用，因为我必须在Dim x中sub add()，所以我想要的是将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