Nasze serwery
-
Counter-Strike 1.6
-
Counter-Strike 2
-
Teamspeak 3
-
Discord
- 8 Wszystkich serwerów
- 46 / 236 Wszystkich graczy
- 19% Zapełnienie serwerów
AJZY
-
Postów
3 -
Czas online
41m 16s -
Rejestracja
-
Ostatnia wizyta
-
Dotacje
0.00 PLN
9 obserwujących
.thumb.jpg.ddb0d6167486bc98a9a0c07620596c64.jpg)
![s1mple [t]](https://csowicze.pl/uploads/monthly_2023_05/pobrane.thumb.png.4de95b1e74c0133855167e7c7cf33a88.png)
Ostatnie wizyty
Osiągnięcia AJZY
O mnie
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim num1 As Double
Dim num2 As Double
Dim num3 As Double
If Double.TryParse(TextBox1.Text, num1) AndAlso Double.TryParse(TextBox2.Text, num2) AndAlso Double.TryParse(TextBox3.Text, num3) Then
Dim sum As Double = 0
If num1 < 5 Then sum += num1
If num2 < 5 Then sum += num2
If num3 < 5 Then sum += num3
Label1.Text = "Suma liczb większych od 5: " & sum.ToString()
Else
Label1.Text = "Proszę wprowadzić prawidłowe liczby."
End If
End Sub
End Class
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim wektor(4), max, i, min As Integer
max = 0
For i = 0 To 4
wektor(i) = InputBox("wprowadź liczbę nr" & i + 1)
If i = 0 Then
min = wektor(i)
End If
If max < wektor(i) Then
max = (wektor(i))
ElseIf min > wektor(i) Then
min = wektor(i)
End If
Next
MsgBox("wartość maksymalna to " & max)
MsgBox("wartość minimalna to " & min)
End Sub
End Class