Module mainModule
Sub Main()
Dim s1 As String = Nothing
If (s1 = Nothing) Then
Call Console.WriteLine("String の Nothing は Nothing と等しいです。")
Else
Call Console.WriteLine("String の Nothing は Nothing と等しくありません。")
End If
Dim s2 As String = String.Empty
If (s2 = Nothing) Then
Call Console.WriteLine("String.Empty は Nothing と等しいです。")
Else
Call Console.WriteLine("String.Empty は Nothing と等しくありません。")
End If
Dim n1 As Integer = 0
If (n1 = Nothing) Then
Call Console.WriteLine("Integer の 0 は Nothing と等しいです。")
Else
Call Console.WriteLine("Integer の 0 は Nothing と等しくありません。")
End If
Dim n2 As Integer = 1
If (n2 = Nothing) Then
Call Console.WriteLine("Integer の 1 は Nothing と等しいです。")
Else
Call Console.WriteLine("Integer の 1 は Nothing と等しくありません。")
End If
Dim d1 As DateTime = DateTime.Today
If (d1 = Nothing) Then
Call Console.WriteLine("DateTime.Today は Nothing と等しいです。")
Else
Call Console.WriteLine("DateTime.Today は Nothing と等しくありません。")
End If
Dim d2 As DateTime = New DateTime()
If (d2 = Nothing) Then
Call Console.WriteLine("New DateTime() は Nothing と等しいです。")
Else
Call Console.WriteLine("New DateTime() は Nothing と等しくありません。")
End If
End Sub
End Module
TW9kdWxlIG1haW5Nb2R1bGUKICAgIFN1YiBNYWluKCkKCkRpbSBzMSBBcyBTdHJpbmcgPSBOb3RoaW5nCklmIChzMSA9IE5vdGhpbmcpIFRoZW4KICAgQ2FsbCBDb25zb2xlLldyaXRlTGluZSgiU3RyaW5nIOOBriBOb3RoaW5nIOOBryBOb3RoaW5nIOOBqOetieOBl+OBhOOBp+OBmeOAgiIpCkVsc2UKICAgQ2FsbCBDb25zb2xlLldyaXRlTGluZSgiU3RyaW5nIOOBriBOb3RoaW5nIOOBryBOb3RoaW5nIOOBqOetieOBl+OBj+OBguOCiuOBvuOBm+OCk+OAgiIpCkVuZCBJZgoKRGltIHMyIEFzIFN0cmluZyA9IFN0cmluZy5FbXB0eQpJZiAoczIgPSBOb3RoaW5nKSBUaGVuCiAgIENhbGwgQ29uc29sZS5Xcml0ZUxpbmUoIlN0cmluZy5FbXB0eSDjga8gTm90aGluZyDjgajnrYnjgZfjgYTjgafjgZnjgIIiKQpFbHNlCiAgIENhbGwgQ29uc29sZS5Xcml0ZUxpbmUoIlN0cmluZy5FbXB0eSDjga8gTm90aGluZyDjgajnrYnjgZfjgY/jgYLjgorjgb7jgZvjgpPjgIIiKQpFbmQgSWYKCkRpbSBuMSBBcyBJbnRlZ2VyID0gMApJZiAobjEgPSBOb3RoaW5nKSBUaGVuCiAgIENhbGwgQ29uc29sZS5Xcml0ZUxpbmUoIkludGVnZXIg44GuIDAg44GvIE5vdGhpbmcg44Go562J44GX44GE44Gn44GZ44CCIikKRWxzZQogICBDYWxsIENvbnNvbGUuV3JpdGVMaW5lKCJJbnRlZ2VyIOOBriAwIOOBryBOb3RoaW5nIOOBqOetieOBl+OBj+OBguOCiuOBvuOBm+OCk+OAgiIpCkVuZCBJZgoKRGltIG4yIEFzIEludGVnZXIgPSAxCklmIChuMiA9IE5vdGhpbmcpIFRoZW4KICAgQ2FsbCBDb25zb2xlLldyaXRlTGluZSgiSW50ZWdlciDjga4gMSDjga8gTm90aGluZyDjgajnrYnjgZfjgYTjgafjgZnjgIIiKQpFbHNlCiAgIENhbGwgQ29uc29sZS5Xcml0ZUxpbmUoIkludGVnZXIg44GuIDEg44GvIE5vdGhpbmcg44Go562J44GX44GP44GC44KK44G+44Gb44KT44CCIikKRW5kIElmCgpEaW0gZDEgQXMgRGF0ZVRpbWUgPSBEYXRlVGltZS5Ub2RheQpJZiAoZDEgPSBOb3RoaW5nKSBUaGVuCiAgIENhbGwgQ29uc29sZS5Xcml0ZUxpbmUoIkRhdGVUaW1lLlRvZGF5IOOBryBOb3RoaW5nIOOBqOetieOBl+OBhOOBp+OBmeOAgiIpCkVsc2UKICAgQ2FsbCBDb25zb2xlLldyaXRlTGluZSgiRGF0ZVRpbWUuVG9kYXkg44GvIE5vdGhpbmcg44Go562J44GX44GP44GC44KK44G+44Gb44KT44CCIikKRW5kIElmCgpEaW0gZDIgQXMgRGF0ZVRpbWUgPSBOZXcgRGF0ZVRpbWUoKQpJZiAoZDIgPSBOb3RoaW5nKSBUaGVuCiAgIENhbGwgQ29uc29sZS5Xcml0ZUxpbmUoIk5ldyBEYXRlVGltZSgpIOOBryBOb3RoaW5nIOOBqOetieOBl+OBhOOBp+OBmeOAgiIpCkVsc2UKICAgQ2FsbCBDb25zb2xlLldyaXRlTGluZSgiTmV3IERhdGVUaW1lKCkg44GvIE5vdGhpbmcg44Go562J44GX44GP44GC44KK44G+44Gb44KT44CCIikKRW5kIElmCgogICAgRW5kIFN1YgpFbmQgTW9kdWxl