Написать программу тестирования

 Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = ("Для задания стиля рамки текстового поля применяется свойство Borderstyle (Стиль рамки). Оно содержит два значения. По умолчанию используется значение Fixed Single, при котором поле выделено рамкой. При установке значения None рамка вокруг поля отсутствует. Свойство Appearance позволяет придать объемность текстовому полю, имеющему рамку. Свойства Backcolor и ForeColor позволяют соответственно задать цвет фона и цвет текста, размещаемого в элементе управления TextBox. С помощью свойства Alignment (Выравнивание) можно задать вариант выравнивания информации в поле: по центру, по левому или правому краю. Для задания наименования, размера и начертания шрифта, отображаемого в текстовом поле, используется свойство Font (Шрифт). ")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox5.Text = ("Для размещения в форме текстовой информации, которая не может быть изменена пользователем приложения, используется элемент управления Label (Метка).Текст метки задается свойством caption. Он может быть установлен в окне Properties или программно. Шрифт текстовой информации определяется свойством Font (Шрифт). Для выбора шрифта в окне свойств установите курсор в данное свойство и нажмите кнопку с тремя точками в правом столбце свойства. Открывается диалоговое окно Выбор шрифта, содержащее три списка, позволяющих указать наименование, начертание и размер шрифта. Используя свойства ForeColor и Backcolor, можно задать цвет текстовой информации и цвет фона элемента управления. Свойство BorderStyle (Стиль рамки) определяет тип обрамления вокруг объекта Label, позволяя оформить надпись в виде текстового поля. Для этого вместо используемого по умолчанию значения None необходимо выбрать для свойства значение Fixed Single. Свойство Appearance позволяет придать тексту некоторую объемность. Свойство Alignment (Выравнивание) определяет выравнивание текста в элементе управления по правому, левому краю или по ширине. Если информа ция в объекте размещена на нескольких строках, то выравнивание осуществляется на каждой строке.")
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = ("Программа Visual Basic позволяет во время выполнения программы управлять текстом, отображаемым в текстовом поле, с помощью свойств Используя свойство Seistart объекта TextBox, можно указать место размещения курсора в поле при установке фокуса. Значение 0 соответствует крайней левой позиции. Свойство SelLength задает ширину точки ввода. По умолчанию она равна 0, т. е. в том месте, где курсор установлен, можно начинать ввод символов, не удаляя расположенной в нем информации. Рассмотрим следующий пример. Необходимо, чтобы в форме, предназначенной для ввода данных, размещенные данные замещались новой информацией. Для этого при установке фокуса на поле символы должны выделяться инверсным цветом (рис. 8.4) и при вводе данных удаляться. Свойство SelText позволяет задать текст, который заменит во время выполнения программы выделенный фрагмент.")
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox2.Text = ("При работе с текстовыми полями возникает необходимость проверки вводимых пользователем данных. В Visual Basic для этих целей предназначено событие validate. Например, размещенное в форме поле служит для ввода даты и вы хотите, чтобы при вводе информации в ином формате появлялось соответствующее предупреждение. Для этого выполните следующие действия: 1. Разместите в форме текстовое поле. 2. Для задания процедуры обработки события validate откройте окно редактора кода, дважды щелкнув кнопку мыши на текстовом поле. 3. Из списка Object по умолчанию выбрано значение Text1, указывающее наименование элемента управления TextBox. Из правого списка Procedure выберите значение Validate, позволяющее задать процедуру проверки. вводимых в поле данных. 4. Создайте следующую процедуру: Private Sub Text1_Validate If Not IsDate(Textl) Then MsgBox Вводимые данные должны быть датой End Sub. 5. Закройте окно редактора кода. 6. Разместите в форме еще одно текстовое поле, которое будет использовано в качестве объекта, на который можно перевести фокус после ввода информации в первое поле. 7. Запустите приложение на выполнение. 8. Введите в созданное поле информацию в каком-либо произвольном формате, например текстовую, и нажмите клавишу <ТаЬ> для перемещения фокуса на второе поле. На экране появится предупреждение")
    End Sub
 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox4.Text = ("Текстовое поле в Visual Basic характеризуется двумя свойствами, позволяющими использовать их при создании полей, предназначаемых для ввода пароля: passwordchar — задает символ, отображаемый в поле вместо вводимых символов; MaxLength — максимальное число символов, вводимых в поле. ")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox6.Text = ("Свойство Autosize может иметь два значения. При установке значения False размер объекта остается постоянным и не зависит от длины заданного свойством caption текста. Если длина текста превышает длину объекта Label, часть информации, не поместившаяся в объект, будет не видна. При установке для свойства Autosize значения True длина объекта устанавливается таким образом, чтобы в нем поместилась задаваемая свойством caption текстовая информация.")
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox7.Text = ("Свойство Wordwrap аналогично свойству Autosize, но в данном случае изменяется высота объекта, а ширина остается неизменной. При установке для данного свойства значения False размер объекта Label может изменяться только в горизонтальном направлении. Если значение свойства wordwrap равно True, размеры объекта Label будут увеличиваться в вертикальном направлении вниз, пока не поместится весь текст. При этом осуществляется автоматический перенос слов.")
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox8.Text = ("Свойство UseMnemonic элемента управления Label позволяет определить, как будет интерпретироваться символ амперсанда (&), размещенный в свойстве caption. Если установлено значение True, то амперсанд из текста удаляется, а символ, перед которым он расположен, подчеркивается. Эта возможность применяется для определения клавиш быстрого доступа. При использовании метки в качестве клавиши быстрого доступа пользователь может комбинацией клавиш <А11>+<подчеркнутая клавиша в метке> устанавливать фокус на элемент управления, следующий по порядку для клавиши <ТаЬ> за меткой. Рассмотрим такой пример. В форме расположено несколько элементов управления. Среди них имеется текстовое поле, в которое вы хотите перейти нажатием клавиши быстрого доступа. В этом случае выполните следующие действия: 1. Создайте метку для текстового поля. 2. Откройте окно свойств Properties метки. 3. Выделите свойство Caption и в текст метки перед символом, который вы хотите использовать в качестве клавиши быстрого доступа, поместите символ амперсанда. 4. С помощью свойства Tabindex метки и текстового поля, установите для метки значение на единицу меньшее, чем у текстового поля.")
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Clear()
    End Sub
 
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox2.Clear()
    End Sub
 
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox3.Clear()
    End Sub
 
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox4.Clear()
    End Sub
 
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox5.Clear()
    End Sub
 
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox6.Clear()
    End Sub
 
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox7.Clear()
    End Sub
 
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        TextBox8.Clear()
    End Sub
 End Class