June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Null-object/Visual-Basic/null-object-2.vb
+++ b/Task/Null-object/Visual-Basic/null-object-2.vb
@ -0,0 +1,17 @@
+Public Sub Main()
+Dim v As Variant
+
+' initial state: Empty
+Debug.Assert IsEmpty(v)
+Debug.Assert VarType(v) = vbEmpty
+
+v = 1&
+Debug.Assert VarType(v) = vbLong
+
+' assigning the Null state
+v = Null
+' checking for Null state
+Debug.Assert IsNull(v)
+Debug.Assert VarType(v) = vbNull
+
+End Sub