Sub Main()
Dim Bajt As Byte = 100
Dim Tekst As String = "Tekst"
Console.WriteLine(Bajt + Tekst) 'Operator "+" służy do łączenia dwóch wartości
Console.ReadKey()
End Sub
Module Module1
Sub Main()
Dim i, n, k As Byte
Dim s As Single
Dim a(15) As Byte
Console.WriteLine()
Console.Write("Podaj n: ")
n = Console.ReadLine()
For i = 0 To n - 1 'program numeruje od 0 a my od 1
Console.WriteLine()
Console.Write("Podaj {0} element tablicy:", i)
a(i) = Console.ReadLine 'jak wpisać do tablicy
Next 'przejdzie gdy warunek zostanie spełniony
For i = 0 To n - 1 'wyświetla dane umieszczone w tablicy
Console.WriteLine()
Console.Write("Wartość {0} elementu tablicy wynosi: {1}", i, a(i))
Next
s = 0
For i = 0 To n - 1 'wyświetla dane umieszczone w tablicy
s = s + a(i)
Next
s = s / n
Console.WriteLine()
Console.Write("Wartość s wynosi: {0}", s)
k = 0
For i = 0 To n - 1 'wyświetla dane umieszczone w tablicy
If a(i) > s Then
k = k + 1
End If
Next
s = s / n
Console.WriteLine()
Console.Write("Wartość k wynosi: {0}", k)
Console.ReadKey()
End Sub
End Module
Module Module1
Sub Main()
Dim n, d, h, x, w As Double
Dim ile, i As Integer
Console.WriteLine("Podaj ilość pomiarów: ")
n = Console.ReadLine()
Console.WriteLine("Podaj wartość nominalną: ")
d = Console.ReadLine()
Console.WriteLine("Podaj zakres tolerancji: ")
h = Console.ReadLine()
ile = 0
For i = 1 To n
Console.WriteLine("Podaj x:")
x = Console.ReadLine()
If Math.Abs(d - x) > h Then
ile = ile + 1
End If
Next
w = ile / n * 100
Console.WriteLine()
Console.WriteLine("Wynik jest następujący: ")
Console.Write(w)
Console.ReadKey()
End Sub
End Module
Module Module1
Sub Main()
Dim x1, x2, y1, y2, wynik As Integer
Console.WriteLine("Podaj x1:")
x1 = Console.ReadLine
Console.WriteLine("Podaj y1")
y1 = Console.ReadLine
Console.WriteLine("Podaj x2")
x2 = Console.ReadLine
Console.WriteLine("Podaj y2")
y2 = Console.ReadLine
wynik = Math.Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
Console.WriteLine("Wynik:")
Console.WriteLine(wynik)
Console.ReadKey()
End Sub
End Module
Module Module1
Sub Main()
Dim r, v, p As Integer
Console.Write("Podaj promień: ")
r = Console.ReadLine()
If r > 0 Then
p = 4 * Math.PI * (r ^ 2)
v = (4 / 3) * Math.PI * (r ^ 3)
Console.WriteLine("Pole wynosi: ")
Console.WriteLine(p)
Console.WriteLine("Objętość wynosi: ")
Console.WriteLine(v)
Else
Console.Write("Błąd")
End If
Console.ReadKey()
End Sub
End Module
Module Module1
Sub Main()
Dim ilosc As Integer = 0
Dim suma As Decimal = 0
Dim srednia As Decimal
Dim liczba As Decimal
Do
Console.Write("Podaj liczbę =")
liczba = Console.ReadLine()
suma = suma + liczba
ilosc = ilosc + 1
Loop While (liczba <> 0)
srednia = suma / ilosc
Console.WriteLine("Ilosc wprowadzonych liczb = {0}, suma liczb = {1}, średnia liczb = {2}", CStr(ilosc), CStr(suma), CStr(srednia))
Console.ReadKey()
End Sub
End Module
Module Module1
Sub Main()
Dim a As Decimal
Dim b As Decimal
Dim wynik As Decimal
Dim dzialanie As String
Dim strwynik As String
Console.Write("Podaj 1 liczbę =")
a = Console.ReadLine()
Console.Write("Podaj 2 liczbę =")
b = Console.ReadLine()
Console.Write("Zdefiniujdziałanie( + ‐ * / ^ )")
dzialanie = Console.ReadLine()
Select Case dzialanie
Case "+"
wynik = a + b
strwynik = CStr(wynik)
Case "-"
wynik = a - b
strwynik = CStr(wynik)
Case "*"
wynik = a * b
strwynik = CStr(wynik)
Case "/"
wynik = a / b
strwynik = CStr(wynik)
Case "^"
wynik = a ^ b
strwynik = CStr(wynik)
Case "+-*/^"
wynik = a + b - a * b / a ^ b
strwynik = CStr(wynik)
Case "+-*/"
wynik = a + b - a * b / a
strwynik = CStr(wynik)
Case Else
Console.WriteLine("Niezdefiniowane działanie!")
dzialanie = "?"
strwynik = "?"
End Select
Console.WriteLine("{0}{1}{2}={3}", CStr(a), dzialanie, CStr(b), strwynik)
Console.ReadKey()
End Sub
End Module
Module Module1
Sub main()
Dim a, b, c, pole, obw, p As Double
Console.Write("Podaj długość boku a: ")
a = console.readline()
Console.Write("Podaj długość boku b: ")
b = console.readline()
Console.Write("Podaj długość boku c: ")
c = console.readline()
p = Math.Sqrt(a + b + c)
pole = p * (p - a) * (p - b) * (p - c)
If pole > 0 Then
pole = Math.Sqrt(pole)
obw = a + b + c
Console.WriteLine("Pole wynosi:")
Console.WriteLine(pole)
Console.WriteLine("Obwód wynosi:")
Console.WriteLine(obw)
Else : console.writeline("Trójkąt nie może powstać.")
End If
console.readkey()
End Sub
End Module
Darmowy hosting zapewnia PRV.PL