|
Luku 7FunktioFunktio on kuin aliohjelma,
mutta se myös palauttaa arvon.
Tämä onnistuu komennon Seuraava funktio Function Tupla(x As Number) As Number Return 2*x End Function Funktion alkurivin lopussa lukee Funktiota voisi käyttää näin: Print Tupla(14) Tuloksena on: 28 SummaSeuraava funktio laskee summan luvusta 1 lukuun n: Function Summa(n As Number) As Number Dim s = 0 For i = 1 To n s = s + i Next i Return s End Function Print "Summa 1..5: " & Summa(5) Print "Summa 1..10: " & Summa(10) Print "Summa 1..100: " & Summa(100) Ohjelman tuloksena on: Summa 1..5: 15 Summa 1..10: 55 Summa 1..100: 5050 TähdetSeuraava funktio palauttaa merkkijonon,
jossa on Function Tahdet(n As Number) As String Dim s = "" For i = 1 To n s = s & "*" Next i Return s End Function Funktiota voisi käyttää näin: Print Tahdet(8) Tuloksena on: ******** Seuraava koodi luo porraskuvion funktion avulla: For i = 1 To 10 Print Tahdet(i) Next i Koodin tuloksena on: * ** *** **** ***** ****** ******* ******** ********* ********** PalindromiSeuraavassa ohjelmassa on funktio Funktio palauttaa totuusarvon ( Function Palindromi(sana As String) As Boolean Return sana = Reverse(sana) End Function Dim sana = InputText("Anna sana:") If Palindromi(sana) Then Message "Sana on palindromi" Else Message "Sana ei ole palindromi" End If Ohjelman suoritus voi näyttää tältä: Tai tältä: |