Оператор сравнения

@Dzhamal · Регистрация: 05.12.2014

Студворк — интернет-сервис помощи студентам

есть 6 окон:
1 окно имя студента 2 окно бал его
3 окно имя студента 4 окно бал его
5 окно имя студента 6 окно бал его
как сделать вывод максимальный бал и имя этого человека ?
мучаюсь уже третие сутки до 3х ночи, уже готов бросить Visual Basic

SoftIce · 29.01.2016, 03:28

Dzhamal, VBA или VB6 ?

SoftIce · 29.01.2016, 03:51

Для VBA Excel (для VB6 будет еще проще)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    Dim n As Integer
    n = MaxNum(2, MaxNum(4, 6))
    MsgBox "Максимальный балл -  " & VR(n) & vbCrLf & "Cтудент - " & Me.Controls("TextBox" & (n - 1))
End Sub
 
Private Function MaxNum(ByVal a As Integer, ByVal b As Integer) As Integer
    If VR(a) < VR(b) Then MaxNum = b Else MaxNum = a
End Function
 
Private Function VR(ByVal n As Integer) As Double
     VR = Val(Replace(Me.Controls("TextBox" & n), ",", "."))
End Function

@Dzhamal · 29.01.2016, 09:45 **[ТС]**

для VB6

Добавлено через 18 секунд
мне для VB6 надо

Shersh · 29.01.2016, 09:53

Сообщение от Dzhamal

мне для VB6 надо

Ничего менять в коде не нужно.
Главное - текстбоксы не должны быть в массиве
и контролам дать соответствующие имена (CommandButton1 для кнопки и TextBox1 - TextBox6 для текстбоксов)

@fever brain · 29.01.2016, 10:27

Сообщение от Shersh

и контролам дать соответствующие имена

Зачем столько распинаться ? )), при забросе кнопки на форму имя автоматически стоит
уже таким каким вы его просите назвать, а если юзер не может найти и поменять это имя то это уже в раздел для начинающих .. ну там где совсем всё безнадёжно и нужно изучать букварь ))

@Dzhamal · 30.01.2016, 01:58 **[ТС]**

некогда я здесь четкого ответа не получал, вечно каким нибудь дерьмом ответят и все, дальше просто гадай сам.

@Pro_grammer · 30.01.2016, 07:48

Сообщение от Dzhamal

некогда я здесь четкого ответа не получал

Что значит никогда? У вас всего 5 сообщений, из них 1 вопрос.

Сообщение от Dzhamal

мучаюсь уже третие сутки до 3х ночи

А вот вы бы показали свой уровень владения VB6, чего вы там намучили, тогда и ответы были бы адекватными.
Судя по вашему знанию php, вы не плохо программируете, а тут задача просто детская!

@fever brain · 01.02.2016, 18:47

Alex77755 может скажешь зачем ты мне минус поставил ? .. или мне самому сказать ?

Добавлено через 1 минуту
Я буду об этом напоминать в каждой теме

Добавлено через 8 минут
Мне без разницы, я и так не хочу здесь постить, но уж скажите что ошиблись ..

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Dzhamal 0 / 0 / 2 Регистрация: 05.12.2014 Сообщений: 5

	Оператор сравнения 29.01.2016, 02:53. Показов 2421. Ответов 8 Метки нет (Все метки) есть 6 окон: 1 окно имя студента 2 окно бал его 3 окно имя студента 4 окно бал его 5 окно имя студента 6 окно бал его как сделать вывод максимальный бал и имя этого человека ? мучаюсь уже третие сутки до 3х ночи, уже готов бросить Visual Basic 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	29.01.2016, 03:28
	Dzhamal, VBA или VB6 ? 0

@Dzhamal 0 / 0 / 2 Регистрация: 05.12.2014 Сообщений: 5
	29.01.2016, 09:45 [ТС]
	для VB6 Добавлено через 18 секунд мне для VB6 надо 0

@Dzhamal 0 / 0 / 2 Регистрация: 05.12.2014 Сообщений: 5
	30.01.2016, 01:58 [ТС]
	некогда я здесь четкого ответа не получал, вечно каким нибудь дерьмом ответят и все, дальше просто гадай сам. 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	01.02.2016, 18:47
	Alex77755 может скажешь зачем ты мне минус поставил ? .. или мне самому сказать ? Добавлено через 1 минуту Я буду об этом напоминать в каждой теме Добавлено через 8 минут Мне без разницы, я и так не хочу здесь постить, но уж скажите что ошиблись .. 0

Оператор сравнения

Решение