Категория
Информатика
Тип
реферат
Страницы
3 стр.
Дата
31.07.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
20548.zip — 5.88 kb
  • massivy_20548_1.rtf — 34.51 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

и она должна запросить количество цветов, которые она должна смешать и какие (Вы только сильно не радуйтесь следующий пример ничего мешать не будет, он только запросит цвета ;-)):
Sub Main()
Dim MyArray() As Stringобъявляем массив, содержащий цвета
Dim x As Integer объявляем переменную, содержащую кол-во цветов
Dim y As Integer объявляем переменную-счётчик
Dim Msg As String объявляем переменную, содержащую все названия цветов
x = InputBox("Введите число цветов") получаем количество цветов
перераспределяем в массиве столько ячеек, сколько цветов мы получили
ReDim MyArray(x)
запускаем цикл, который должен повториться столько раз сколько всего
цветов
For y = 1 To x
присваеваем каждой ячейке цвет
MyArray(y) = InputBox("Ведите цвет номер " & y)
Next
запускаем цикл, который собирает все цвета в одну переменную
For y = 1 To x
теперь мы вытаскиваем все значения
Msg = Msg + MyArray(y) + Chr(13) + Chr(10)
Next
MsgBox Msg выводим все цвета, которые ввели
End Sub
Здесь вроде бы всё просто! Теперь двумерный массив. Но не пугайтесь, здесь
не менее просто, только с непривычки можно чуть-чуть запутаться :-).
Декларируются они так:
Dim ABC(1, 8) As String
Это получается этакая таблица: две ячейки на десять. Примерно так:
0 1 2 3 4 5 6 7 8
0 красный оранжевый жёлтый зелёный голубой синий фиолетовый бирюзовый пурпурный
1 коричневый серый чёрный белый розовый лиловый вишнёвый прозрачный матовый
И всё это присвоить таким образом:
ABC(0, 0) = "красный"
ABC(0, 1) = "оранжевый"
ABC(0, 2) = "жёлтый"
и т.д. Ну, очень напоминает систему




Ваше мнение



CAPTCHA