Function with string return : Function « Class Module « VB.Net Tutorial






  1. VB.Net Tutorial
  2. Class Module
  3. Function
public class Test
   public Shared Sub Main

        Dim strISBN As String = "078212283"

        Console.WriteLine("The check Digit is " & ISBNCheckDigit("078212283") & ".")
        Console.WriteLine("The complete ISBN is " & strISBN & ISBNCheckDigit(strISBN) & ".")

   End Sub
   Shared Function ISBNCheckDigit(ByVal strISBN As String) As String

        Dim i, intCheckSum, intCheckDigit As Integer

        For i = 0 To 8
            intCheckSum = intCheckSum + (10 - i) * strISBN.Substring(i, 1)
        Next

        intCheckDigit = 11 - (intCheckSum Mod 11)
        If intCheckDigit = 10 Then
            Return ("X")
        Else
            Return (intCheckDigit.ToString)
        End If

    End Function
End class

The check Digit is 3.
The complete ISBN is 0782122833.




6.2.Function
6.2.1.Define function in a Module
6.2.2.Pass Double to a function
6.2.3.Calculates the power of a value, defaults to square
6.2.4.Assign function return value to variables
6.2.5.Call function as a statement
6.2.6.Use function in If statement
6.2.7.Function procedure to square a number.
6.2.8.Finds the maximum of three numbers input
6.2.9.Function with string return
6.2.10.Return double type value from Function
6.2.11.Define function and call it in a Module
6.2.12.Functions with different parameter number
6.2.13.Return string type value from function