VBWEB - Calcular MMC

USUÁRIO: SENHA:

SALVAR LOGIN ?


	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