Imports System
Imports Microsoft.VisualBasic

Public Module Module1
	Public Sub Main()
		Console.WriteLine("If")
		If True Then
			Console.WriteLine(x())
		Else
			Console.WriteLine(y())
		End If
		If False Then
			Console.WriteLine(x())
		Else
			Console.WriteLine(y())
		End If
		
		Console.WriteLine("Iif()")
		Console.WriteLine(IIf(True, x(), y()))
		Console.WriteLine(IIf(False, x(), y()))
		
		Console.WriteLine("If()")
		Console.WriteLine(If(True, x(), y()))
		Console.WriteLine(If(False, x(), y()))
				
		Dim number = 12
		Dim divisor = 3
		Console.WriteLine(If(divisor <> 0, number \ divisor, 0))
		Console.WriteLine(IIf(divisor <> 0, number \ divisor, 0))
		divisor = 0
		Console.WriteLine(If(divisor <> 0, number \ divisor, 0))
		'Console.WriteLine(IIf(divisor <> 0, number \ divisor, 0))	'Dá erro aqui			
	End Sub
	Public Function x() As String
		Return "x"
	End Function
	Public Function y() As String
		Return "y"
	End Function
End Module

'https://pt.stackoverflow.com/q/154506/101

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBNaWNyb3NvZnQuVmlzdWFsQmFzaWMKClB1YmxpYyBNb2R1bGUgTW9kdWxlMQoJUHVibGljIFN1YiBNYWluKCkKCQlDb25zb2xlLldyaXRlTGluZSgiSWYiKQoJCUlmIFRydWUgVGhlbgoJCQlDb25zb2xlLldyaXRlTGluZSh4KCkpCgkJRWxzZQoJCQlDb25zb2xlLldyaXRlTGluZSh5KCkpCgkJRW5kIElmCgkJSWYgRmFsc2UgVGhlbgoJCQlDb25zb2xlLldyaXRlTGluZSh4KCkpCgkJRWxzZQoJCQlDb25zb2xlLldyaXRlTGluZSh5KCkpCgkJRW5kIElmCgkJCgkJQ29uc29sZS5Xcml0ZUxpbmUoIklpZigpIikKCQlDb25zb2xlLldyaXRlTGluZShJSWYoVHJ1ZSwgeCgpLCB5KCkpKQoJCUNvbnNvbGUuV3JpdGVMaW5lKElJZihGYWxzZSwgeCgpLCB5KCkpKQoJCQoJCUNvbnNvbGUuV3JpdGVMaW5lKCJJZigpIikKCQlDb25zb2xlLldyaXRlTGluZShJZihUcnVlLCB4KCksIHkoKSkpCgkJQ29uc29sZS5Xcml0ZUxpbmUoSWYoRmFsc2UsIHgoKSwgeSgpKSkKCQkJCQoJCURpbSBudW1iZXIgPSAxMgoJCURpbSBkaXZpc29yID0gMwoJCUNvbnNvbGUuV3JpdGVMaW5lKElmKGRpdmlzb3IgPD4gMCwgbnVtYmVyIFwgZGl2aXNvciwgMCkpCgkJQ29uc29sZS5Xcml0ZUxpbmUoSUlmKGRpdmlzb3IgPD4gMCwgbnVtYmVyIFwgZGl2aXNvciwgMCkpCgkJZGl2aXNvciA9IDAKCQlDb25zb2xlLldyaXRlTGluZShJZihkaXZpc29yIDw+IDAsIG51bWJlciBcIGRpdmlzb3IsIDApKQoJCSdDb25zb2xlLldyaXRlTGluZShJSWYoZGl2aXNvciA8PiAwLCBudW1iZXIgXCBkaXZpc29yLCAwKSkJJ0TDoSBlcnJvIGFxdWkJCQkKCUVuZCBTdWIKCVB1YmxpYyBGdW5jdGlvbiB4KCkgQXMgU3RyaW5nCgkJUmV0dXJuICJ4IgoJRW5kIEZ1bmN0aW9uCglQdWJsaWMgRnVuY3Rpb24geSgpIEFzIFN0cmluZwoJCVJldHVybiAieSIKCUVuZCBGdW5jdGlvbgpFbmQgTW9kdWxlCgonaHR0cHM6Ly9wdC5zdGFja292ZXJmbG93LmNvbS9xLzE1NDUwNi8xMDE=