|
Помощь другу!)
|
|
| Mixon | Дата: Thursday, 11.03.2010, 17:44 | Сообщение # 61 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
скок хочешь значит столько и напиши
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| Stacke | Дата: Thursday, 11.03.2010, 19:04 | Сообщение # 62 |
| |
| |
| Зам. капитана и админ сервера |
| |
| Группа: Заместитель капитана |
| Сообщений: 447 |
|
« 56 » |
| |
| Статус: Offline |
| |
|
1 - Задача № 14.
Сделал тупа по формуле которая там написана. Других идей у меня нет. Code
Dim i As Integer
Dim n As Single
Private Sub Form_Load()
n = 0
For i = 1 To 99
n = n + (1 / (i * (i + 1)))
Next i
MsgBox n
End Sub
2 - Задача в Exel
Сделать задачу используя функции самого екселя или вб ?
|
| |
|
|
| Mixon | Дата: Thursday, 11.03.2010, 20:01 | Сообщение # 63 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
я не помню, вроде там мы делали какие то мохинации на листе в экселе, а потом чет в бэйзике писали
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| Stacke | Дата: Friday, 12.03.2010, 12:13 | Сообщение # 64 |
| |
| |
| Зам. капитана и админ сервера |
| |
| Группа: Заместитель капитана |
| Сообщений: 447 |
|
« 56 » |
| |
| Статус: Offline |
| |
|
Чет с экселем у мя не получается. У мя стоит 2007, а там вб, я чет не нашел.
Ставить более ранний офис, я не буду. Мне чисто по вб задачки ток подходят 
|
| |
|
|
| Mixon | Дата: Friday, 12.03.2010, 19:04 | Сообщение # 65 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
в 2007 вб на вкладке "разработчик", если ее у тебя нет, то кнопка оффис, потом дополнительно вроде и там где то поставишь галку на "показывать вкладку "разработчик" на панели"
как то так 
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| Stacke | Дата: Sunday, 14.03.2010, 13:10 | Сообщение # 66 |
| |
| |
| Зам. капитана и админ сервера |
| |
| Группа: Заместитель капитана |
| Сообщений: 447 |
|
« 56 » |
| |
| Статус: Offline |
| |
|
Держи.
Вроде пашет правильно. Ток писал в 2007 офисе, т.ч. более ранние версии могут и не открыть.
|
| |
|
|
| Mixon | Дата: Thursday, 18.03.2010, 19:50 | Сообщение # 67 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
Quote (Stacke) Прикрепления: 5704976.rar(13Kb)
не получается открыть Володь 
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| M@gnet | Дата: Thursday, 18.03.2010, 20:11 | Сообщение # 68 |
| |
 |
| Глава всего флуда =) |
| |
| Группа: Друзья команды |
| Сообщений: 3061 |
|
« 160 » |
| |
| Статус: Offline |
| |
|
все норм 
|
| |
|
|
| Stacke | Дата: Thursday, 18.03.2010, 21:05 | Сообщение # 69 |
| |
| |
| Зам. капитана и админ сервера |
| |
| Группа: Заместитель капитана |
| Сообщений: 447 |
|
« 56 » |
| |
| Статус: Offline |
| |
|
У мя тоже все норм. может у тя винрар старый ?
|
| |
|
|
| M@gnet | Дата: Thursday, 18.03.2010, 21:42 | Сообщение # 70 |
| |
| |
| Глава всего флуда =) |
| |
| Группа: Друзья команды |
| Сообщений: 3061 |
|
« 160 » |
| |
| Статус: Offline |
| |
|
все уже, передал я ему 
|
| |
|
|
| Mixon | Дата: Thursday, 25.03.2010, 18:20 | Сообщение # 71 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
Quote (Stacke) Держи. Вроде пашет правильно. Ток писал в 2007 офисе, т.ч. более ранние версии могут и не открыть.
Володь, пофикси плиз эту задачку, ты сделал чтоб выдавало максимальное отрицательно по модулю, а нужно просто максимальное отрицательное
или как вариант минимальное отрицательное по модулю
иначе мне завтра дадут пизды((
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| Stacke | Дата: Thursday, 25.03.2010, 19:20 | Сообщение # 72 |
| |
| |
| Зам. капитана и админ сервера |
| |
| Группа: Заместитель капитана |
| Сообщений: 447 |
|
« 56 » |
| |
| Статус: Offline |
| |
|
Объясни по русски, что значит по модулю.
Разжуй как ребенку, тоды исправлю
|
| |
|
|
| Mixon | Дата: Thursday, 25.03.2010, 20:18 | Сообщение # 73 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
ну открой эту прогу, нажми выполнить и увидишь елси у тебя выпадают отрицательные числа например -3, -5, -1, -15, -11 и -20, то прога выберет число -20, и выделит заливкой, а мне надо чтобы из отрицательных чисел выбирало наибольшее (!!!), то есть в данном случае -1.
и зайди в асю пожалуйста Добавлено (25.03.2010, 20:18)
---------------------------------------------
В общем на тебя вся надежда я на эти лекции не ходил, вобще не втупляю последние темы, надо будет ходить
вот одна простая вроде задача но я даж ее не могу
пс: если сможешь сделать то сюда выложи эти коды плз без всяких спойлеров, чтобы я если че завтра мог с тела вылезти сюда и списать эти коды вручную)
Каждый дрочит как он хочет! (с) VL Project
Сообщение отредактировал Mixon - Thursday, 25.03.2010, 20:19 |
| |
|
|
| Stacke | Дата: Friday, 26.03.2010, 09:48 | Сообщение # 74 |
| |
| |
| Зам. капитана и админ сервера |
| |
| Группа: Заместитель капитана |
| Сообщений: 447 |
|
« 56 » |
| |
| Статус: Offline |
| |
|
Млин, совсем про тя забыл вчера.
Если еще актуально, то щас попробую написать !
|
| |
|
|
| Stacke | Дата: Friday, 26.03.2010, 10:21 | Сообщение # 75 |
| |
| |
| Зам. капитана и админ сервера |
| |
| Группа: Заместитель капитана |
| Сообщений: 447 |
|
« 56 » |
| |
| Статус: Offline |
| |
|
Короче в экселе меняем красное на то, что ниже: Dim i As Byte
Dim sRandom, sNumber, sColNumber As Integer Sub cmdStart()
sNumber = -20 For i = 1 To 30
sRandom = Int((Rnd * 50) - 20) lstMain.Range("A" & i).Value = sRandom
lstMain.Range("A" & i).Interior.Color = RGB(255, 255, 255) If sRandom < 0 And sRandom > sNumber Then
sNumber = sRandom
sColNumber = i
End If
Next i lstMain.Range("A" & sColNumber).Interior.Color = RGB(255, 0, 0)
End Sub Quote В столбце C заданы n значений угла в радианах в пределах от -2Пи до 2Пи . Вычислить синус первого числа, меньшего ПИ. Щас не в состоянии это обдумывать. Всегда были траблы с тригонометрией, да и у самого седня экзамен, нуно готовится. Если не скрочно, то позже сделаю, сегодня ни как, извини !
|
| |
|
|
