Desarrollo de taller "While"

Desarrollo 1. Dim I As Integer I=0 While (i<100) I=i+1 If(imod5=0) then Listbox1.items.add (i) End if End while 2. Dim I As Integer i=1 While (i