Profile

Cover photo
trabajo sena
13,774 views
AboutPostsPhotosVideos

Stream

trabajo sena

Shared publicly  - 
 
                                      TALLER
1) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        i = 0
        j = 0
        While (i < 100)
            i = i + 1
            If (i Mod 5 = 0) Then
                j = j + 1
                ListBox1.Items.Add(i)
            End If
        End While
        TextBox1.Text = j
    End Sub
End Class

2)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        i = 0
        While (i < TextBox1.Text)
            i = i + 1
            ListBox1.Items.Add(i)


        End While
    End Sub
End Class
1
Add a comment...
Links
Website