Напишите код к задаче!!!

@Kapriznaia · Регистрация: 15.05.2011

Студворк — интернет-сервис помощи студентам

Вариан№6
Задача 1: Нарисуйте при нажатии клавиши “л” – линию, а при нажатии “о” – окружность.
Задача 2: Дана последовательность, заданная формулой: An =An-1 + An-2.
Вычислить первый член последовательности, превышающий наперёд заданное
число В.
6.1. Открыть новый проект для решения задачи.
6.2. Создать интерфейс.
6.3. Написать программу на языке Visual Basic для исполнения алгоритма задачи.
6.4. Запустить программу на выполнение в среде программирования и выполнить отладку программы.
6.5. Сохранить проект.

@gitarillo · 16.05.2011, 17:54

Сообщение от Kapriznaia

Задача 1: Нарисуйте при нажатии клавиши “л” – линию, а при нажатии “о” – окружность.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Me.Cls
If KeyCode = 75 Then
 Me.Line (10, 10)-(1000, 1000)
 ElseIf KeyCode = 74 Then
  Me.Circle (1000, 1000), 1000
 End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Сообщение от Kapriznaia

Задача 2: Дана последовательность, заданная формулой: An =An-1 + An-2.
Вычислить первый член последовательности, превышающий наперёд заданное
число В.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
Dim a() As Integer
Dim m, temp
m = 10
b = InputBox("Ввод числа b")
Print "Последовательность"
ReDim a(m)
Print
For i = 1 To m
  If i > 2 Then
    a(i) = a(i - 1) + a(i - 2)
    Else
    a(i) = InputBox("Введите элемент " & i)
  End If
  Print a(i);
 Next
Print
For i = 1 To m
  If a(i) > b Then temp = a(i): Exit For
 Next
 Print "Элемент, больший b это " & temp
End Sub

@Kapriznaia · 16.05.2011, 20:06 **[ТС]**

[QUOTE=Kapriznaia;1653017]Вариан№6
Задача 1: Нарисуйте при нажатии клавиши “л” – линию, а при нажатии “о” – окружность.
Задача 2: Дана последовательность, заданная формулой: An =An-1 + An-2.
Вычислить первый член последовательности, превышающий наперёд заданное
число В.
6.1. Открыть новый проект для решения задачи.
6.2. Создать интерфейс.
6.3. Написать программу на языке Visual Basic для исполнения алгоритма задачи.
6.4. Запустить программу на выполнение в среде программирования и выполнить отладку программы.
6.5. Сохранить проект.[/QUOTE

А можно просмотреть полностью программы?

@SuPeR XaKer · 16.05.2011, 20:24

А можно просмотреть полностью программы?

Ооо О_о

@Kapriznaia · 18.05.2011, 19:54 **[ТС]**

Программа не идет с этим кодом...не пойму почему...

@SuPeR XaKer · 18.05.2011, 20:42

с каким кодом?В первом коде на форме нет ничего.Просто скопируйте в окно кода его,во втором коде на форму кнопку кинте.

@gaw · 18.05.2011, 21:02

Сообщение от SuPeR XaKer

А можно просмотреть полностью программы?

это наверное надо сохранить проект в блокноте

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Kapriznaia 0 / 0 / 0 Регистрация: 15.05.2011 Сообщений: 3

	Напишите код к задаче!!! 15.05.2011, 19:46. Показов 1024. Ответов 6 Метки нет (Все метки) Вариан№6 Задача 1: Нарисуйте при нажатии клавиши “л” – линию, а при нажатии “о” – окружность. Задача 2: Дана последовательность, заданная формулой: An =An-1 + An-2. Вычислить первый член последовательности, превышающий наперёд заданное число В. 6.1. Открыть новый проект для решения задачи. 6.2. Создать интерфейс. 6.3. Написать программу на языке Visual Basic для исполнения алгоритма задачи. 6.4. Запустить программу на выполнение в среде программирования и выполнить отладку программы. 6.5. Сохранить проект. 0

@Kapriznaia 0 / 0 / 0 Регистрация: 15.05.2011 Сообщений: 3
	16.05.2011, 20:06 [ТС]
	[QUOTE=Kapriznaia;1653017]Вариан№6 Задача 1: Нарисуйте при нажатии клавиши “л” – линию, а при нажатии “о” – окружность. Задача 2: Дана последовательность, заданная формулой: An =An-1 + An-2. Вычислить первый член последовательности, превышающий наперёд заданное число В. 6.1. Открыть новый проект для решения задачи. 6.2. Создать интерфейс. 6.3. Написать программу на языке Visual Basic для исполнения алгоритма задачи. 6.4. Запустить программу на выполнение в среде программирования и выполнить отладку программы. 6.5. Сохранить проект.[/QUOTE А можно просмотреть полностью программы? 0

@Kapriznaia 0 / 0 / 0 Регистрация: 15.05.2011 Сообщений: 3
	18.05.2011, 19:54 [ТС]
	Программа не идет с этим кодом...не пойму почему... 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	18.05.2011, 20:42
	с каким кодом?В первом коде на форме нет ничего.Просто скопируйте в окно кода его,во втором коде на форму кнопку кинте. 0