SHARE
TWEET

Untitled

a guest Mar 26th, 2020 57 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.         Randomize()
  4.         TextBox1.Text = ""
  5.         Dim liczba1 As Integer = Rnd() * 100
  6.         Dim tab(9) As Integer
  7.  
  8.  
  9.         'wpisanie liczb do tabeli i textboxa1
  10.         For licznik As Integer = 0 To 9
  11.             liczba1 = Rnd() * 100
  12.             tab(licznik) = liczba1
  13.             TextBox1.Text = TextBox1.Text + CStr(liczba1) + vbNewLine
  14.         Next
  15.  
  16.         TextBox1.Text = TextBox1.Text & vbNewLine
  17.  
  18.         'sumowanie liczb
  19.         Dim suma As Integer = 0
  20.         For licznik As Integer = 0 To 9
  21.             suma = suma + tab(licznik)
  22.         Next
  23.  
  24.         TextBox1.Text = TextBox1.Text + "Suma z elementów tablicy to: " & suma & vbNewLine
  25.         TextBox1.Text = TextBox1.Text + "Srednia z elementów tablicy to: " & suma / 10 & vbNewLine
  26.  
  27.         'max wartosc
  28.         Dim max As Integer
  29.         For licznik As Integer = 0 To 9
  30.             If tab(licznik) > max Then
  31.                 max = tab(licznik)
  32.             End If
  33.         Next
  34.  
  35.         TextBox1.Text = TextBox1.Text & "Element maksymalny z tablicy to: " & max & vbNewLine
  36.  
  37.         'min wartosc
  38.         Dim min As Integer = tab(9)
  39.         For licznik As Integer = 0 To 9
  40.             If tab(licznik) < min Then
  41.                 min = tab(licznik)
  42.             End If
  43.         Next
  44.  
  45.         TextBox1.Text = TextBox1.Text & "Element minimalny z tablicy to: " & min & vbNewLine
  46.         TextBox1.Text = TextBox1.Text & "Liczby parzyste:"
  47.  
  48.         'szukanie liczb w których reszta = 0
  49.         For licznik As Integer = 0 To 9
  50.             If tab(licznik) Mod 2 = 0 Then
  51.                 TextBox1.Text = TextBox1.Text & tab(licznik) & " "
  52.             End If
  53.         Next
  54.         TextBox1.Text = TextBox1.Text & vbNewLine & vbNewLine
  55.  
  56.         TextBox1.Text = TextBox1.Text & "Ciąg liczb odwrócony:" & vbNewLine & vbNewLine
  57.  
  58.         'odwrócenie tabeli
  59.         Array.Reverse(tab)
  60.  
  61.         'petla do wypisania odwrotnej tabeli
  62.         For Each y As Integer In tab
  63.             TextBox1.Text = TextBox1.Text & y & " " & vbNewLine
  64.         Next
  65.  
  66.     End Sub
  67. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top