Private Sub CommandButton1_Click()
End Sub
| Private Sub CommandButton1_Click() If Not IsNumeric(TextBox1.Text) Then MsgBox "Аргумент должен быть числом", _ vbExclamation TextBox1.Text = "" TextBox1.SetFocus Exit Sub End If x = CDbl(TextBox1.Text) y = Cos(x) TextBox2.Text = CStr(y) End Sub | Проверка является ли введённое значение числом Вывод окна сообщения Фокус (курсор) устанавливается на поле TextBox1 Досрочный выход из процедуры При считывании числа из поля ввода при помощи функции CDbl строковый тип, возвращаемый свойством Text, преобразуется в числовой Чтобы вывести результат в поле, переводим число в строковый формат при помощи функции CStr |
| Private Sub UserForm_Initialize() UserForm1.Caption = "Значение функции Cos(x)" Label1.Caption = "Аргумент" Label2.Caption = "Значение функции" CommandButton1.Caption = "OK" TextBox2.Enabled = False End Sub | Процедура UserForm_Initialize конструирует форму до ее загрузки Инструкция устанавливает текст, отображаемый в строке заголовка формы Инструкции задают видимые надписи для объектов Инструкция делает TextBox2 недоступным для пользователя |
Private Sub CommandButton1_Click()
Dim x As Double, y As Double
Дата добавления: 2015-08-08; просмотров: 652;