Sub ZapisTabulka()
    ActiveCell = "Ahoj"
    Cells(1, 3) = ActiveCell
    For i = 3 To i + 7
        Cells(i, 1) = "Ahoj jak se mas"

    Next
End Sub

Sub ZapisTabulka2()
    For i = 1 To 10
    For j = 1 To 10
    Cells(i, j) = 4
    Next
    Next
End Sub
Sub program1()

    MsgBox ("ahoj")

End Sub

Sub program2()
    For i = 1 To 10

    Next

End Sub







Sub program3()
a = 5
    For i = 1 To 10
    MsgBox (" " & i & " x " & a & " = " & a * i)
    Next

End Sub



Sub program4()
    a = 10
    MsgBox (" " & " 10 - 5 " & " = " & 10 - 5)
End Sub



Sub program5()
    a = 20
    For i = 1 To 5
    MsgBox (" " & i & " x " & a & " = " & a * i)

    Next

End Sub

Sub program6()
    a = 20
    For i = 1 To 5
    MsgBox (" " & a & " : " & i & " = " & a / i)
    Next
End Sub

Sub program7()
    a = 20
    For i = 1 To 5
    MsgBox (" " & a & " + " & i & " = " & a + i)

    Next

End Sub




Sub program8()
    Dim a As Integer
    a = InputBox("Zadej celé číslo")
    For i = 1 To 5
    MsgBox (" " & a & " x " & i & " = " & i * a)
    Next

End Sub


Sub program9()
    Dim a As Integer
    a = InputBox("Zadej celé číslo od 1 do 20")
    If a < 21 Then
    For i = 1 To 5
    MsgBox (" " & a & " x " & i & " = " & i * a)
    Next
    Else
    MsgBox ("zadali jste vetsi cislo nez 20")
    End If
    program1


End Sub
¨



Sub aaa()

x = InputBox("prvni cislo")
y = InputBox("druhe cislo")

If x = 15 And y = 10 Then MsgBox ("cislo x je " & x & (" a cislo y je ") & y)


End Sub

Sub bbb()

x = InputBox("prvni cislo")
y = InputBox("druhe cislo")

If x = 23 Or y = 5 Then MsgBox ("cislo x je " & x & (" a cislo y je ") & y)

End Sub

Sub ccc()

y = False

If y = IsFalse Then MsgBox ("y je " & y)

End Sub

Sub ddd()
x = InputBox("zadej cislo")
y = 2

If x Mod y / 1 Then MsgBox ("cislo x zbyde jen " & y)

End Sub

Sub eee()

x = InputBox("napis cislo 23")

If Not x = 23 Then MsgBox ("cislo x neni " & x)
If x = 23 Then MsgBox ("cislo x je 23")


End Sub


using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace OnlineApp
{
    class Program
    {
         static void Main(string[] args) {

for (int i=0; i < 3; i++)
{
    Console.WriteLine("Knock");
}
Console.WriteLine("Penny!");
Console.ReadKey();
        }
    }
}