1
2 LEN(A) Длина слова в переменной А строкового типа (число букв). LEFT(A,4) Часть слова из переменной А, взять 4 буквы слева. RIGHT(A,2) Часть слова справа 2 буквы. MID(A,3,5) Часть слова из переменной А, взять с 3 буквы 5 букв подряд. ASC(F) Код буквы F Сhr(Число) по коду числа - буква
3 Проект строковый калькулятор. На форме 3 окна для ввода текста Слово, номер символа начала, длина. Надпись для вывода результата. 6 кнопок с названиями функций над строками Left(), right(), mid(), len(), asc(), chr(). К сожалению, функции над строками не работают с русскими буквами. Пишите слово английскими буквами.
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 Private sub button3_click() Label1.text=mid(textbox1.text, val(textbox2.text), val(textbox3.text)) End Label1.text=Mid(TextBox1.Text, 4, 1) Можно и так
6 Длина строки len(строка$)
7 Private sub button4_click() Label1.text=len(textbox1.text) end
8 Функция преобразования строки в числовой код ASC(Строка;$)
9 Private sub button5_click() Label1.text=asc(textbox1.text) end
10 Функция преобразования числового кода в символ Сhr(Число)
11 Private sub button6_click() Label1.text=chr(val(textbox2.text)) End
12 Операция слияния строк Работает и для русских слов
13 A=in & forma & tika Она соединяет слова в одно слово. В переменной А получится слово informatika A=пар В=ход C=A & о & B В переменной С получится слово пароход. Символ & называется амперсанд. Это знак слияния.
14
15 Введите слово Позиция Длина BUTTON LABEL TEXTBOXLABEL
16
17 PUBLIC SUB Button1_Click() Label2.Text = Mid(TextBox1.Text, Val(TextBox2.text), Val(TextBox3.Text)) END
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 PUBLIC SUB Button3_Click() Label4.Text = Mid(TextBox1.Text, 4, 1) & Mid(TextBox1.Text, 3, 1) & Mid(TextBox1.Text, 5, 2) END