Подскажите что тут не так?

@dimas88 · Регистрация: 05.10.2010

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
Dim A(1 To 7) As Single
For I = 1 To 7
A(I) = Val(InputBox("введите число", "введение массива")(введено 2 4 -3 -7 5 -6 -12))
Next I
B = A(1)
For I = 1 To 7
If A(I) > B Then B = A(I)
Print B
Next
End Sub

Добавлено через 7 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
picgraf.Scale (-10, 10)-(10, -10)
picgraf.Line (-10, 0)-(10, 0)
For I = -9 To 9
picgraf.PSet (I, 0), vbWhite
picgraf.Print I
Next I
picgraf.Line (0, 10)-(0, 10)
For I = -9 To 9
picgraf.PSet (0, I), vbWhite
picgraf.Print I
Next I
End Sub

и тут)

может ты VBA с VB6 попутал?

@gaw · 06.10.2010, 09:33

в первом коде скорее всего ищется максимальный эл, тогда
поменяй местами строки 9 и 10 (в 7 можна начинать с 2)
во втором коде строка 8 picgraf.Line (0, -10)-(0, 10)

@dimas88 · 06.10.2010, 09:57 **[ТС]**

может ты VBA с VB6 попутал?[/QUOTE]
Сори - правда перепутал. Уже перенёс - а как тему тут удалить?

Добавлено через 3 минуты

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

в первом коде скорее всего ищется максимальный эл, тогда
поменяй местами строки 9 и 10 (в 7 можна начинать с 2)
во втором коде строка 8 picgraf.Line (0, -10)-(0, 10)

gaw. в первом там в 4 строке че-то не то. А во втором - вторую желтым выделяет.

@Inadequate · 06.10.2010, 10:03

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

Сори - правда перепутал. Уже перенёс - а как тему тут удалить?

Тему я перенес, а вот дублировать, создавая новые не нужно.

@dimas88 · 06.10.2010, 10:04 **[ТС]**

Inadequate, ok

@gaw · 06.10.2010, 13:36

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Command1_Click()
Dim A(1 To 7) As Single
For I = 1 To 7
A(I) = Val(InputBox("введите число", "введение массива")) '(введено 2 4 -3 -7 5 -6 -12))
Next I
Me.Cls
B = A(1)
For I = 1 To 7
If A(I) > B Then B = A(I)
Next
Print "max = " & B
End Sub
Private Sub Command2_Click()
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0)
For I = -9 To 9
Picture1.PSet (I, 0), vbWhite
Picture1.Print I
Next I
Picture1.Line (0, -10)-(0, 10)
For I = -9 To 9
Picture1.PSet (0, I), vbWhite
Picture1.Print I
Next I
End Sub

@dimas88 · 07.10.2010, 09:20 **[ТС]**

Вторая опять не идёт( Вторую строчку выделяет. Пишет что необходим обьект. Там система координат должна получиться.

@Alex77755 · 07.10.2010, 12:21

picgraf = Picture1

@dimas88 · 07.10.2010, 19:52 **[ТС]**

Да это я понял - только ошибка от этого не пропадает

@gaw · 07.10.2010, 21:22

Picture1 на форму выложил ?

@dimas88 · 08.10.2010, 10:12 **[ТС]**

Всё - понял, работает. Спасибо

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	06.10.2010, 09:33
	в первом коде скорее всего ищется максимальный эл, тогда поменяй местами строки 9 и 10 (в 7 можна начинать с 2) во втором коде строка 8 picgraf.Line (0, -10)-(0, 10) 1

@dimas88 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 6
	06.10.2010, 10:04 [ТС]
	Inadequate, ok 0

@dimas88 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 6
	07.10.2010, 09:20 [ТС]
	Вторая опять не идёт( Вторую строчку выделяет. Пишет что необходим обьект. Там система координат должна получиться. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	07.10.2010, 12:21
	picgraf = Picture1 1

@dimas88 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 6
	07.10.2010, 19:52 [ТС]
	Да это я понял - только ошибка от этого не пропадает 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	07.10.2010, 21:22
	Picture1 на форму выложил ? 1

@dimas88 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 6
	08.10.2010, 10:12 [ТС]
	Всё - понял, работает. Спасибо 0

Опции темы