Public i, k, n As Integer
Private Sub Command1_Click()
If i = 4 Or i = 8 Or i = 9 Or i = 11 Or i = 12 Or i = 13 Then
k = k + 1: Form2.Print k
Else
n = n + 1
End If
Call ttt
Call bbb
End Sub
Private Sub Command2_Click()
If i = 1 Or i = 2 Or i = 6 Or i = 14 Or i = 20 Then
k = k + 1: Form2.Print k
Else
n = n + 1
End If
Call ttt
Call bbb
End Sub
Private Sub Command3_Click()
If i = 3 Or i = 5 Or i = 7 Or i = 10 Or i = 15 Or i = 17 Or i = 19 Then
k = k + 1: Form2.Print k
Else
n = n + 1
End If
Call ttt
Call bbb
End Sub
Private Sub Command4_Click()
If i = 16 Or i = 18 Then
k = k + 1: Form2.Print k
Else
n = n + 1
End If
Call ttt
Call bbb
End Sub
Private Sub Form_Load2()
Form2.Move (Screen.Width - Form2.Width) / 2, (Screen.Height - Form2.Height) / 2
i = 1
Call ttt
Call bbb
End Sub
Private Sub ttt()
If i = 1 Then
Text1.Text = "Какие транспортные средства по правилам относятся к маршрутным транспортным средствам?"
End If
If i = 2 Then
Text1.Text = "В каких направлениях Вам разрешено продолжить движение?": Image1.Picture = LoadPicture(".\pdd_01_02.jpg")
End If
If i = 3 Then
Text1.Text = "Этот дорожный знак указывает:": Image1.Visible = False
End If
If i = 4 Then
Text1.Text = "Каким транспортным средствам запрещена стоянка в обозначенной знаком зоне в выходные и праздничные дни?": Image1.Visible = True: Image1.Picture = LoadPicture(".\Ko2.jpg")
End If
If i = 5 Then Text1.Text = "Эта разметка, нанесенная на полосе движения"
End If
If i = 6 Then Text1.Text = "Что означает мигание зеленого сигнала светофора?"
End If
If i = 7 Then Text1.Text = "Обязаны ли Вы в данной ситуации подать сигнал правого поворота?"
End If
If i = 8 Then Text1.Text = "Кто должен уступить дорогу при одновременном перестроении?"
End If
If i = 9 Then Text1.Text = "По какой траектории Вы имеете право выполнить разворот, управляя автопоездом, имеющим большую длину?"
End If
If i = 10 Then Text1.Text = "С какой скоростью Вы можете продолжить движение вне населенного пункта по левой полосе на грузовом автомобиле с разрешенной максимальной массой более 3,5 т?"
End If
If i = 11 Then Text1.Text = "Может ли водитель легкового автомобиля в населенном пункте выполнить опережение грузовых автомобилей по такой траектории?"
End If
If i = 12 Then Text1.Text = "Разрешено ли водителю поставить автомобиль на стоянку в указанном месте?"
End If
If i = 13 Then Text1.Text = "Вы намерены повернуть направо. Следует ли уступить дорогу автобусу?"
End If
If i = 14 Then Text1.Text = "Вы намерены проехать перекресток в прямом направлении. Ваши действия?"
End If
If i = 15 Then Text1.Text = "Вы намерены повернуть налево. Кому следует уступить дорогу?"
End If
If i = 16 Then Text1.Text = "С какой максимальной скоростью Вы сможете продолжить движение за знаком?"
End If
If i = 17 Then Text1.Text = "Какие внешние световые приборы Вы можете использовать при движении в темное время суток на неосвещенных участках дорог?"
End If
If i = 18 Then Text1.Text = "При какой неисправности разрешается эксплуатация транспортного средства?"
End If
If i = 19 Then Text1.Text = "В случае, когда правые колеса автомобиля наезжают на неукрепленную влажную обочину, рекомендуется:"
End If
If i = 20 Then Text1.Text = "Начиная сердечно-легочную реанимацию следует только при:"
End Sub
Private Sub bbb()
If i <= 20 Then
i = i + 1: Form2.Print k
Else
Label2.Caption = k
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End If
End Sub
Private Sub Form_Load()
End Sub