All Tutorials & Interview Questions

MinValue and MaxValue of Long

2011-09-17T06:47:00.001-07:00

public class Test
   public Shared Sub Main
               Dim lNum As Long
               Console.WriteLine("Long: " & lNum.MinValue & " to " & lNum.MaxValue)
   End Sub
End class

Long = 1 Or 2

2011-09-17T06:46:00.001-07:00

public class Test

   Public Const MASK_READ_WRITE As Long = 1 Or 2
   public Shared Sub Main
        Console.WriteLine(MASK_READ_WRITE)
   End Sub
End class

Long = &H1000&

2011-09-17T06:44:00.001-07:00

public class Test

   Public Const MASK_READ As Long = &H1000&
   public Shared Sub Main

   End Sub
End class

ULong of Oct

2011-09-17T06:43:00.001-07:00

public class Test

   public Shared Sub Main
        Dim flags As ULong
        flags = &O144 ' Octal &O144 = 1 * 8 * 8 + 4 * 8 + 4 = 64 + 32 + 4 = 100.

        Console.WriteLine(Oct(flags)) ' Octal.
   End Sub

End class

reedlyULong of Hex

2011-09-17T06:42:00.001-07:00

public class Test

   public Shared Sub Main
        Dim flags As ULong
        flags = &H64 ' Hexadecimal &H64 = 6 * 16 + 4 = 96 + 4 = 100.

        Console.WriteLine(Hex(flags)) ' Hexadecimal.
   End Sub

End class

ULong of Decimal

2011-09-17T06:40:00.001-07:00

public class Test

   public Shared Sub Main
        Dim flags As ULong
        flags = 100 ' Decimal 100.

        Console.WriteLine(flags)      ' Decimal.
   End Sub

End class

MinValue and MaxValue of Short

2011-09-17T06:30:00.003-07:00

public class Test
   public Shared Sub Main
               Dim sNum As Short

               Console.WriteLine("Short: " & sNum.MinValue & " to " & sNum.MaxValue)

   End Sub
End class

Short Overflow

2011-09-17T06:30:00.001-07:00

Module Module1

    Sub Main()
        Dim Value As Short = 32767
        Value = Value + 1
    End Sub

End Module

Display negative SByte value using the standard numeric format specifiers and a number of specific CultureInfo objects

2011-09-17T06:29:00.001-07:00

Imports System.Globalization

Module Example
   Public Sub Main()
      Dim cultures() As CultureInfo = {CultureInfo.CreateSpecificCulture("en-US"), _
                                       CultureInfo.CreateSpecificCulture("fr-FR"), _
                                       CultureInfo.CreateSpecificCulture("es-ES") }
      Dim negativeNumber As SByte = -45
      Dim specifiers() As String = {"E2", "F", "N", "P", "X2"}

      For Each specifier As String In specifiers
         For Each culture As CultureInfo In Cultures
            Console.WriteLine("{0,2} format using {1} culture: {2, 16} {3, 16}", _
                              specifier, culture.Name, _
                              negativeNumber.ToString(specifier, culture))

         Next
      Next
   End Sub
End Module

Byte

2011-09-17T06:27:00.001-07:00

Convert the part of a Byte array to a String with the ToString method:
Example of some BitConverter.ToString( ) method overloads.
Imports System
Imports Microsoft.VisualBasic

Module BytesToStringDemo
    Sub Main( )
        Dim arrayOne as Byte( ) = { _
              0,   0,   0,   0, 128,  63,   0,   0, 112,  65, _
              0, 255, 127,  71,   0,   0, 128,  59,   0,   0, _
              0,   0,   0, 192, 255,   0,   0, 128, 255,   0, _
              0, 128, 127 }

        Console.WriteLine(BitConverter.ToString( arrayOne))
    End Sub
End Modul

Explicit conversion of an integer to a string

2011-09-17T06:25:00.001-07:00

Module Tester
    Public Sub Main()
        Dim iInteger As Integer = 5280
        Dim lLong As Long
        Dim bytByte As Byte
        Dim sngSingle As Single
        Dim dblDouble As Double
        Dim decDecimal As Decimal

        Console.WriteLine
("Explicit conversion of an integer to a string: {0}"
, CStr(iInteger))
    End Sub

End Module

Implicit conversion of an integer to a string

2011-09-17T06:24:00.001-07:00

Module Tester
    Public Sub Main()
        Dim iInteger As Integer = 5280
        Dim lLong As Long
        Dim bytByte As Byte
        Dim sngSingle As Single
        Dim dblDouble As Double
        Dim decDecimal As Decimal

        Console.WriteLine("Implicit conversion of an integer to a string: {0}", iInteger)
    End Sub

End Module

Integer OverflowException

2011-09-17T06:23:00.001-07:00

Public Class Tester
    Public Shared Sub Main
        Dim A, B As Integer
        Dim C As Integer
        Try
            A = 9999
            B = 9999
            C = A * B * B * B
        Catch Except As OverflowException
            Console.WriteLine("Overflow error detected")
        End Try
    End Sub

End Class

Compare Integer value in If statement

2011-09-17T06:22:00.001-07:00

Module Module1

    Sub Main()
        Dim TestScore As Integer = 80

        If TestScore >= 90 Then
            Console.WriteLine("Test grade: A")
        ElseIf TestScore >= 80 Then
            Console.WriteLine("Test grade: B")
        ElseIf TestScore >= 70 Then
            Console.WriteLine("Test grade: C")
        Else
            Console.WriteLine("Test grade: F")
        End If

    End Sub

End Module

Pass Integer to a function by value

2011-09-17T06:21:00.001-07:00

Module Module1

    Sub NoChangeToParameter(ByVal A As Integer)
        A = 1001
        Console.WriteLine("Value of A in subroutine " & A)
    End Sub

    Sub Main()
        Dim Number As Integer = 100

        Console.WriteLine("Number before function call: " & Number)
        NoChangeToParameter(Number)
        Console.WriteLine("Number before function call: " & Number)
    End Sub

End Module

fanlPass Integer to a function by reference

2011-09-17T06:20:00.001-07:00

Module Module1

    Sub ParameterChange(ByRef A As Integer)
        A = 1001
        Console.WriteLine("Value of A in subroutine " & A)
    End Sub

    Sub Main()
        Dim Number As Integer = 100

        Console.WriteLine("Number before function call: " & Number)
        ParameterChange(Number)
        Console.WriteLine("Number before function call: " & Number)
    End Sub

End Module

Integer format: D10

2011-09-16T09:39:00.001-07:00

Public Class Tester
    Public Shared Sub Main
        Dim intNumber As Integer = 12345
        Console.WriteLine(intNumber.ToString("D10"))

    End Sub
End Class

Parse Integer variable and get hash code from Integer

2011-09-16T09:37:00.007-07:00

public class Test
   public Shared Sub Main
    Dim Number As String
    Number = "4"
    Console.WriteLine(Integer.Parse(Number))
    Console.WriteLine(Number.GetHashCode())

   End Sub
End class

Integer boolean calculation: Or, And, Xor, Not

2011-09-16T09:37:00.001-07:00

public class Test
   public Shared Sub Main
        Dim I As Integer


        I = 3 Or 4
        Console.WriteLine(I)

        I = 2 And 4
        Console.WriteLine(I)

        I = 3 Xor 3
        Console.WriteLine(I)

        I = Not 5
        Console.WriteLine(I)
   End Sub
End class

Integer.GetType

2011-09-16T09:35:00.003-07:00

Module Module1

  Const x As String = "This is a string"

  Sub Main()
    Dim a As Double = 5.678
    Dim b As Int32 = 123

    Console.WriteLine(a.ToString)
    Console.WriteLine(b.ToString)
    Console.WriteLine(456.987.ToString)

    Dim c As Integer
    Console.WriteLine(c.GetType())
    Console.WriteLine(c.GetType().ToString)

  End Sub

End Module

Parse Integer

2011-09-16T09:34:00.003-07:00

public class Test
   public Shared Sub Main
        Try
            Dim num_items As Integer = Integer.Parse("123")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
   End Sub
End class

MinValue and MaxValue of Integer

2011-09-16T09:32:00.001-07:00

public class Test
   public Shared Sub Main
               Dim iNum As Integer
               Console.WriteLine("Integer: " & iNum.MinValue & " to " & iNum.MaxValue)
   End Sub
End class

Swap two integers without using a third

2011-09-16T09:31:00.001-07:00

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Public Class Tester
    Public Shared Sub Main

        Dim firstValue As Integer
        Dim secondValue As Integer

        firstValue = 17
        secondValue = 123
        Console.WriteLine("Before swap: {0}, {1}",firstValue, secondValue)

        firstValue = firstValue Xor secondValue
        secondValue = firstValue Xor secondValue
        firstValue = firstValue Xor secondValue
        Console.WriteLine("After swap: {0}, {1}",firstValue, secondValue)
    End Sub
End Class

Integer calculation

2011-09-16T09:30:00.003-07:00

public class Test
   public Shared Sub Main
        Dim n As Integer

        ' try adding numbers...
        n = 16
        n += 10.23
        Console.WriteLine("Addition " & n)

        ' try subtracting numbers...
        n = 24
        n -= 2
        Console.WriteLine("Subtraction " & n)

        ' try multiplying numbers...
        n = 6
        n *= 10
        Console.WriteLine("Multiplication " & n)

        ' try dividing numbers...
        n = 12
        n /= 6
        Console.WriteLine("Division " & n)

   End Sub
End class

Add two integers together

2011-09-16T09:28:00.001-07:00

Module Tester

   Sub Main()
      Dim firstNumber, secondNumber As String

      Dim number1, number2, sumOfNumbers As Integer

      firstNumber = 10

      secondNumber = 20

      number1 = firstNumber
      number2 = secondNumber

      sumOfNumbers = number1 + number2 ' add numbers
      Console.WriteLine("The sum is {0}", sumOfNumbers)

   End Sub ' Main

End Module