7 Console
.WriteLine(f1())
10 Function f1() As Integer
13 Dim arr(17) As Boolean
15 If a
< System
.Int64
.MaxValue
Then
19 If a
<= System
.Int64
.MaxValue
Then
23 If System
.Int64
.MaxValue
> a
Then
27 If System
.Int64
.MaxValue
>= a
Then
31 If a
<> System
.Int64
.MaxValue
Then
35 If a
= System
.Int64
.MaxValue
Then arr(5) = False Else arr(5) = True
37 Dim b
As Double = 0.0F
39 If b
< System
.Double.MaxValue
Then
43 If b
<= System
.Double.MaxValue
Then
47 If System
.Double.MaxValue
> b
Then
51 If System
.Double.MaxValue
>= b
Then
55 If b
<> System
.Double.MaxValue
Then
59 If b
= System
.Double.MaxValue
Then arr(11) = False Else arr(11) = True
63 If c
< System
.Decimal.MaxValue
Then
67 If c
<= System
.Decimal.MaxValue
Then
71 If System
.Decimal.MaxValue
> c
Then
75 If System
.Decimal.MaxValue
>= c
Then
79 If c
<> System
.Decimal.MaxValue
Then
83 If c
= System
.Decimal.MaxValue
Then arr(17) = False Else arr(17) = True
85 Console
.WriteLine("Array length: {0}", arr
.GetUpperBound(0))
86 For i
As Integer = 0 To arr
.GetUpperBound(0)
87 Console
.Write("i: {0} ", i
)
88 Console
.WriteLine(arr(i
))
91 For Each bval
As Boolean In arr