Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Jaollisuus

moptim [06.08.2006 19:39:04]

#

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 Function

Esimerkki

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 Sub

moptim [31.10.2006 18:47:50]

#

Eikös täällä ole kommentteja :(

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta