Functies 1 :oplossingen

Functies die

1. het grootste van twee getallen teruggeven
   Function max (g1 As Double, g2 As Double) As Double
       If g1>g2 Then
           max = g1
           Else
           max=g2
       End If
   Exit Function
2. het kleinste van twee getallen teruggeven
   Function min (g1 As Double, g2 As Double) As Double
       If g1>g2 Then
           min = g1
           Else
           min=g2
       End If
   Exit Function
3. een dubbel teruggeeft van een getal, en een string twee keer na elkaar zet
   Function dubbel(i As Variant) As Variant
   If IsNumeric(i) Then
   dubbel = i * 2
   Else
   dubbel = i & i
   End If
   
   Sluwer is deze oplossing:
   
   Function dubbel2(i As Variant) As Variant
   dubbel = i + i
   End Function
   
4. nagaan of een getal priemgetal is (daarvoor gaan we na of de getallen tussen 2 en de vierkantswortel mogelijke delers zijn; als dat zo, is het geen priemgetal).
   Function ispriem (g As Integer) As Boolean
   Dim testdeler As Integer
   ispriem=True
   For testdeler = 2 to Sqr(g)
       If g Mod testdeler = 0 Then 'deler gevonden
           ispriem=False
           Exit For
       End If
   Next testdeler
   End Function

   Je vindt hier een uitwerking in VBS van deze laatste.

[VB Web] - [hlrnet] - [copyright]