fork download
copy 
  1. Imports System
  2. Imports Microsoft.VisualBasic
  3.  
  4. Public Module Module1
  5. 	Public Sub Main()
  6. 		Console.WriteLine("If")
  7. 		If True Then
  8. 			Console.WriteLine(x())
  9. 		Else
  10. 			Console.WriteLine(y())
  11. 		End If
  12. 		If False Then
  13. 			Console.WriteLine(x())
  14. 		Else
  15. 			Console.WriteLine(y())
  16. 		End If
  17.  
  18. 		Console.WriteLine("Iif()")
  19. 		Console.WriteLine(IIf(True, x(), y()))
  20. 		Console.WriteLine(IIf(False, x(), y()))
  21.  
  22. 		Console.WriteLine("If()")
  23. 		Console.WriteLine(If(True, x(), y()))
  24. 		Console.WriteLine(If(False, x(), y()))
  25.  
  26. 		Dim number = 12
  27. 		Dim divisor = 3
  28. 		Console.WriteLine(If(divisor <> 0, number \ divisor, 0))
  29. 		Console.WriteLine(IIf(divisor <> 0, number \ divisor, 0))
  30. 		divisor = 0
  31. 		Console.WriteLine(If(divisor <> 0, number \ divisor, 0))
  32. 		'Console.WriteLine(IIf(divisor <> 0, number \ divisor, 0))	'Dá erro aqui			
  33. 	End Sub
  34. 	Public Function x() As String
  35. 		Return "x"
  36. 	End Function
  37. 	Public Function y() As String
  38. 		Return "y"
  39. 	End Function
  40. End Module
  41.  
  42. 'https://pt.stackoverflow.com/q/154506/101
Success #stdin #stdout 0.08s 24504KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
If
x
y
Iif()
x
y
If()
x
y
4
4
0
https://ideone.com/wJhzV0
language:
VB.net (mono 4.7)
created:
4 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!