Lista A

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Serie1 As Integer
        Dim Serie2 As Integer = 2
        Dim Serie3 As Integer = 1
        Dim Serie4 As Integer
        Dim Serie5 As Integer
        For X As Integer = 1 To 100
            Serie1 += X
        Next
        lblv1.Text = Serie1
        For Y As Integer = 2 To 100 Step 2
            Serie2 *= Y
        Next
        lblv2.Text = Serie2
        For Z As Integer = 1 To 100 Step 2
            Serie3 *= Z
        Next
        lblv3.Text = Serie3
        For W As Integer = 1 To 10
            Serie4 += Math.Pow(W, W)
        Next
        lblv4.Text = Serie4
        For V As Integer = 250 To 0 Step -2
            Serie5 -= V
        Next
        lblv5.Text = Serie5
        Dim N As Integer = CInt(txtv1.Text)
        Dim U As Integer
        While (U < N)
            N = N - 1 + N - 2
            U += 1
        End While
        lblv6.Text = N
        For T As Integer = 50 To 1 Step -1
            For S As Integer = 1 To 50 Step 1
                For Q As Integer = 1 To S Step 1
                    Q += Q
                Next
            Next
            T /= S
        Next
        lblv7.Text = T
        For R As Integer = 1 To 100
            For P As Integer = 1 To 50
                For O As Integer = 1 To P
                    O += O
                Next
                P /= O
            Next
            R /= P
        Next
        lblv8.Text = R

    End Sub
End Class