|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.01.2008, 17:17 | #1 |
Регистрация: 24.12.2007
Сообщений: 8
|
как вывести результат расчета????? в VB
условие задачи звучало так: В группе студентов определить старшего по возрасту, если есть данные о возрасте каждого студента. вот мой вариант, но он не работает не выдает ответ. Может кто подскажет.
Sub sss() Dim N, I, K, M As Integer Dim B(3) As Integer Dim A(3) As String N = InputBox("kol") For I = 1 To N A(I) = InputBox("fio") B(I) = InputBox("voz") Next I M = B(I) K = 1 For I = 2 To N If B(I) > M Then M = B(I) K = I End If Next I Debug.Print "M" End Sub |
17.01.2008, 17:45 | #2 |
Регистрация: 24.12.2007
Сообщений: 8
|
всех благодарю сам дотяпал
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как вывести результат работы php скрипта | eldar | Работа с сетью в Delphi | 21 | 08.08.2008 14:16 |
Разработать в среде Borland Delphi приложение для расчета стоимости покупок. | patron | Помощь студентам | 3 | 30.03.2008 15:12 |
автоматическая вставка результата поиска в прайсе в файл расчета | ATTA | Microsoft Office Excel | 23 | 29.01.2008 14:07 |
Множества. Не получается вывести результат | RECREATOR | Общие вопросы Delphi | 3 | 24.12.2007 23:31 |
Нужна программа расчета расстояний | Евгений Мариуполь | Фриланс | 2 | 21.01.2007 21:23 |