Посчитать количество символов во втором слове - VB
Формулировка задачи:
все в вижуал бэйсике
1. задание
нужно с помощью массива найти наиболее часто повторяющееся число
2.дана строка нужно посчитать количество символов во втором слове
вот моя программа
она работает только когда 2 слова в строке,а когда больше не работает...помогите пожалуйста я не понимаю ,что исправить нужно,видимо что-то со вторым пробелом,уже 3 дня с ней с ума схожу...
буду очень благодарна!!!
Решение задачи: «Посчитать количество символов во втором слове»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д