cool web a perfektni rs- Doporucuji

Sunday, May 20, 2007

Přetížené mohou být i konstruktory instance nebo vlastnosti ve třídě. Modifikovaný
zápis funkce Vyhral vypadá takto:
Public Overloads Function Vyhral(ByVal strCislo As String) As String
' Původní varianta funkce
End Function
Public Overloads Function Vyhral(ByVal Cisla() As Integer) As String
Dim i, j, intCislo As Integer
Vyhral = "NE"
' První cyklus se upraví
For i = 0 To UBound(Cisla)
For j = i + 1 To UBound(Cisla)
If Cisla(i) = Cisla(j) Then
Vyhral = "DVESTEJNE"
Exit Function
End If
Next j
Next i
' Spočte se trojciferný ekvivalent číslic
intCislo = Cisla(0) * 100 + Cisla(1) * 10 + cisla(2)
' Zbytek funkce je stejný jako v původní variantě
End Function
Za předpokladu, že jsou deklarované potřebné proměnné:
Dim strCislo, strVyhrál As String
Dim Trojice(3) As Integer
můžete naši funkci volat takto
strVyhrál = Vyhral(strCislo)