kokosya
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-сумма цифр в числе...
помогите с созданием массива по этим суммам!!!оч нужно |
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
