Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Вместо функций Date$ и Time$ можно использовать Now:
Label1.Caption = “Дата и время: ” & Now
Пример 3. С помощью текстовых окон произвести ввод переменных Х и Y и найти сумму этих двух чисел. Результат вывести в текстовое окно Txt3.
Рис. 5.1.2. Форма к примеру №3
Вариант решения 1.
Dim x As Double, y As Double, z As Double
Private Sub Cmd1_Click()
If IsNumeric(Txt1)=True And IsNumeric(Txt2)=True Then
x = Txt1.Text
y = Txt2.Text
z = x + y
Txt3.Text = z
Else
MsgBox "Ошибка ввода данных", vbCritical, "Сообщение"
Exit Sub
End Sub
Private Sub Сmd2_Click()
End
End Sub
Вариант решения 2.
Private Sub Cmd1_Click()
If IsNumeric(Txt1)=False Or IsNumeric(Txt2)=False Then
MsgBox "Ошибка ввода данных", vbCritical, "Сообщение"
Exit Sub
End If
Txt3=CDbl(Txt1)+Txt2
End Sub
Вариант решения 3.
Private Sub Cmd1_Click()
If IsNumeric(Txt1)=False Or IsNumeric(Txt2)=False Then
MsgBox "Ошибка ввода данных", vbCritical, "Сообщение"
Exit Sub
End If
Txt3=Txt1*1+Txt2
End Sub
Дата публикования: 2014-12-28; Прочитано: 200 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!