[Pliomera]

Некорректно »

Согласен. Если рассматривать всю числовую ось, то переменную Max требуется инициализировать минимально возможным отрицательным числом типа Double, т.е. -1,79769313486231570E+308

А как отсюда выйти? »

Ctrl-Break.
Ну или например писать расширенный синтаксис оператора msgbox вида vbYesNo с вводной фразой и обработкой нажатия "No".

[Coutty]

Почему Msgbox Max внутри цикла? Так он будет каждое новое число выводить, если оно больше предыдущих, а надо - один раз в конце.

[shlakk]

люди добрые!
у друга экзамен - нужна неотложная помощь!
описать на VBA проект 5-бальной оценки знаний с выбором из 5 вариантов ответов

[Delirium]

shlakk, мы добрые, но не альтруисты. Дяди-кодописцы сидят на freelance.ru. Помочь можем только в исправлении ошибок.
А если друг дошел до экзамена и не знает простейшего - увы.

[shlakk]

эх помощнички. сколько ж тут пафоса
лан спасибо

[lxa85]

shlakk, не, ну посуди сам, человек идет на экзамен, просит помощи.
Ладно, поможем, расскажем, не вопрос. НО!

описать на VBA проект 5-бальной оценки знаний с выбором из 5 вариантов ответов »

Из этого не понятно вообще ничего!
Как помогать то? Морально?
Если хочется помощи, то надо ее соответственным образом попросить. И это не пафос, не понты, это нормальный(!) рабочий процесс.
Спроси толком что надо и получи толковый ответ. (А желать с неба луну - это все могут)

[KnRSU]

Triz, читайте решенные ветки форума сэр
а вот тут один из вариантов содержит полностью все что нужно, т.к. число элементов массива переменное и задается с помощью генератора «случайных» чисел

[Karlord]

Triz, я бы написал её так:

Sub MAXIMUM()
Dim A(1 To 10, 1 To 10) As Integer, max As Integer, n As Integer, m As Integer, i As Integer, j As Integer
n = 10
m = 10
For i = 1 To n
For j = 1 To m
A(i, j) = Cells(i, j)
Next j
Next i

max = A(1, 1)
For i = 1 To n
For j = 1 To m
If A(i, j) > max Then
max = A(i, j)
End If
Next j
Next i
Cells(18, 1) = "МАКСИМУМ="
Cells(18, 2) = max
End Sub

В зависимости сколько там будет чисел, можно изменить массив.

[Antonio46rus]

Пожалуйста помогите решить, ни кто из группы ни может решить!

14. Заданы стороны квадрата, правильного треугольника и ра-диус круга. Вывести названия тел в порядке возрастания площадей, периметров и их отношения

[lxa85]

Antonio46rus, Что у вас за группа, двоешников?
Задача для 7ого класса, или когда там площади треугольников с квадратами проходят?
Чему равны площади соотв. фигур? Быстро, без подсказки зала!
Чему равны их периметры? Давайте,давайте, вспоминаем. Площадь равностороннего треугольника, чему равна? Сумме. Сумме чего? Длин сторон. Сторон сколько? 3 Стороны какие? Равные. Значит ответ какой?
Все дальше нянчиться лень, идите учить мат.часть.