El tercer problema de la programación VB

Sub Commandl_C1ick() privado

Para I＝1 a 20

x＝Int( Rnd*200 100)

Si x Mod 5 = 0 Entonces

Imprimir x

S＝S x

Finalizar si

Siguiente I

Imprimir "Suma="；S

Fin Sub