Question

Как написать программу на VB, чтобы нарисовать "змейку"?

Как написать программу на VB или хотя бы алгоритм, чтобы нарисовать "змейку" с ЛЮБЫМИ задаваемыми параметрами (а не только с указанными на рисунке): амплитуда и количество зигзагов?

Answer 1

Задача очень простая. И Бейсик язык простой, на нём очень легко состряпать примитивную программку даже если уроки информатики у тебя были ...дцать лет тому назад.

Естественно, настоящие программисты посмеются над ней и её недалёким автором, но... работает она.

Это не VB, это QuickBasic для DOS, но Бейсик - он и в Африке...

Змейка наша циклична (вправо, влево, и снова, по числу зигзагов), потому используем циклы.

Для формирования отступа используем функцию SPC(n), печатающую заданное число пробелов.

Писал программулинку с отступами, для читаемости, но наш Большой Вопрос их убирает. Разберетесь.

CLS

INPUT "Число зигзагов:", nz

INPUT "Амплитуда:", a

FOR i = 1 TO nz

FOR j = 1 TO a

PRINT SPC(j - 1); "@"

NEXT j

FOR k = a - 1 TO 2 STEP -1

PRINT SPC(k - 1); "@"

NEXT k

NEXT i

PRINT "@"

Answer 2

Программа не моя. Я нашла среди своих записей. Текст "обучалки" неизвестного автора с подробными объяснениями. Надеюсь они вам помогут. Я пробовала модифицировать из консолди DOS под Виндовс, но мне это надоело. Вижел бэйсик - это не моя тема. Но если вам интересно, надеюсь разберётесь.