|
Модераторы: mihanik |
|
recri |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 11.6.2017 Репутация: нет Всего: нет |
Помогите создать массив для программы.
Первоначальное условие: реализовать операцию деления целых чисел n и m с помощью сложения. Саму программу я сделала, а вот с массивом не получается, помогите пожалуйста....
Это сообщение отредактировал(а) recri - 12.6.2017, 09:41 |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 25 Всего: 453 |
Приведённый код не требует использования массива.
Массив "создаётся" точно так же, как и скалярная переменная - оператором Dim. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
recri |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 11.6.2017 Репутация: нет Всего: нет |
У кого не спрошу все так отвечают, но на экзамен необходима эта программа с массивом...А точнее создать массив для значения m. У меня это это не получается.... |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 25 Всего: 453 |
Ну замените везде m на m(1), делов-то... и будет это массив в Dim, и первый (и единственный, если Option Base 1) его элемент в остальных местах.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Staruha |
|
|||
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
собственно код написан .Еще что то типа в цикле do добавить после m=m+n
myarray=myarray+m плюс разделитель Это сообщение отредактировал(а) Staruha - 3.8.2017, 15:41 -------------------- Возмездие настигнет |
|||
|
||||
Staruha |
|
|||
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
ну вот дома накидала.Чем не массив
Private Sub CommandButton2_Click() Dim m, n, i As Single Dim myarray As String m = 100 n = 5 n = -n i = 0 myarray = m Do While m > 0 m = m + n myarray = myarray & "," & CStr(m) i = i + 1 Loop 'TextBox3.Text = i MsgBox myarray End Sub -------------------- Возмездие настигнет |
|||
|
||||
Правила форума "Программирование, связанное с MS Office" | |
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |