1 2 LEN(A) Длина слова в переменной А строкового типа (число букв). LEFT(A,4) Часть слова из переменной А, взять 4 буквы слева. RIGHT(A,2) Часть слова. - презентация

1 1

2 2 LEN(A) Длина слова в переменной А строкового типа (число букв). LEFT(A,4) Часть слова из переменной А, взять 4 буквы слева. RIGHT(A,2) Часть слова справа 2 буквы. MID(A,3,5) Часть слова из переменной А, взять с 3 буквы 5 букв подряд. ASC(F) Код буквы F Сhr(Число) по коду числа - буква

3 3 Проект строковый калькулятор. На форме 3 окна для ввода текста Слово, номер символа начала, длина. Надпись для вывода результата. 6 кнопок с названиями функций над строками Left(), right(), mid(), len(), asc(), chr(). К сожалению, функции над строками не работают с русскими буквами. Пишите слово английскими буквами.

4 4 Private sub button1_click() Label1.text=left(textbox1.text, val(textbox3.text)) End Private sub button2_click() Label1.text=right(textbox1.text, val(textbox3.text)) end

5 5 Private sub button3_click() Label1.text=mid(textbox1.text, val(textbox2.text), val(textbox3.text)) End Label1.text=Mid(TextBox1.Text, 4, 1) Можно и так

6 6 Длина строки len(строка$)

7 7 Private sub button4_click() Label1.text=len(textbox1.text) end

8 8 Функция преобразования строки в числовой код ASC(Строка;$)

9 9 Private sub button5_click() Label1.text=asc(textbox1.text) end

10 10 Функция преобразования числового кода в символ Сhr(Число)

11 11 Private sub button6_click() Label1.text=chr(val(textbox2.text)) End

12 12 Операция слияния строк Работает и для русских слов

13 13 A=in & forma & tika Она соединяет слова в одно слово. В переменной А получится слово informatika A=пар В=ход C=A & о & B В переменной С получится слово пароход. Символ & называется амперсанд. Это знак слияния.

14 14

15 15 Введите слово Позиция Длина BUTTON LABEL TEXTBOXLABEL

16 16

17 17 PUBLIC SUB Button1_Click() Label2.Text = Mid(TextBox1.Text, Val(TextBox2.text), Val(TextBox3.Text)) END

18 18 PUBLIC SUB Button2_Click() DIM a AS String DIM b AS String DIM c AS String a = Mid(TextBox1.Text, 2, 2) b = Mid(TextBox1.text, 4, 1) c = Mid(TextBox1.Text, 6, 1) Label3.Text = a & b & c END

19 19 PUBLIC SUB Button3_Click() Label4.Text = Mid(TextBox1.Text, 4, 1) & Mid(TextBox1.Text, 3, 1) & Mid(TextBox1.Text, 5, 2) END