Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите!!!! помогите с заданием 
:(
    Опции темы
Rik3D
Дата 7.2.2005, 11:25 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
It is hard task. Yes!---это написано на листе Excel(1)в ячейке А1
Надо написать программу на Visual Basic чтобы она подсчитала сколько знаковдо вместе с пробелами до точки. И вывела каждую дукву(одна буква в одной ячейке) в столбик D в алфавитнам порядке на лист Excel(1). smile
-=-=-=-=-=-=-=-=-=-
Помигите кто как может!!!!
  Вверх
Rik3D
Дата 7.2.2005, 11:28 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
It is hard task. Yes!---это написано на листе Excel(1)в ячейке А1
Надо написать программу на Visual Basic чтобы она подсчитала сколько знаков вместе с пробелами до точки. И вывела каждую дукву(одна буква в одной ячейке) в столбик D в алфавитнам порядке на лист Excel(1).
-=-=-=-=-=-=-=-=-=-
Помигите, пожалуйста, кто как может!!!!
  Вверх
~FoX~
Дата 7.2.2005, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
На ВБ или НА ВБА?


На ВБА примерно так:
Код

Private Sub CommandButton1_Click()
Dim s, temp As String
Dim r() As String
Dim i, k, j As Integer

s = Cells(1, 1).Value
ReDim r(Len(s))


For i = 1 To Len(s)
 If Mid(s, i, 1) <> "." Then
   r(i) = Mid(s, i, 1)
 Else
   Exit For
 End If
Next i


For k = 0 To Len(s) - 1
 For j = k To Len(s)
   If r(k) > r(j) Then
     temp = r(k)
     r(k) = r(j)
     r(j) = temp
   End If
 Next j
Next k

For i = 0 To Len(s)
 If r(i) <> " " Then
   Cells(2, i + 1).Value = r(i)
 End If
Next i



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
cardinal
Дата 7.2.2005, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Модератор: Название темы должно отражать ее суть!


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Staruha
Дата 8.2.2005, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
Код

Private Sub CommandButton2_Click()
Dim str As String, str1 As String, i As Integer, k As Integer
        str = Range("A1")
        strLen = Len(str)
                    For i = 1 To strLen
                    str1 = Mid(str, i, 1)
          If Asc(str1) <> 46 Then

       Cells(i, 4).Value = str1

           Else
  Exit For
End If

Next i
End Sub


Это сообщение отредактировал(а) Старуха - 8.2.2005, 10:34


--------------------
Возмездие настигнет
PM MAIL   Вверх
~FoX~
Дата 8.2.2005, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
2 Старуха

Цитата(Rik3D @ 7.2.2005, 11:25)
в алфавитнам порядке на лист Excel(1).



Rik3D
Кстати, забыл предупредить в таблице АСКИ сначала идут заглавные буквы, потом строчные, так что выражение -> "AaABbB" будет таким -> "AABBab"


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Staruha
Дата 8.2.2005, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
Private Sub CommandButton2_Click()
Dim str As String, str1 As String, i As Integer, k As Integer
Код

str = Range("A1")
strLen = Len(str)
For i = 1 To strLen
str1 = Mid(str, i, 1)
If Asc(str1) <> 46 Then

        Cells(i, 4).Value = str1

  Else
 Exit For
End If

  Next i

 Columns("D:D").Select
 Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub




Цитата
столбик D 

- 2? Fox





Это сообщение отредактировал(а) Старуха - 8.2.2005, 13:51


--------------------
Возмездие настигнет
PM MAIL   Вверх
~FoX~
Дата 8.2.2005, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Старуха
Сильна smile Молодец smile


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Гость_Brian
Дата 16.2.2005, 08:01 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Помогите написать прогу автозапуска компакт диска.
  Вверх
~FoX~
Дата 16.2.2005, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Один топик - один вопрос...... smile


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0494 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.