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

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: задачи Добавлено: 18.12.06 21:07  

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

Ответить

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

Номер ответа: 16
Автор ответа:
 zadacha



Вопросов: 1
Ответов: 6
  Профиль | | #16 Добавлено: 20.12.06 00:50
извините за мои тупые вопросы, просто далека я от информатики, а тут вдруг срочно понадобилось задачи решить.
за все ещё раз огромное спасибо

Ответить

Номер ответа: 17
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #17 		Добавлено: 20.12.06 01:13
Обычно предлагают деньги :)

Ответить

Номер ответа: 18
Автор ответа:
 trialist



Вопросов: 14
Ответов: 76
  Профиль | | #18 Добавлено: 20.12.06 01:15
Обычно предлагают деньги :)

Или пиво

Ответить

Номер ответа: 19
Автор ответа:
 Rezus



ICQ: 401147850  

Вопросов: 7
Ответов: 16
  Профиль | | #19 Добавлено: 22.12.06 23:48
Лучше деньги. Пиво можно потом купить :)

Ответить

Номер ответа: 20
Автор ответа:
 trialist



Вопросов: 14
Ответов: 76
  Профиль | | #20 Добавлено: 23.12.06 14:55
Лучше деньги. Пиво можно потом купить :)


Пиво должно быть с доставкой, а при наличии денего за пивое еще идти нада

Ответить

Номер ответа: 21
Автор ответа:
 Вера



Вопросов: 0
Ответов: 1
  Профиль | | #21 Добавлено: 23.12.09 19:19
Помогите, пожалуйста с задачей: написать программу. Дана строка. Подсчитать количество букв k в последнем ее слове.

Ответить

Номер ответа: 22
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #22 		Добавлено: 24.12.09 05:25
  1. k = 0
  2. for i = 1 to len(s)
  3.   c = mid(s, i, 1)
  4.   if c = "k" then k = k + 1
  5.   if c = " " then k = 0
  6. next

Лучше для нового вопроса создавать новую тему.

Ответить

Номер ответа: 23
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
  Профиль | | #23 Добавлено: 24.12.09 11:08
Без циклов
  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5. Dim strSource As String
  6. strSource = "String counting k in last word: kmvknk"
  7. Dim vVar As Variant
  8. vVar = Split(strSource, " ")
  9. vVar = Split(vVar(UBound(vVar)), "k")
  10. MsgBox "k in last word: " + Str$(UBound(vVar))
  11. End Sub

Только нужна проверка на пустую строку.

Ответить

Страница: 1 | 2 |

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



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