Algoritmo Divisores de numeros

[GUSTAVO BATISTA 0]

Preciso de uma ajuda pessoal.Nao estou conseguindo fazer esse algoritmo.

 

Faça um algoritmo que relacione todos os divisores de cada um dos inteiros entre 2 e 99, com saída no seguinte formato:

 

Nr ==== DIVISORES

 

2 ==== 1,2

 

3 ==== 1,3

 

4 ==== 1,2,4

 

5 ==== 1,5

 

6 ==== 1,2,3,6

 

............................

 

.............................

 

99 ==== 1,3, ....................

[Gvip 0]

Falae Gustavo,

 

Da uma olhada se isso resolve seu problema....

 

Private Sub Command2_Click()
	Dim result As Integer
	Label.Caption = "Res: "
	For i = 1 To 99
		result = Me.Text1 Mod i
		If result = 0 Then
			Label.Caption = Label.Caption & i & ", "
		End If
	Next
End Sub

Abraços...

[Mário Monteiro 179]

So uma coisa não post tópicos duplicados pois as regras proíbem

 

Para o seu caso o uso do MOD conforme foi mostrado é o caminho usando um laço de repetição