Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Помогите плиз с лабой Добавлено: 19.05.09 21:00  

Автор вопроса:  jd
Братья помогите пожалуйста с лабой, VBA ваще не парю, только PASCAL учил. Сдавать скора надо а переходить с Pascal на VBA за это время не успеваю
Два задания (нужен код)
1. Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.
2. Поменять местами четные и нечетные абзацы. Четные абзацы должны иметь красный цвет, а нечетные зеленый

Сайт супер честно! Заранее благодарю за помощь!

Ответить

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

Номер ответа: 1
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #1 		Добавлено: 19.05.09 21:26
Братья помогите пожалуйста с лабой

Не брат ты мне ... ...! (с) к/ф "Брат"

1. Дана строка, содержащая URL-адрес форума. Определить, чего там больше: флейма или мата.
2. Поменять местами юзеров и админов. Админы должны иметь красный цвет, а юзеры - зеленый
Тупые посты просто супер! Заранее пожалуйста, мы всегда рады выслушать чужие проблемы, просто хлебом не корми, дай порешать чужие лабы. Разве не помощь? Или тебе хотелось чего-то другого? И мне )))

Ответить

Номер ответа: 2
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
  Профиль | | #2 Добавлено: 19.05.09 21:45
jd Я тебе сообщаю новость тут не очень любят решать чужие проблемы, тое писать за них код, довольно редко когда задают вопрос и кто то ставит готовое решение(ставят когда вопрос простой но специфический или решение не требует много строк), чаше подсказывают с помощью чего можно решить ту или иную проблему и как лучше, но решить ты её должен сам.

Ответить

Номер ответа: 3
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #3 		Добавлено: 19.05.09 21:58
есть еще вариант - укажи сколько wmz\wmr ты готов отдать за решение. может кто возьмется

Ответить

Номер ответа: 4
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #4 		Добавлено: 19.05.09 22:12
Ra$cal, +1

Ответить

Номер ответа: 5
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #5 		Добавлено: 19.05.09 22:18
Да ладна вам, если бы я умел я бы написал)

Ответить

Номер ответа: 6
Автор ответа:
 jd



Вопросов: 1
Ответов: 2
  Профиль | | #6 Добавлено: 19.05.09 22:24
Ладно. Просто сдавать срочно надо а в VBA ваще никогда не работал (лекции не слушал=)в принципе моя проблема)
но все же если есть добрые люди буду очень благодарен.тем более как я понял задание лафа.

Ответить

Номер ответа: 7
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #7 		Добавлено: 20.05.09 08:44
1.

  1.  
  2. Function F1(FileName as string)
  3. dim buks as long, numbs as long, i as long
  4. dim s as string
  5. open filename for input as #1
  6. do until eof(1)
  7. line input #1, s
  8. s = lcase$(s)
  9. for i = 1 to len(s)
  10. if isnumeric(mid$(s,i,1)) then numbs= numbs+1
  11. if asc(mid$(s,i,1))>=asc("а") and asc(mid$(s,i,1)) <=asc("я") then buks = buks +1
  12. next i
  13. Loop
  14. close #1
  15. if buks > numbs then
  16. msgbox (("Букв больше"))
  17. elseif buks < numbs then
  18. msgbox (("Цифр больше"))
  19. else
  20. msgbox (("Цифр и букв одинаково"))
  21. end if
  22. End Function
  23.  



2.
  1.  
  2. Function Menat(FileName1 as string, FileName2 As String)
  3. Open FileName1 for input as #1
  4. open filename2 for output as #2
  5. do until eof(1)
  6. line input #1, s1
  7. if eof(1) then exit do
  8. line input #1, s2
  9. print #2, s2
  10. print #1, s1
  11. loop
  12. close #2
  13. close #1
  14. End Function


Ответить

Номер ответа: 8
Автор ответа:
 jd



Вопросов: 1
Ответов: 2
  Профиль | | #8 Добавлено: 20.05.09 14:01
Громадное спасибо! Все хорошего тебе в жизни!=)

Ответить

Номер ответа: 9
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #9 		Добавлено: 20.05.09 19:38
Стоп, там косяк в кое каком месте:
  1.  
  2. Function Menat(FileName1 as string, FileName2 As String)
  3. Open FileName1 for input as #1
  4. open filename2 for output as #2
  5. do until eof(1)
  6. line input #1, s1
  7. if eof(1) then exit do
  8. line input #1, s2
  9. print #2, s2
  10. print #2, s1
  11. loop
  12. close #2
  13. close #1
  14. End Function



:)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам