Ir ao conteúdo
  • Cadastre-se
feu2012

Ajuda com Visual Estudio?

Recommended Posts

Public Class frmNumeros

Dim N1, N2, NPar, NImpar As Byte
Dim CONT As Integer

Private Sub cmdSair_Click(sender As Object, e As EventArgs) Handles cmdSair.Click
End

End Sub

Private Sub cmdLimpar_Click(sender As Object, e As EventArgs) Handles cmdLimpar.Click
txtN1.Text = ""
txtN2.Text = ""
Lblnumeros.Text = ""
N1 = Nothing
N2 = Nothing
NPar = Nothing
NImpar = Nothing
End Sub

Private Sub cmdListar_Click(sender As Object, e As EventArgs) Handles cmdListar.Click
N1 = CByte(txtN1.Text)
N2 = CByte(txtN2.Text)
For CONT = N1 To N2
Lblnumeros.Text = Lblnumeros.Text & " " & CONT
Next
If (N1 Mod 2) = 0 Then
NPar = N1
NImpar = N1 + 1
Else
NPar = N1 + 1
NImpar = N1
End If
For Me.CONT = NPar To N2 Step 2
lblpares.Text = lblpares.Text & " " & CONT
Next

For Me.CONT = NImpar To N2 Step 2
lblímpares.Text = lblímpares.Text & " " & CONT
Next
End Sub

Private Sub frmNumeros_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class

image.jpg

Gostaria que alguém me ajudasse a resolver a completar o terceiro comando.

Números primos dentro do intervalo, reparem que os números pares e os números ímpares já foram resolvidos e apresentados, e possui o código fonte.Preciso que me ajudem a resolver os números primos dentro do intervalo, como mostra essa figura que adicionei.Agradeço que puder me ajudar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×