Билет 13
Private Sub Command1_Click()
Dim A, X, P As Single
If IsNumeric(Text1) = False Then Exit Sub
Const g = 9.8
A = CSng(Text1)
X = A - 100
If A > 120 And A < 300 Then
If Option1.Value = True Then P = 0.94 * X * g
If Option2.Value = True Then P = 1.07 * X * g
Label3.Caption = "Оптимальный вес " & P & " Н"
Else
Label3.Caption = "Рост должен быть от 120 до 300 см, повторите попытку"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Label3.Caption = ""
End Sub
Билет 14
Option Base 1
Private Sub Command1_Click()
Dim B As Single
If IsNumeric(Text1) = False Then Exit Sub
B = CSng(Text1)
Dim A(7) As String
A(1) = "Понедельник"
A(2) = "Вторник"
A(3) = "Среда"
A(4) = "Четврг"
A(5) = "Пятница"
A(6) = "Суббота"
A(7) = "Воскресенье"
If B = Fix(B) And B > 0 And B < 8 Then
Text1 = A(B)
Else
Text1 = "Введите целое число от 1 до 7"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Билет 15
Option Base 1
Private Sub Command1_Click()
Dim B As Single
If IsNumeric(Text1) = False Then Exit Sub
B = CSng(Text1)
Dim A(12) As String
A(1) = "Январь"
A(2) = "Фефраль"
A(3) = "Март"
A(4) = "Апрель"
A(5) = "Май"
A(6) = "Июнь"
A(7) = "Июль"
A(8) = "Август"
A(9) = "Сентябрь"
A(10) = "Октябрь"
A(11) = "Ноябрь"
A(12) = "Декабрь"
If B = Fix(B) And B > 0 And B < 13 Then
Text1 = A(B)
Else
Text1 = "Введите целое число от 1 до 12"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Билет 16
Private Sub Command1_Click()
Dim NM, K As Single
Text1 = "Мор. мили: Километры:"
For NM = 0 To 100 Step 5
K = 1.852 * NM
Text1 = Text1 & vbCrLf & NM & " " & K
Next NM
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Билет 17
Private Sub Command1_Click()
Dim M, K As Single
Text1 = "М/c: Км/ч:"
For M = 0 To 300 Step 5
K = 3.6 * M
Text1 = Text1 & vbCrLf & M & " " & K
Next M
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Билет 18
Private Sub Command1_Click()
Dim F, M As Single
Text1 = "Футы: Метры:"
For F = 0 To 1000 Step 10
M = 0.305 * F
Text1 = Text1 & vbCrLf & F & " " & M
Next F
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Билет 19
Private Sub Command1_Click()
Dim F, M As Single
Text1 = "Фут/мин: М/c:"
For F = 0 To 4000 Step 100
M = 0.0051 * F
Text1 = Text1 & vbCrLf & F & " " & M
Next F
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Билет 20
Private Sub Command1_Click()
Dim KN, KM As Single
Text1 = "Узлы: Км/ч:"
For KN = 0 To 500 Step 10
KM = 1.85 * KN
Text1 = Text1 & vbCrLf & KN & " " & KM
Next KN
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Билет 21
Const S As Single = 0.001
Private Sub Command1_Click()
Picture1.Cls
Dim X As Single
Dim Y As Single
If Check1.Value = 1 Then
For X = -1 To 2 Step S
Y = X * (Sin(1 / X)) ^ 2
Picture1.PSet (X, Y), vbRed
Next X
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End If
If Check2.Value = 1 Then
Picture1.Line (-1, 0)-(2, 0), vbBlue
Picture1.Line (0, 0.8)-(0, -0.8), vbBlue
Label3.Caption = "-1"
Label4.Caption = "2"
Label5.Caption = "0,8"
Label6.Caption = "-0,8"
End If
End Sub
Private Sub Command2_Click()
Picture1.Cls
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub
Private Sub Form_Load()
Picture1.Scale (-1, 0.8)-(2, -0.8)
End Sub