Usa la programación vb para calcular el número de 1000 enteros positivos divisibles por 7 y 17 y sumarlos
Private Sub Command1_Click()
Dim a, s, i As Integer
Para i = 1 a 1000
Si i Mod 7 = 0 y i Mod 17 = 0 Entonces
a = a + 1
s = s + i
Dim a, s, i As Integer
Para i = 1 a 1000
Si i Mod 7 = 0 y i Mod 17 = 0 Entonces
a = a + 1
s = s + i