Números múltiplos

[BrunoBP 0]

Olá, tudo bom?

 

Estou fazendo um trabalho de faculdade e o mesmo quer saber o seguinte:

 

"Receber por digitação um número e informar se o mesmo é múltiplo de 3, 4 ou de 5."

 

Fiz um código mas ele se limita ao que eu defini:

 

Dim num1 As Integer

num1 = InputBox("Digite um número: ")

 

If num1 = 3 Or 6 Or 9 Or 12 Or 15 Or 18 Or 21 Or 24 Or 27 Or 30 Then

MsgBox("Este número é múltiplo de 3")

ElseIf num1 = 4 Or 8 Or 12 Or 16 Or 20 Or 24 Or 28 Or 32 Or 36 Or 40 Then

MsgBox("Este número é múltiplo de 4")

ElseIf num1 = 5 Or 10 Or 15 Or 20 Or 25 Or 30 Or 35 Or 40 Or 45 Or 50 Then

MsgBox("Este número é múltiplo de 5")

End If

O que quero saber é como eu deixo esses números ilimitados, por que como podem ver, eu não sei fazer sem definir quais os números que o usuário tem que digitar.

 

Obrigado,

KNukem

[scorpio 7]

Bem vindo ao fórum BrunoBP!

 

Olha os numeros multiplos de um numero X tem uma caracteristica em comum não tem ?

Por exemplo:

3, 9, 6, 12, 15, 18

 

Todos esses são multiplos de 3, pois se você dividir eles por 3 (3/3, 6/3, 9/3) o resto é zero. No VB e em várias outras linguagens, existe um operador que nos retorna esse resto da divisão. Se chama MOD.

Vai um exemplinho:

If ( 9 Mod 3 = 0 ) Then
  MsgBox("O numero 9 é multiplo de 3!")
End if

Acho que por ai da pra você fazer o exercicio.

Qualquer dúvida pode voltar e gritar :)

 

Flw

[]'s

[BrunoBP 0]

Muito obrigado mesmo!!!

 

Pior que os professores mandaram a gente se virar pra conseguir... não passaram nada relacionado a isso.

 

Tenho mais outra questão:

 

"Receber por digitação 2 números e apresentá-los em ordem crescente."

 

Como eu faço pra fazer um linha continua de número apartir do número q eu digitar?

 

Muito obrigado,

Bruno

[scorpio 7]

"Receber por digitação 2 números e apresentá-los em ordem crescente."

 

Como eu faço pra fazer um linha continua de número apartir do número q eu digitar?

Tp, o usuário digita 3 e 7, e o programa tem que mostrar

3,4,5,6,7

isso ?

Faz um laço de repetição For

For <variavel> = <valor_inicial> To <valor_final>
  Msgbox <variavel>
Next

[BrunoBP 0]

Muito obrigado!!! :D

 

Abraços,

Bruno