Заполнение массива (InputBox)

@j245 · Регистрация: 17.11.2010

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

написал программу по заполнению массива с помощью Array, подсчета суммы нечетных элементов, подсчета суммы четных элементов, произведения нечетных элементов, поисками минимума/максимума.
надо сделать заполнение массива через InputBox, помогите, пожалуйста

вот код

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim A(6) As Variant
Private Sub Command1_Click()
Dim S As Long, I As Integer, A As Variant, D As Long, E As Long, min As Integer, max As Integer
S = 0
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
List1.AddItem A(I)
S = S + A(I)
Next I
Text2 = S
D = 0
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If A(I) Mod 2 = 0 Then
D = D + A(I)
End If
Next I
Text3 = D
E = 1
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If A(I) Mod 2 = 1 Then
E = E * A(I)
End If
Next I
Text4 = E
min = A(1)
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If min > A(I) Then min = A(I)
Next I
Text5 = min
max = A(1)
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If max < A(I) Then max = A(I)
Next I
Text6 = max
End Sub

@_Лёша_ · 23.05.2011, 10:47

Я не совсем вьехал в суть кода, не хочу вдумываться, но нужно делать так:

Visual Basic
1
2
3
For i as integer = 0 to 6
A(i) = Val(inputbox("введите число"))
next

@j245 · 23.05.2011, 21:14 **[ТС]**

Так а больше ничего не менять чтоли?

Изменил эти строки, вылазит запрос на ввод числа, ввожу, вылазит Run-time error '13'. Type mismatch.

Добавлено через 9 часов 46 минут
лююююди, помогите, пожалуйста )

@_Лёша_ · 23.05.2011, 22:19

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

Так а больше ничего не менять чтоли?

Изменил эти строки, вылазит запрос на ввод числа, ввожу, вылазит Run-time error '13'. Type mismatch.

Добавлено через 9 часов 46 минут
лююююди, помогите, пожалуйста )

я не обратил внимания что это qbasic. Я его не знаю.
Попробуй в местах заполнения массива вставить

Visual Basic
1
2
3
FOR I = 0 TO 6
A(i) = Val(inputbox("введите число"))
next

Но это пример заполнения всего массива,всех элементов по порядку.

@j245 · 24.05.2011, 03:37 **[ТС]**

Эм, это Visual Basic )

@_Лёша_ · 24.05.2011, 09:58

Ткни меня носом в строку (строки) где у тебя происходит заполнение массива (как я понимаю массив А(6))

@j245 · 24.05.2011, 14:41 **[ТС]**

A = Array(1, 4, 12, 23, 34, 3, 23)

с помощию ф-ии Array нужно было изначально )

Новые блоги и статьи Все статьи Все блоги /
Установка 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 и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@j245 0 / 0 / 1 Регистрация: 17.11.2010 Сообщений: 36
	23.05.2011, 21:14 [ТС]
	Так а больше ничего не менять чтоли? Изменил эти строки, вылазит запрос на ввод числа, ввожу, вылазит Run-time error '13'. Type mismatch. Добавлено через 9 часов 46 минут лююююди, помогите, пожалуйста ) 0

@j245 0 / 0 / 1 Регистрация: 17.11.2010 Сообщений: 36
	24.05.2011, 03:37 [ТС]
	Эм, это Visual Basic ) 0

@_Лёша_ 388 / 377 / 22 Регистрация: 08.02.2011 Сообщений: 1,078
	24.05.2011, 09:58
	Ткни меня носом в строку (строки) где у тебя происходит заполнение массива (как я понимаю массив А(6)) 0

@j245 0 / 0 / 1 Регистрация: 17.11.2010 Сообщений: 36
	24.05.2011, 14:41 [ТС]
	A = Array(1, 4, 12, 23, 34, 3, 23) с помощию ф-ии Array нужно было изначально ) 0