Соединение текстов - VB
Формулировка задачи:
Прошу написать,что сами можете правильно подать!
1)Код нужен примерно такой
Если нажата кнопка "1", то
из текста "1" и текста "2"
соединяются слова.
Конец
Например: в 1 текстке было "Король" , а во втором "Влад" и мы должны получить Король Влад,но обязательно с пробелом!
2)Если нажата кнопка "2", то
из текста "1" и текста "2"
Слова образуют разные слова
Например: 1 = два, 2= диван и они должны образовать диван, диван2. Не надо делать код с последствиями вроде д2иван или ди2ван.(Огромное спасибо).
А то башка вообще не варит
Решение задачи: «Соединение текстов»
textual
Листинг программы
Option Explicit: Const r = 90: Dim WithEvents bt1 As CommandButton, l&, t&, w&, h&, i&, v, vv Dim cb1 As ComboBox, cb2 As ComboBox, tx1 As TextBox, ch1 As CheckBox, d As Object Private Sub bt1_Click() Dim v, s$ If ch1.Value Then s = cb1.Text: v = Split(d(cb2.Text), ",") Select Case cb1.ListIndex Case 0: v = cb2.Text Case 1 To 3: v = Split(d(cb2.Text), ",")(0) If Right$(s, 1) = "а" Then Mid(s, Len(s)) = "е" Case Is > 3: v = Split(d(cb2.Text), ",")(1): v = Left(v, Len(v) - 1) End Select tx1.Text = s & " " & v Else: tx1.Text = cb1.Text & " " & LCase(cb2.Text) End If End Sub Private Sub Form_Load() l = r: t = r: w = r * 20 Set d = CreateObject("Scripting.dictionary"): d.comparemode = 1 Set cb1 = Controls.Add("vb.ComboBox", "cb1"): With cb1 .Move l, t, w: l = l + w + r For Each v In Split("один два три четыре пять шесть семь восемь девять"): Mid(v, 1, 1) = UCase(Mid(v, 1, 1)): .AddItem v: Next .ListIndex = 3: .Visible = 1 End With Set cb2 = Controls.Add("vb.ComboBox", "cb2"): With cb2 .Move l, t, w: l = r: h = .Height: t = t + h + r For Each v In Split("диван(дивана,диванов) кукла(куклы,кукол) кочерга(кочерги,кочерг) татарин(татарина,татаринов) украинец(украинца,украинцев)"): vv = Split(v, "("): Mid(vv(0), 1, 1) = UCase(Mid(vv(0), 1, 1)): .AddItem vv(0): d.Add vv(0), vv(1): Next .ListIndex = 3: .Visible = 1 End With Set bt1 = Controls.Add("vb.CommandButton", "bt1"): With bt1 .Move l, t, w, h: l = l + w + r .Caption = "Сложить 2 слова" .Visible = 1 End With Set ch1 = Controls.Add("vb.CheckBox", "ch1"): With ch1 .Move l, t, w, h: l = r: t = t + h + r: w = w * 2 + r .Caption = "Применить разум" .Value = 1 .Visible = 1 End With Set tx1 = Controls.Add("vb.TextBox", "tx1"): With tx1 .Move l, t, w, h: w = l + w + r * 10: h = t + h + r * 10 .Visible = 1 End With End Sub Private Sub Form_Resize(): Me.WindowState = 0: With Me: .Move .Left, .Top, w, h: End With: End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д