Taller "While"

Desarrollo

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











2.
Dim I As Integer
i=1
While (iI=i+textbox1.text
Listbox1.items.add(i)
Listbox1.items.add(1)
.
.
.
Listbox1.items.add(textbox1.text)
End while








3.

 Dim I As Integer
        While (I < TextBox1.Text)
            I = I + 1
            ListBox1.Items.Add(I)
        End While










4.

Dim i As integer

Dim k As integer

Dim p As integer

  i= 0

  k= textbox1.text

  p=0

while ( i< textbox1.text)

  i= i+1

if (k mod i= 0 ) then

  p= p+1

End If

End while

if ( p= 2) then

  textbox2.text = " el número ingresado es primo "

Else

  textbox2.text = " el número ingresado no es primo"

End If