Příspěvky

1

Vývoj / Re:Programátorský úkol

« kdy: 12. 09. 2017, 14:37:56 »

Začal jsem se učit programovat ve Visual Basicu, s tím že jsem nikdy předtím neprogramoval. A mám asi za sebou 6 hodin učení čistého času.

Skusil jsem si jednoduchou variantu, kdy člověk zadá A a B a tím určí velikost "číselného" čtverce/obdélníku s posloupností +1 po řádcích. No a ono to vyhodí toho "číselného hada". Tak se chci pochlubit - trvalo mi to asi 2 hodiny. 

Kód: [Vybrat]

Sub main()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim z As Integer
Dim x As String
Dim y As Integer
Dim i As Integer

a = InputBox("Zadej A")
b = InputBox("Zadej B")

c = a
d = b

z = 0

Do Until c <= 2

    c = a - i
    d = b - y

    Do Until c < 1
        z = z + 1
        x = x + Str(z) + " "
        c = c - 1
    Loop
   
    c = a - i
   
    Do Until d < 2
        z = z + a
        x = x + Str(z) + " "
        d = d - 1
    Loop
   
    d = b - y
   
    Do Until c < 2
        z = z - 1
        x = x + Str(z) + " "
        c = c - 1
    Loop
   
    c = a - i
   
    Do Until d < 3
        z = z - a
        x = x + Str(z) + " "
        d = d - 1
    Loop
   
    i = i + 2
    y = y + 2
   
Loop
   
MsgBox x

End Sub