Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Tämä funktio palauttaa tosi/epätosi-arvon sen mukaan, että onko luku jaollinen toisella luvulla vai ei.
Funktio
Public Function Jaollinen(Jaettava As Long, Jakaja As Long) As Boolean
Dim A As Long 'jakojäännös
A = Jaettava Mod Jakaja 'nyt jaetaan
If A = 0 Then 'jos jakojäännöstä ei syntynyt, jaollisuus on tosi
Jaollinen = True
Else 'muussa tapauksessa ei ollut
Jaollinen = False
End If
End FunctionEsimerkki
Private Sub Form_Load()
Dim X As Boolean, Jaettava As String, Jakaja As String
Jaettava = InputBox ("Minkä luvun haluaisitte jakaa?", "Jakojäännösesimerkki", "1000")
Jakaja = InputBox ("Ja millä jaettaisiin?", "Esimerkki", "250")
X = Jaollinen (Val (Jaettava), Val (Jakaja))
If X = True Then
MsgBox "Jaollinen oli", , "Se esimerkki"
Else
MsgBox "Eipä ollut...", , "Esimerkki"
End If
End SubEikös täällä ole kommentteja :(
Aihe on jo aika vanha, joten et voi enää vastata siihen.