$VALMIR$
|
UBERLANDIA
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/01/2008 14:11 hs
Galera, como faz para o VB6 verificar se o numero é Divisível ou não por 3.
Tipo 335 não é divisível por 3 então False
qdo for divisível por 3 então True
e preciso tbm saber qual é o proximo numero que será divisivel por 3
alguém pode me ajudar..
|
|
|
|
|
|
|
|
Postada em 23/01/2008 14:22 hs
Dim Ldividendo As Long
Dim numero As Long Private Sub Command1_Click()
numero = 335
Ldividendo = F_divisivel(numero, 3)
If Ldividendo = numero Then
MsgBox "É divisível"
Else
MsgBox "Não é divisível por: " & numero & vbNewLine & "É divisível por: " & Ldividendo
End If
End Sub Private Function F_divisivel(ByVal dividendo As Long, ByVal divisor As Long) As Long
If dividendo Mod divisor = 0 Then
F_divisivel = dividendo
Else
dividendo = dividendo + 1
F_divisivel = F_divisivel(dividendo, divisor)
End If
End Function
|
|
TÓPICO EDITADO
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/01/2008 14:47 hs
um modo fácil é este inclua um textbox e um command button no seu projeto e cole este código Private Sub Command1_Click()
Dim resultado As Integer resultado = text1.text Mod 3
If resultado = 0 Then
MsgBox "O nº " & text1.text & " é divisivel por 3"
Else
MsgBox "O nº " & text1.text &" não é divisivel por 3"
End If
End Sub é simples porém já é um começo |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 24/01/2008 09:35 hs
if mod NumeroAdividir Mod 3 <> 0 then não divisivel else divisivel end if
|
|
|
|
