Посчитать количество символов во втором слове

@Кристина1 · Регистрация: 21.04.2010

Студворк — интернет-сервис помощи студентам

все в вижуал бэйсике

1. задание
нужно с помощью массива найти наиболее часто повторяющееся число

2.дана строка нужно посчитать количество символов во втором слове
вот моя программа

Visual Basic
1
2
3
4
5
6
7
8
cls
input x$
m$=x$+" "
y=len(x$)
c=instr(1,m$," ")
b=instr(y,m$," ")
z=b-c-1
print z

она работает только когда 2 слова в строке,а когда больше не работает...помогите пожалуйста я не понимаю ,что исправить нужно,видимо что-то со вторым пробелом,уже 3 дня с ней с ума схожу...

буду очень благодарна!!!

@petr-sev · 19.05.2010, 17:22

по п.2

b надо вычислять, начиная с позиции после первого пробела:
b = InStr(c + 1, m, " ")

@Кристина1 · 19.05.2010, 17:35 **[ТС]**

спасибо)))

помогите кто-нибудь с первой???

@Alex77755 · 20.05.2010, 14:33

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Sub Комманда1_Click()
Dim M(9)
Dim NN
Dim N
Dim J
Dim C
Dim T
Randomize
NN = Int(500 * Rnd + 300)
For J = 1 To NN
T = Int(10 * Rnd)
        For C = 0 To 9
        If T = C Then M(C) = M(C) + 1
        Next C
Next J
N = M(0)
T = 0
        For C = 0 To 9
        If M(C) > N Then N = M(C): T = C
        Next C
   J = "Проверено " & NN & " чисел"
        For C = 0 To 9
       J = J & vbCrLf & " число  " & C & "  встречается  " & M(C) & "  раз"
        Next C
     J = J & vbCrLf & "Чаще всего  (" & N & ") раз встретилосись число  " & T
MsgBox J, 64, "Так-то вот"
End Sub

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@petr-sev 496 / 130 / 19 Регистрация: 30.03.2010 Сообщений: 224
	19.05.2010, 17:22
	по п.2 b надо вычислять, начиная с позиции после первого пробела: b = InStr(c + 1, m, " ") 1

@Кристина1 0 / 0 / 0 Регистрация: 21.04.2010 Сообщений: 3
	19.05.2010, 17:35 [ТС]
	спасибо))) помогите кто-нибудь с первой??? 0