USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Operações Matemáticas)

Título da Dica:  Calcular MMC
Postada em 6/3/2003 por Fábio/SP         
Private Sub Command1_Click()
  Dim Valor1 As Integer
  Dim Valor2 As Integer
  Dim Posicao As Byte
  Dim ValorTotal As Integer
  Dim MudaPosicao As Boolean
  
  Valor1 = Text1
  Valor2 = Text2
  Posicao = 2
  ValorTotal = 1
  
  Do While True
    If Valor1 = 1 And Valor2 = 1 Then
      Text3 = ValorTotal
      Exit Do
    End If
    
    MudaPosicao = True
    If (Valor1 Mod Posicao) = 0 Then
      Valor1 = Valor1 \ Posicao
      MudaPosicao = False
    End If
    
    If (Valor2 Mod Posicao) = 0 Then
      Valor2 = Valor2 \ Posicao
      MudaPosicao = False
    End If
    
    If Not MudaPosicao Then
      ValorTotal = ValorTotal * Posicao
    Else
      Posicao = Posicao + 1
    End If
  Loop
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página