Билет 7
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 0 To 3, 24
Label2.Caption = "Ночь"
Case 4 To 11
Label2.Caption = "Утро"
Case 12 To 16
Label2.Caption = "День"
Case 17 To 23
Label2.Caption = "Вечер"
Case Else
Label2.Caption = "Введите час от 0 до 24"
End Select
End Sub
Private Sub Command2_Click()
Text1 = ""
Label2.Caption = ""
End Sub
Билет 8
Private Sub Command1_Click()
Dim a, b As Single
Static c As Integer
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Then Exit Sub
a = CSng(Text1)
b = CSng(Text2)
If a = Val(a) And b = Val(b) And a > 0 And a < 7 And b > 0 And b < 7 Then
If a > b Then Label3.Caption = "Выиграл 1 игрок": c = 0
If a < b Then Label3.Caption = "Выиграл 2 игрок": c = 0
If a = b Then Label3.Caption = "Ничья": c = 0
Else
Label3.Caption = "Введите целые числа от 1 до 6": c = c + 1
End If
If c > 2 Then
a = CInt(5 * Rnd() + 1)
b = CInt(5 * Rnd() + 1)
Text1 = a
Text2 = b
If a > b Then Label3.Caption = "Выиграл 1 игрок"
If a < b Then Label3.Caption = "Выиграл 2 игрок"
If a = b Then Label3.Caption = "Ничья"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Label3.Caption = ""
End Sub
Билет 9
Private Sub Command1_Click()
Dim M, p, V, X As Single
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Then Exit Sub
M = CSng(Text1)
X = CSng(Text2)
p = 8.9 * X + 11 * (100 - X)
If M > 0 And M < 300 And X > 0 And X < 100 Then
V = M / p
Label3.Caption = "Объём человека " & V & " куб. м"
Else
Label3.Caption = "Масса должен быть от 0 до 300 кг, а жирность от 0 до 100 %, повторите попытку"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Label3.Caption = ""
End Sub
Билет 10
Private Sub Command1_Click()
Dim A, B, m As Single
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Then Exit Sub
A = CSng(Text1)
B = CSng(Text2)
If A > 100 And A < 300 And B > 0 And B < 200 Then
If Option1.Value = True Then m = (3 * A - 450 + B) * 0.25 + 45
If Option2.Value = True Then m = (3 * A - 450 + B) * 0.225 + 40.5
Label3.Caption = "Идеальная масса " & m & " кг"
Else
Label3.Caption = "Рост должен быть от 100 до 300 см, а возраст от 0 до 200 лет, повторите попытку"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Label3.Caption = ""
End Sub
Билет 11
Private Sub Command1_Click()
Dim A, B, P As Single
If IsNumeric(Text1) = False Then Exit Sub
Const g = 9.8
A = CSng(Text1)
B = A - 100
If A > 100 And A < 300 Then
If Option1.Value = True Then P = (0.8 * B + 0.2 * 52) * g
If Option2.Value = True Then P = (0.6 * B + 0.4 * 52) * g
Label3.Caption = "Оптимальный вес " & P & " Н"
Else
Label3.Caption = "Рост должен быть от 100 до 300 см, повторите попытку"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Label3.Caption = ""
End Sub
Билет 12
Private Sub Command1_Click()
Dim A, M, Y, S As Single
Const C = 1000
Const D = 3200
If IsNumeric(Text1) = False Or IsNumeric(Text2) = False Then Exit Sub
A = CSng(Text1)
M = CSng(Text2)
Y = (35.75 - Log(M)) / 53.2
If A > 0 And A < 300 And M > 1 And M < 300 Then
S = (C * M) ^ Y * A ^ (C / D) / D
Label3.Caption = "Площадь кожи " & S & " кв. м"
Else
Label3.Caption = "Рост должен быть от 0 до 300 см, а масса от 1 до 300 кг, повторите попытку"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Label3.Caption = ""
End Sub