# April 14, 2001

#### CelsiusToFahrenheit, FahrenheitToCelsius – Convert temperature values

‘ convert from Celsius to Fahrenheit degreesFunction CelsiusToFahrenheit(ByVal value As Single) As Single CelsiusToFahrenheit = value * 1.8 + 32End Function’ convert from Fahrenheit to Celsius degreesFunction FahrenheitToCelsius(ByVal value As

#### IsCharType – Check whether a character is alphabetic, a digit, a space, etc.

‘ Return True if a character belongs to a given catagory” CHARTYPE can be the sum of one or more of the following values’ 1 = Uppercase alpha char [A-Z]’

#### GetPrimeNumbers – Evaluate the first N prime numbers

‘ Returns an array with the first N prime numbers” Note: you can easily convert this routine to VB4 and VB5 by’ returning the result array through an argument instead

#### TriangleArea – Evaluate the area of any triangle given its sides

‘ evaluate the area of a triangle’ given its three sidesFunction TriangleArea(side1 As Double, side2 As Double, _ side3 As Double) As Double ‘ this function uses the Heron formula

#### UniqueWords – Extract all individual words in a string

‘ build a list of all the individual words in a string” returns a collection that contains all the unique words.’ The key for each item is the word itself’