Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 28, средняя оценка - 4.79
molinenhard
2 / 2 / 0
Регистрация: 10.03.2012
Сообщений: 11
#1

В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву - VB

10.03.2012, 01:12. Просмотров 3691. Ответов 21
Метки нет (Все метки)

"В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву"
и
"В заданном массиве строк определить количество строк, у которых первый и последний символы совпадают."
Сделать нужно через простейшие функции аля substring mid и тп
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2012, 01:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву (VB):

Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву. - Visual Basic
Дан файл , содержащий текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву. Реализовать...

Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву - Visual Basic
Добрый день форумчане необходима помощь срочно нужны проги на Visual Basic т.к. в программировании не силен не могу сделать данные задания...

Найти количество слов, которые содержат хотя бы одну букву «А» - Visual Basic
Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество...

В заданной строке, состоящей из "слов", разделенных пробелами, определить количество "слов" - Visual Basic
В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить количество "слов" ...

Найти количество слов в заданной строке - Visual Basic
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке. Помогите написать...

Подсчитать количество слов в заданной строке - Visual Basic
Помогите пожалуйста с задачей. Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количесво букв "а" в последнем...

21
molinenhard
2 / 2 / 0
Регистрация: 10.03.2012
Сообщений: 11
14.03.2012, 12:10  [ТС] #16
Нужно подредактировать эти две задачи:
vb.net
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
Public Class Form1
    Dim a() As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        ListBox1.Items.Clear()
        ReDim a(0 To Val(TextBox1.Text))
        For i = 1 To Val(TextBox1.Text)        'Вводим строки в массив
            a(i) = InputBox("Ввeдите строку")
            ListBox1.Items.Add(a(i))
        Next i
    End Sub
    Sub opr(ByVal a() As String)
        Dim p As Integer
        For i = 1 To Val(TextBox1.Text) 'Ищем строки с одинаковой первой и последней буквой
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then
                p = p + 1
            End If
        Next i
        TextBox2.Text = p 'Выводим результат 
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        opr(a)
    End Sub
End Class
1)Не обьявлять массив глобально, а передавать его с помощью byval byref
2)Сделать ввод массива не через импат бокс, а через процедуры\фунции типо:
vb.net
1
2
3
    Function vvod(ByVal T As TextBox) As Double
        Return Val(T.Text)
    End Function
во второй задаче:
vb.net
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
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String
        Dim k As Integer
        List1.Items.Clear()
        k = TextBox3.Text
        s = Text1.Text
        Обработка(s, k)
    End Sub
 
    Sub Обработка(ByVal s As String, ByVal k As Integer)
        Dim a() As String
        Dim p As Integer
        a = Split(s, " ")
        For i = 1 To k
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then
                p = p + 1
            End If
        Next i
        List1.Items.Add("Кол-во слов начинающихся и заканчивающихся")
        List1.Items.Add("на одну и ту же букву")
        List1.Items.Add(p)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class
1)Сделать работу не через элементы массива, а с целой строкой....Как я понимаю придется посимвольно проверять всю строку
0
SoftIce
comment ca va
10401 / 3900 / 997
Регистрация: 27.07.2011
Сообщений: 9,444
Завершенные тесты: 1
14.03.2012, 12:36 #17
Была уже такая тема
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Compare Text
Sub Command1_Click()
 Dim s As Variant, kol As Integer
 
 
  For Each s In Split(Replace(InputBox("Введите текст", _
                      "Ввод текста для обработки", _
                      "Это строка для обработко. Итоги."), _
                                                  ".", " "))
    If Left(s, 1) = Right(s, 1) And Len(s) > 1 Then
      Print s: kol = kol + 1
    End If
  Next s
  
  Print
  Print "Kоличество слов, у которых первый и последний " & vbCrLf _
        & "символы совпадают между собой = "; kol
End Sub
Это по второй задаче.

Добавлено через 8 минут
Или тебе надо без Сплит?
1
molinenhard
2 / 2 / 0
Регистрация: 10.03.2012
Сообщений: 11
14.03.2012, 12:38  [ТС] #18
Во второй задаче как раз без сплит
0
SoftIce
comment ca va
10401 / 3900 / 997
Регистрация: 27.07.2011
Сообщений: 9,444
Завершенные тесты: 1
14.03.2012, 13:43 #19
Без Сплит вторая задача
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
Option Compare Text
Sub Command1_Click()
 Dim s As Variant, kol As Integer, n As String, k As String
  s = Trim(Replace(Replace(InputBox("Введите текст", _
      "Ввод текста для обработки", _
      " Это строка для обработко. Итоги."), _
      ".", " "), ",", " ")) & Space(1) 'Убир.проб.спр.-слева, заменяем точ.и зап.на проб., в конце ставим пробел.
   While InStr(1, s, "  ")
     s = Replace(s, "  ", " ") ' Тут убираем длинные пробелы
   Wend
   n = Mid(s, 1, 1)     ' Переменной n присваиваем значение первого символа
   For i = 1 To Len(s)
       If Mid(s, i, 1) = " " Then ' Если встречается пробел, то
        k = Mid(s, i - 1, 1)        'Переменной k присваивается значение предыдущего символа
        If n = k Then kol = kol + 1 ' Если переменные начала и конца совпадают, то увеличиваем kol
            ' Print n & k
            ' k = 0:  n = 0 '         Обнуляем переменные начала и конца
            n = Mid(s, i + 1, 1) 'Переменной присваиваем значение первого символа
        End If
    Next i
  Print "Kоличество слов, у которых первый и последний " & vbCrLf _
        & "символы совпадают между собой = "; kol
End Sub
1
molinenhard
2 / 2 / 0
Регистрация: 10.03.2012
Сообщений: 11
14.03.2012, 14:50  [ТС] #20
Да, все отлично
а в первой задачке как можно ввести эти строки через лист бокс, без импата
0
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
14.03.2012, 17:24 #21
Цитата Сообщение от molinenhard Посмотреть сообщение
Да, все отлично
а в первой задачке как можно ввести эти строки через лист бокс, без импата
Перемудрил... сказано ввести сторочки - значит строчки...
Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
For i = 1 To 5
List1.AddItem i
Next i
End Sub
 
Private Sub List1_Click()
List1.List(List1.ListIndex) = Text1.Text
End Sub
Название: Снимок.JPG
Просмотров: 18

Размер: 15.7 Кб
1
Dariadaria
0 / 0 / 0
Регистрация: 17.03.2012
Сообщений: 4
24.03.2012, 09:48 #22
Добавлено через 27 минут
list1 и text1 это что за инструменты? я не шарю.
форму создать правильную не могу

это и есть листбокс и текстбох соответственно?
0
24.03.2012, 09:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2012, 09:48
Привет! Вот еще темы с ответами:

Определить количество слов в строке и написать их - Visual Basic
1) Определить кол-во слов в строке и написать их. Слова разделяют различные символы. 2)Программка, которая введенный текст записывает...

Определить количество слов в строке, длина которых больше чем 3 символа - Visual Basic
Составить программу которая определяет количество слов в строке, длина которых больше чем 3 символа

Как определить количество слов в строке, начинающихся и заканчивающихся на одну и ту же букву - Visual Basic .NET
Здравствуйте. Помогите пожалуйста с программным кодом задания: В заданной строке, состоящей из слов, разделенных одним или более пробелами,...

Дан текст. Определить количество слов начинающихся и заканчивающихся на одну и ту же букву - C (СИ)
Да текст. определить количество слов начинающихся и заканчивающихся на одну и ту же букву


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru