Guest User

Lista A

a guest
Apr 21st, 2019
97
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  3.         Dim Serie1 As Integer
  4.         Dim Serie2 As Integer = 2
  5.         Dim Serie3 As Integer = 1
  6.         Dim Serie4 As Integer
  7.         Dim Serie5 As Integer
  8.         For X As Integer = 1 To 100
  9.             Serie1 += X
  10.         Next
  11.         lblv1.Text = Serie1
  12.         For Y As Integer = 2 To 100 Step 2
  13.             Serie2 *= Y
  14.         Next
  15.         lblv2.Text = Serie2
  16.         For Z As Integer = 1 To 100 Step 2
  17.             Serie3 *= Z
  18.         Next
  19.         lblv3.Text = Serie3
  20.         For W As Integer = 1 To 10
  21.             Serie4 += Math.Pow(W, W)
  22.         Next
  23.         lblv4.Text = Serie4
  24.         For V As Integer = 250 To 0 Step -2
  25.             Serie5 -= V
  26.         Next
  27.         lblv5.Text = Serie5
  28.         Dim N As Integer = CInt(txtv1.Text)
  29.         Dim U As Integer
  30.         While (U < N)
  31.             N = N - 1 + N - 2
  32.             U += 1
  33.         End While
  34.         lblv6.Text = N
  35.         For T As Integer = 50 To 1 Step -1
  36.             For S As Integer = 1 To 50 Step 1
  37.                 For Q As Integer = 1 To S Step 1
  38.                     Q += Q
  39.                 Next
  40.             Next
  41.             T /= S
  42.         Next
  43.         lblv7.Text = T
  44.         For R As Integer = 1 To 100
  45.             For P As Integer = 1 To 50
  46.                 For O As Integer = 1 To P
  47.                     O += O
  48.                 Next
  49.                 P /= O
  50.             Next
  51.             R /= P
  52.         Next
  53.         lblv8.Text = R
  54.  
  55.     End Sub
  56. End Class
RAW Paste Data