VBNet - Форум - плиз!!!плиз!!!а то мне крышка!!!

Вопрос: плиз!!!плиз!!!а то мне крышка!!! Добавлено: 04.06.08 19:57

Автор вопроса: andrey

Добрые люди помогите плиз!!! Курсовая в инсте...сдавать завтра...половину...с Access-разобрался!!!а вот в басике я просто как за штурвалом самолета!!! Т.е вообще не алле!!!!!Помогите плиз!!!

1. Дано трехзначное число. Составить алгоритм выделения его разрядов и проверки, все ли среди них четные.

2. Ввести: табельный номер, фамилия, выработка в 1-й день, выработка во 2-й день, выработка в 3-й день. Определить среднюю выработку. Напечатать справку в виде таблицы о средней выработке и дне с выработкой меньше
средней.

3. Дан массив из N чисел. Поменять местами элементы, равноудаленные от произвольно задаваемого К-го элемента

4. Исходные данные: выпуск продукции в процентах каждым из К предприятий закаждый из М месяцев. Исходные данные определяются путем обращения к датчику
случайных чисел. Задание:
а. Для любого месяца определить худшее предприятие.
б. Для любого предприятия определить среднее значение выпуска продукции.

5. А. Составить процедуру нахождения номера первого от начала значения элемента массива С(N), для которого справедливо неравенство: С (i)>В
(N -заданное число).
В. Используя процедуру найти элементы первой строки массива Х(6,6), начиная с элемента строки, величина которого >0.01 (первого от начала строки) и до конца строки.

Плиз очень надо правда...!!!а то в армию заберут через 15 дней((

Ответить

Ответы Всего ответов: 13

Номер ответа: 1 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #1	Добавлено: 04.06.08 20:44
	Option Explicit Private Sub Form_Load() Dim n As Integer Dim a As Integer, b As Integer, c As Integer n = Val(InputBox("Введите 3хзначное число:") a = n \ 100 b = (n \ 10) Mod 10 c = n Mod 10 MsgBox _ a & " - " & IIf(a Mod 2, "Нечетное", "Четное" _ & vbNewLine & b & " - " & IIf(b Mod 2, "Нечетное", "Четное" _ & vbNewLine & c & " - " & IIf(c Mod 2, "Нечетное", "Четное" End Sub Ответить

Номер ответа: 2 Автор ответа: andrey Вопросов: 1 Ответов: 1	Профиль \| \| #2	Добавлено: 04.06.08 20:48
	спасибо)))осталось4 задачи...без них никуды Ответить

Номер ответа: 3 Автор ответа: ника Вопросов: 1 Ответов: 111	Профиль \| \| #3	Добавлено: 05.06.08 16:31
	а то в армию заберут через 15 дней А что, прикольно!! В армии послужишь, девченка ждать будет долго-долго!! Мужиком станешь в конце концов!! Ответить

Номер ответа: 4 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #4	Добавлено: 05.06.08 16:41
	А что, прикольно!! В армии послужишь, девченка ждать будет долго-долго!! Мужиком станешь в конце концов!! Вы блондинко? Ответить

Номер ответа: 5 Автор ответа: Boconon ICQ: 216390557 Вопросов: 25 Ответов: 71	Web-сайт: microsoft.com Профиль \| \| #5	Добавлено: 05.06.08 18:44
	2 Задание Private Sub Form_Load() Dim no As Integer Dim fa As String Dim d1 as Integer dim d2 as Integer dim d3 as Integer no = Val(InputBox("Введите табельный номер:") fa = InputBox("Введите фамилию:" d1 = Val(InputBox("Выработка 1 день:") d2 = Val(InputBox("Выработка 2 день:") d3 = Val(InputBox("Выработка 3 день:") dim sr as integer sr = int((d1 + d2 + d3) / 3) dim m1 as boolean, m2 as boolean, m3 as boolean If d1 < sr then m1 = true End if If d2 < sr then m2 = true End if If d3 < sr then m3 = true End if form1.print "Табельный номер: " & no form1.print "Фамилия: " & fa form1.print "Средняя выработка: " & sr If m1 = true then form1.print "В 1 день выработка была меньшей, чем средняя и составляла " & d1 End if If m2 = true then form1.print "В 2 день выработка была меньшей, чем средняя и составляла " & d2 End if If m3 = true then form1.print "В 3 день выработка была меньшей, чем средняя и составляла " & d3 End if End Sub Под рукой нет компилятора, проверить не могу. Писал навскидку. Ответить

Номер ответа: 6 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #6	Добавлено: 05.06.08 19:47
	таг... вставляем "Защиту от автоматической реситрации": "Введите цвет волос" ) Ответить

Номер ответа: 7 Автор ответа: ника Вопросов: 1 Ответов: 111	Профиль \| \| #7	Добавлено: 06.06.08 11:45
	Вы блондинко? К вашему великому разочарованию брюнетко! Ответить

Номер ответа: 8 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #8	Добавлено: 06.06.08 13:31
	А фотку в доказательство? Ответить

Номер ответа: 9 Автор ответа: ника Вопросов: 1 Ответов: 111	Профиль \| \| #9	Добавлено: 06.06.08 13:45
	Ага.. щаZ все брошу и буду фигней занимаццо - фотки рассылать! )) Ответить

Номер ответа: 10 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #10	Добавлено: 06.06.08 19:34
	ну и не очень-то и хотелось Ответить

Номер ответа: 11 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #11	Добавлено: 07.06.08 18:47
	Я бы тоже хотел фотку увидеть в подтверждение. Ответить

Номер ответа: 12 Автор ответа: ника Вопросов: 1 Ответов: 111	Профиль \| \| #12	Добавлено: 07.06.08 20:27
	Steel Brand, ок, я обещала выполнить 3 твоих желания. Это второе.. куда слать? (осталось последнее!!!) Ответить

Номер ответа: 13 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #13	Добавлено: 07.06.08 20:54
	А какое было первое? Ответить

Страница: 1 |