Как сделать сайт:
  HTML
  JavaScript
  PHP
  CMS
Microsoft Office:
  Word
  Excel
  VBA
Просто о сложном
Список форумов on-line-teaching.com on-line-teaching.com
Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Помогите доделать лабу по инфе!!!ОЧ срочно!!!(массивы)

 
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы
Предыдущая тема :: Следующая тема  
Автор Сообщение
kokosya
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 11.05.2008
Сообщения: 1

СообщениеДобавлено: Вс Май 11, 2008 2:45 pm    Заголовок сообщения: Помогите доделать лабу по инфе!!!ОЧ срочно!!!(массивы) Ответить с цитатой

ПРИВЕТ!
помогите плиз мне...
у меня задание...массив А(15) заполнить целыми числами от 100 до 100 000

в массив Б поместить сумму цифр каждого числа. вывести оба массива в диалоговых окнах, отдельно вывести значение максимального элемента(по сумме цифр)

значит я ввела в иксэль 15 значений от 100 до 100 000...выделила сначала 1 затем 2 , 3, 4, 5 цифры...нашла сумму....проблема в создании второго массива!!!я не умею делать два сразу!
как в массив Б засунуть суммы полученные в 1 массиве и найти максимальную!

Public Sub first()
Dim first(1 To 15) As Long
For i = 1 To 15
first(i) = Cells(i, 1)
MsgBox ("massivA" & first(i))
Next i
For i = 1 To 15
If first(i) < 1000 And first(i) > 100 Then
g = Int(first(i) / 100)
ElseIf first(i) < 10000 And first(i) > 999 Then
g = Int(first(i) / 1000)
ElseIf first(i) < 100000 And first(i) > 9999 Then
g = Int(first(i) / 10000)
End If

If first(i) < 1000 And first(i) > 100 Then
k = Int(first(i) / 10) - Int(first(i) / 100) * 10
ElseIf first(i) < 10000 And first(i) > 999 Then
k = Int(first(i) / 100) - Int(first(i) / 1000) * 10
ElseIf first(i) < 100000 And first(i) > 9999 Then
k = Int(first(i) / 1000) - Int(first(i) / 10000) * 10
End If

If first(i) < 1000 And first(i) > 100 Then
M = Int(first(i) / 1) - Int(first(i) / 10) * 10
ElseIf first(i) < 10000 And first(i) > 999 Then
M = Int(first(i) / 10) - Int(first(i) / 100) * 10
ElseIf first(i) < 100000 And first(i) > 9999 Then
M = Int(first(i) / 100) - Int(first(i) / 1000) * 10
End If

If first(i) < 1000 And first(i) > 100 Then
s = 0
ElseIf first(i) < 10000 And first(i) > 999 Then
s = Int(first(i) / 1) - Int(first(i) / 10) * 10
ElseIf first(i) < 100000 And first(i) > 9999 Then
s = Int(first(i) / 10) - Int(first(i) / 100) * 10
End If

If first(i) < 1000 And first(i) > 100 Then
Z = 0
ElseIf first(i) < 10000 And first(i) > 999 Then
Z = 0
ElseIf first(i) < 100000 And first(i) > 9999 Then
Z = Int(first(i) / 1) - Int(first(i) / 10) * 10
End If

Sum = g + k + M + s + Z
Next i




End Sub

g,k,m,s,z-1я,2я,3я,4я,5я цифры....sum-сумма цифр в числе...

помогите с созданием массива по этим суммам!!!оч нужно
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Русская поддержка phpBB