Mostrar varios valores MSGBOX
Publicado por Hector (1 intervención) el 27/01/2021 20:08:55
Buenas tardes estoy escribiendo este procedimiento en VBA
El problema es que quiero que muestre los diferentes valores que toma la variable i y los muestre en MsgBox ya que solo me aparece uno
El problema es que quiero que muestre los diferentes valores que toma la variable i y los muestre en MsgBox ya que solo me aparece uno
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim i As Long, num As Long, s As Long
Dim x As String
num = CLng(InputBox("Indique un número ", "Indique..."))
Do While num <= 0
num = CLng(InputBox("Indique un número ", "Indique..."))
Loop
If num > 1 Then s = 0 i = 0Do While i < Fix(num / 2)
i = i + 1
If (num Mod i = 0) Then
s = s + i
MsgBox "Sus divisores son: " & i acá es donde solo me muestra un valor cada ventana, me gustaria que me mostrara todos los valores en la misma ventana. Gracias por su ayuda
End If
Loop
x = " es un numero imperfecto a la derecha "
If s = num Thenx = " es un numero perfecto "
c = c + 1
Else
If s < num Thenx = " es un numero imperfecto a la izquierda "
End If
End If
MsgBox "En conclusión el numero " & num & x
Else
Valora esta pregunta
0