Imports System
Public Class Test
Public Shared Sub Main()
hoopla(5)
End Sub
public shared sub hoopla(x as integer)
dim x as double
x=3
console.writeline(x)
end sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlob29wbGEoNSkKCUVuZCBTdWIKCXB1YmxpYyBzaGFyZWQgc3ViIGhvb3BsYSh4IGFzIGludGVnZXIpCgkgICBkaW0geCBhcyBkb3VibGUKCSAgIHg9MwoJICAgY29uc29sZS53cml0ZWxpbmUoeCkKCWVuZCBzdWIKRW5kIENsYXNz