Public Class Form1
Dim a, b, p, n, s1, s2, c1, p1, p2, p3, p4, p5 As Integer
Dim otvet As String
Dim otet As String
Dim c, o1, o2, o3 As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'таблица умножения
…
Randomize()
Label1.Text = Int(Rnd() * 10 + 1)
a = Label1.Text
Label3.Text = Int(Rnd() * 10 + 1)
b = Label3.Text
1: c = InputBox("Дайте ответ", "Ответ", "", 300, 500)
If c <> "" Then
If IsNumeric(c) Then
If c = a * b Then
PictureBox1.Show()
PictureBox1.Image = Image.FromFile("11.JPG")
MsgBox("МОЛОДЕЦ!"): p = p + 1
Label5.Text = a * b
Else
PictureBox1.Show()
PictureBox1.Image = Image.FromFile("2.JPG")
MsgBox("НЕ ПРАВИЛЬНО! Попробуй ещё раз.")
n = n + 1
2: c = InputBox("Дайте ответ", "Ответ", "", 300, 500)
If c <> "" Then
If IsNumeric(c) Then
If c = a * b Then
PictureBox1.Show()
PictureBox1.Image = Image.FromFile("11.JPG")
MsgBox("МОЛОДЕЦ!")
Label5.Text = a * b
Else
PictureBox1.Show()
PictureBox1.Image = Image.FromFile("2.JPG")
MsgBox("НЕ ПРАВИЛЬНО! Попробуй ещё раз.")
GoTo 2
End If
Else
MsgBox("Вводите только числа"): GoTo 2
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Exit Sub
Else
GoTo 2
End If
End If
End If
Else
MsgBox("Вводите только числа"): GoTo 1
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Exit Sub
Else
GoTo 1
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = "Правильных ответов " & p & ", Неправильных ответов " & n
p = 0
n = 0
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'ПРИРОДНЫЕ ЗОНЫ
p3 = 0
1: TextBox1.Text = "1. Кто живет в ледяной пустыне?"
PictureBox2.Image = Image.FromFile("1.1.JPG")
PictureBox3.Image = Image.FromFile("1.3.JPG")
PictureBox4.Image = Image.FromFile("1.7.JPG")
otvet = InputBox("Впишите вариант правильного ответа", "Ответ", "", 300, 500)
If otvet <> "" Then
If IsNumeric(otvet) Then
If otvet = 2 Then
MsgBox("Молодец!"): p3 = p3 + 1
Else
MsgBox("Не верно! Правильный ответ 2!")
End If
Else
MsgBox("Вводите только числа"): GoTo 1
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Exit Sub
Else
GoTo 1
End If
End If
2: TextBox1.Text = "2. Кто живет в тундре?"
PictureBox2.Image = Image.FromFile("1.11.JPG")
PictureBox3.Image = Image.FromFile("1.6.JPG")
PictureBox4.Image = Image.FromFile("1.2.JPG")
otvet = InputBox("Впишите вариант правильного ответа", "Ответ", "", 300, 500)
If otvet <> "" Then
If IsNumeric(otvet) Then
If otvet = 1 Then
MsgBox("Молодец!"): p3 = p3 + 1
Else
MsgBox("Не верно! Правильный ответ 1!")
End If
Else
MsgBox("Вводите только числа"): GoTo 2
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Exit Sub
Else
GoTo 2
End If
End If
......................
6: TextBox1.Text = "6. Кто живет в тундре?"
PictureBox2.Image = Image.FromFile("21.JPG")
PictureBox3.Image = Image.FromFile("1.4.JPG")
PictureBox4.Image = Image.FromFile("1.13.JPG")
otvet = InputBox("Впишите вариант правильного ответа", "Ответ", "", 300, 500)
If otvet <> "" Then
If IsNumeric(otvet) Then
If otvet = 1 Then
MsgBox("Молодец!"): p3 = p3 + 1
Else
MsgBox("Не верно! Правильный ответ 1!")
End If
Else
MsgBox("Вводите только числа"): GoTo 6
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Exit Sub
Else
GoTo 6
End If
End If
TextBox2.Text = "У тебя " & p3 & " правильных ответа из 6."
End Sub
Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'словарные слова
p5 = 0
Label6.Show()
Label6.Text = "м..локо"
1: otet = InputBox("Впиши в окошко маленькую букву русского алфавита")
If otet <> "" Then
If otet = "о" Then
Label6.Text = "молоко": MsgBox("Молодец!"): p5 = p5 + 1
Else
21: MsgBox("Не верно! Подумай ещё!")
otet = InputBox("Впиши в окошко маленькую букву русского алфавита")
If otet <> "" Then
If otet = "о" Then
Label6.Text = "молоко": MsgBox("Молодец!")
Else
GoTo 21
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Button7.Hide()
Label6.Hide()
Exit Sub
Else
GoTo 1
End If
End If
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Button7.Hide()
Label6.Hide()
Exit Sub
Else
GoTo 1
End If
End If
Label6.Text = "т..лько"
2: otet = InputBox("Впиши в окошко маленькую букву русского алфавита")
If otet <> "" Then
If otet = "о" Then
Label6.Text = "только": MsgBox("Молодец!"): p5 = p5 + 1
Else
22: MsgBox("Не верно! Подумай ещё!")
otet = InputBox("Впиши в окошко маленькую букву русского алфавита")
If otet <> "" Then
If otet = "о" Then
Label6.Text = "только": MsgBox("Молодец!")
Else
GoTo 22
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Button7.Hide()
Label6.Hide()
Exit Sub
Else
GoTo 2
End If
End If
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Button7.Hide()
Label6.Hide()
Exit Sub
Else
GoTo 2
End If
End If
....................
Label6.Text = "сн..чала"
11: otet = InputBox("Впиши в окошко маленькую букву русского алфавита")
If otet <> "" Then
If otet = "а" Then
Label6.Text = "сначала": MsgBox("Молодец!"): p5 = p5 + 1
Else
32: MsgBox("Не верно! Подумай ещё!")
otet = InputBox("Впиши в окошко маленькую букву русского алфавита")
If otet <> "" Then
If otet = "а" Then
Label6.Text = "сначала": MsgBox("Молодец!")
Else
GoTo 32
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Button7.Hide()
Label6.Hide()
Exit Sub
Else
GoTo 11
End If
End If
End If
Else
o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)
If o3 = MsgBoxResult.Yes Then
MsgBox("Очень жаль. Пока!")
Button7.Hide()
Label6.Hide()
Exit Sub
Else
GoTo 11
End If
End If
Label6.Hide()
Button7.Hide()
TextBox2.Show()
Select Case p5
Case 11
TextBox2.Text = "Правильных ответов: " & p5 & ". Отлично! Какой ты умный!!!"
Case 10, 9
TextBox2.Text = "Правильных ответов: " & p5 & ". Хорошо! Ты неплохо постарался!"
Case 8, 7, 6
TextBox2.Text = "Правильных ответов: " & p5 & ". Твоя оценка: Удовлетворительно. Учи словарные слова! "
Case 5, 4, 3, 2, 1, 0
TextBox2.Text = "Правильных ответов: " & p5 & ". Срочно берись за учебник! У тебя всё получится!"
End Select
End Sub