Билет 1
Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim max As Single
Dim min As Single
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Or IsNumeric(Text3) = False Then Exit Sub
a1 = Text1
a2 = Text2
a3 = Text3
max = a1
min = a1
If a2 > max Then max = a2
If a3 > max Then max = a3
If a2 < min Then min = a2
If a3 < min Then min = a3
Label3.Caption = max - min
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Label3.Caption = ""
End Sub
Билет 2
Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim max As Single
Dim min As Single
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Or IsNumeric(Text3) = False Then Exit Sub
a1 = Text1
a2 = Text2
a3 = Text3
max = a1
min = a1
If a2 > max Then max = a2
If a3 > max Then max = a3
If a2 < min Then min = a2
If a3 < min Then min = a3
If max = 0 Then MsgBox "Делить на ноль нельзя, повторите попытку": Exit Sub
Label3.Caption = min / max
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Label3.Caption = ""
End Sub
Билет 3
Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim max As Single
Dim min As Single
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Or IsNumeric(Text3) = False Then Exit Sub
a1 = Text1
a2 = Text2
a3 = Text3
max = a1
min = a1
If a2 > max Then max = a2
If a3 > max Then max = a3
If a2 < min Then min = a2
If a3 < min Then min = a3
If min = 0 Then MsgBox " Делить на ноль нельзя, повторите попытку ": Exit Sub
Label3.Caption = max / min
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Label3.Caption = ""
End Sub
Билет 4
Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim max As Single
Dim min As Single
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Or IsNumeric(Text3) = False Then Exit Sub
a1 = Text1
a2 = Text2
a3 = Text3
max = a1
min = a1
If a2 > max Then max = a2
If a3 > max Then max = a3
If a2 < min Then min = a2
If a3 < min Then min = a3
Label3.Caption = a1 + a2 + a3
Label5.Caption = (a1 + a2 + a3) / 3
Label8.Caption = max
Label9.Caption = min
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Label3.Caption = ""
End Sub
Билет 5
Private Sub Command1_Click()
Dim a As Single
If IsNumeric(Text1) = False Then Exit Sub
a = Text1
If a <> Fix(a) Then Label2.Caption = "Введите целое число, повторите попытку ": Exit Sub
Select Case a
Case 1, 2, 12
Label2.Caption = "Зима"
Case 3 To 5
Label2.Caption = "Весна"
Case 6 To 8
Label2.Caption = "Лето"
Case 9 To 11
Label2.Caption = "Осень"
Case Else
Label2.Caption = "Введите номер месяца от 1 до 12"
End Select
End Sub
Private Sub Command2_Click()
Text1 = ""
Label2.Caption = ""
End Sub
Билет 6
Private Sub Command1_Click()
Dim a As Single
If IsNumeric(Text1) = False Then Exit Sub
a = Text1
If a <> Fix(a) Then Label2.Caption = "Введите целое число, повторите попытку": Exit Sub
Select Case a
Case 1, 3, 5, 7, 8, 10, 12
Label2.Caption = "31 день"
Case 4, 6, 9, 11
Label2.Caption = "30 дней"
Case 2 And Check1.Value = 1
Label2.Caption = "29 дней"
Case 2 And Check1.Value = 0
Label2.Caption = "28 дней"
Case Else
Label2.Caption = "Введите номер месяца от 1 до 12"
End Select
End Sub
Private Sub Command2_Click()
Text1 = ""
Label2.Caption = ""
End Sub