Module Module1
Sub F()
Dim Name As String = "www.rntsoft.com"
Dim Price As Double = 17.45
Dim I As Integer = 1001
Console.WriteLine("In F")
Console.WriteLine("Name: " & Name)
Console.WriteLine("Price: " & Price)
Console.WriteLine("I: " & I)
End Sub
Sub FF()
Dim Name As String = "string"
Dim Price As Double = 49.99
Dim I As Integer = 0
Console.WriteLine("In FF")
Console.WriteLine("Name: " & Name)
Console.WriteLine("Price: " & Price)
Console.WriteLine("I: " & I)
End Sub
Sub Main()
F()
Console.WriteLine()
FF()
End Sub
End Module
In F
Name: www.rntsoft.com
Price: 17.45
I: 1001
In FF
Name: string
Price: 49.99
I: 0