Список источников информации
Дукин, А. Самоучитель Visual Basic 2010 (+ DVD-ROM)/ : А. Дукин, А. Пожидаев. - БХВ-Петербург, 2010. - 255 с.
Жарков, В. Основы программирования игр и приложений на Visual Basic 2008 и DirectX 10 для карманных компьютеров и коммуникаторов (+ CD-ROM). Жарков Пресс, 2008. – 504с.
Зиборов, В. Visual Basic 2010 на примерах. - БХВ-Петербург, 2010. - 336 с.
Лукин, С. Н. Visual Basic. Самоучитель для начинающих - Диалог-МИФИ, 2007. - 544 с.
Трусов, М.А. Visual Basic .NET. Практическое руководство для начинающего программиста. - НТ Пресс, 2006. - 176 с.
Хальворсон, М. Microsoft Visual Basic 2008 Step by Step. Microsoft Press, 2008. – 546с.
Аргузов, А.О. Создание проекта в Visual Basic. [Электронный ресурс]//. - 2012. - 23 мая. Адрес: http:// http://msdn.microsoft.com/ru-ru/library/eyzd6e34(v=vs.90).aspx
Бекман, И.Н. Лекция 8. ЯЗЫКИ ПРОГРАММИРОВАНИЯ [Электронный ресурс]//
КОМПЬЮТЕРНЫЕ НАУКИ. Курс лекций. - 2010. Адрес: http://http://profbeckman.narod.ru/Komp.files/Lec8.pdf
Программирование в Microsoft Office для пользователей. [Электронный ресурс]// Академия специальных курсов по компьютерным технологиям. -2009. Адрес: http:// http://www.askit.ru/custom/vba_office/m3/03_05_01_if_then_else.htm
Приложения
Приложение 1. Листинг программы
Private Sub Command1_Click()
window1.Visible = False
question1.Visible = True
End Sub
__________________________________
Option Explicit
Dim k1 As Byte 'счетчик правильных ответов на вопросы
Dim ball1 As Byte 'счетчик баллов макс.знач=2
Dim flag As Boolean
Dim slovo As String
Private Sub Command1_Click()
flag = False
ball1 = 0
slovo = Text1.Text + Text2.Text + Text3.Text + Text4.Text + Text5.Text + Text6.Text + Text7.Text + Text8.Text + Text9.Text + Text10.Text
If slovo = "узбекистан" Then flag = True
If slovo = "Узбекистан" Then flag = True
If slovo = "УЗБЕКИСТАН" Then flag = True
If flag = True Then
k1 = k1 + 1
'MsgBox ("Правильно")
ball1 = ball1 + 2
End If
If ball1 > 2 Then ball1 = 2
result.Text1.Text = k1
result.Text6.Text = ball1
MsgBox ("Для перехода к следующему вопросу нажмите кнопку ДАЛЕЕ")
'Print k
'Print flag
'Print slovo
End Sub
Private Sub Command2_Click()
question1.Visible = False
question2.Visible = True
End Sub
__________________________________
Option Explicit
Dim k2 As Byte 'счетчик правильных ответов на вопросы
Dim ball2 As Byte 'счетчик баллов макс.знач=2
Dim flag As Boolean
Dim slovo As String
Private Sub Command1_Click()
flag = False
slovo = Text1.Text
If slovo = "аист" Then flag = True
If slovo = "Аист" Then flag = True
If slovo = "аист " Then flag = True
If slovo = "Аист " Then flag = True
If slovo = "АИСТ" Then flag = True
If slovo = " аист" Then flag = True
If slovo = " Аист" Then flag = True
If slovo = " АИСТ" Then flag = True
If slovo = " аист " Then flag = True
If slovo = " Аист " Then flag = True
If slovo = " АИСТ " Then flag = True
If flag = True Then
k2 = k2 + 1
ball2 = ball2 + 2
'MsgBox ("Правильно")
End If
If ball2 > 2 Then ball2 = 2
result.Text2.Text = k2
result.Text7.Text = ball2
MsgBox ("Для перехода к следующему вопросу нажмите кнопку ДАЛЕЕ")
End Sub
Private Sub Command2_Click()
question2.Visible = False
question3.Visible = True
End Sub
__________________________________
Option Explicit
Dim k3 As Byte 'счетчик правильных ответов на вопросы
Dim ball3 As Byte 'счетчик баллов макс.знач=8
Dim flag As Boolean
Dim slovo1 As String
Dim slovo2 As String
Dim slovo3 As String
Dim slovo4 As String
Dim slovo5 As String
Dim slovo6 As String
Dim slovo7 As String
Dim slovo8 As String
Private Sub Command1_Click()
flag = False
ball3 = 0
k3 = 0
slovo1 = Text1.Text + Text2.Text + Text3.Text + Text4.Text
If slovo1 = "ЛИСТ" Then flag = True
If slovo1 = "Лист" Then flag = True
If slovo1 = "лист" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
flag = False
slovo2 = Text5.Text + Text6.Text + Text7.Text + Text8.Text + Text9.Text + Text10.Text
If slovo2 = "ПАНАМА" Then flag = True
If slovo2 = "Панама" Then flag = True
If slovo2 = "панама" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
flag = False
slovo3 = Text11.Text + Text12.Text + Text13.Text
If slovo3 = "ЛУК" Then flag = True
If slovo3 = "Лук" Then flag = True
If slovo3 = "лук" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
flag = False
slovo4 = Text14.Text + Text15.Text + Text16.Text
If slovo4 = "БОР" Then flag = True
If slovo4 = "Бор" Then flag = True
If slovo4 = "бор" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
flag = False
slovo5 = Text17.Text + Text18.Text + Text19.Text
If slovo5 = "ДУБ" Then flag = True
If slovo5 = "Дуб" Then flag = True
If slovo5 = "дуб" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
flag = False
slovo6 = Text20.Text + Text21.Text + Text22.Text + Text23.Text + Text24.Text + Text25.Text + Text26.Text + Text27.Text
If slovo6 = "ЧЕРЕПАХА" Then flag = True
If slovo6 = "Черепаха" Then flag = True
If slovo6 = "черепаха" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
flag = False
slovo7 = Text28.Text + Text29.Text + Text30.Text + Text31.Text + Text32.Text + Text33.Text
If slovo7 = "ЯБЛОКО" Then flag = True
If slovo7 = "Яблоко" Then flag = True
If slovo7 = "яблоко" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
flag = False
slovo8 = Text34.Text + Text35.Text + Text36.Text + Text37.Text
If slovo8 = "ГРАД" Then flag = True
If slovo8 = "Град" Then flag = True
If slovo8 = "град" Then flag = True
If flag = True Then
k3 = k3 + 1
ball3 = ball3 + 1
End If
If ball3 > 8 Then ball3 = 8
result.Text3.Text = k3
result.Text8.Text = ball3
'Print k3
'Print ball3
MsgBox ("Для перехода к следующему вопросу нажмите кнопку ДАЛЕЕ")
End Sub
Private Sub Command2_Click()
question3.Visible = False
question4.Visible = True
End Sub
__________________________________
Option Explicit
Dim k4 As Byte 'счетчик правильных ответов на вопросы
Dim ball4 As Byte 'счетчик баллов макс.знач=6
Dim flag As Boolean
Dim slovo1 As String
Dim slovo2 As String
Dim slovo3 As String
Private Sub Command1_Click()
' проверка для слова НИЛ
flag = False
slovo1 = Text1.Text
If slovo1 = "ил, нил" Then flag = True
If slovo1 = "Ил, Нил" Then flag = True
If slovo1 = "ИЛ, НИЛ" Then flag = True
If slovo1 = "ил, нил" Then flag = True
If slovo1 = "ил, Нил" Then flag = True
If slovo1 = "Ил, Нил" Then flag = True
If slovo1 = "ИЛ, НИЛ" Then flag = True
If slovo1 = " ил, нил" Then flag = True
If slovo1 = " ил, Нил" Then flag = True
If slovo1 = " Ил, Нил" Then flag = True
If slovo1 = " ИЛ, НИЛ" Then flag = True
If slovo1 = " ил, Нил " Then flag = True
If slovo1 = " Ил, Нил " Then flag = True
If slovo1 = " ИЛ, НИЛ " Then flag = True
If slovo1 = " ил, нил" Then flag = True
If slovo1 = " Ил, Нил" Then flag = True
If slovo1 = " ИЛ, НИЛ" Then flag = True
If slovo1 = " ил, нил " Then flag = True
If slovo1 = " ил, Нил " Then flag = True
If slovo1 = " Ил, Нил " Then flag = True
If slovo1 = " ИЛ, НИЛ " Then flag = True
If flag = True Then
k4 = k4 + 1
ball4 = ball4 + 3
'MsgBox ("Правильно")
End If
'проверка для слова полюс
flag = False
slovo2 = Text2.Text
If slovo2 = "плюс, полюс" Then flag = True
If slovo2 = "ПЛЮС, ПОЛЮС" Then flag = True
If slovo2 = "Плюс, Полюс" Then flag = True
If slovo2 = " плюс, полюс" Then flag = True
If slovo2 = " ПЛЮС, ПОЛЮС" Then flag = True
If slovo2 = " Плюс, Полюс" Then flag = True
If slovo2 = " плюс, полюс " Then flag = True
If slovo2 = " ПЛЮС, ПОЛЮС " Then flag = True
If slovo2 = " Плюс, Полюс " Then flag = True
If slovo2 = " плюс, полюс" Then flag = True
If slovo2 = " ПЛЮС, ПОЛЮС" Then flag = True
If slovo2 = " Плюс, Полюс" Then flag = True
If slovo2 = " плюс, полюс " Then flag = True
If slovo2 = " ПЛЮС, ПОЛЮС " Then flag = True
If slovo2 = " Плюс, Полюс " Then flag = True
If flag = True Then
k4 = k4 + 1
ball4 = ball4 + 3
'MsgBox ("Правильно")
End If
If ball4 > 6 Then ball4 = 6
result.Text4.Text = k4
result.Text9.Text = ball4
MsgBox ("Для перехода к следующему вопросу нажмите кнопку ДАЛЕЕ")
End Sub
Private Sub Command2_Click()
question4.Visible = False
question5.Visible = True
End Sub
__________________________________
Option Explicit
Dim k5 As Byte 'счетчик правильных ответов на вопросы
Dim ball5 As Byte 'счетчик баллов макс.знач=4
Dim flag As Boolean
Dim slovo1 As String
Dim slovo2 As String
Private Sub Command1_Click()
ball5 = 0
' проверка для слова ПОПУГАЙ
flag = False
slovo1 = Text1.Text
If slovo1 = "попугай" Then flag = True
If slovo1 = "Попугай" Then flag = True
If slovo1 = "ПОПУГАЙ" Then flag = True
If slovo1 = " попугай" Then flag = True
If slovo1 = " Попугай" Then flag = True
If slovo1 = " ПОПУГАЙ" Then flag = True
If slovo1 = " попугай " Then flag = True
If slovo1 = " Попугай " Then flag = True
If slovo1 = " ПОПУГАЙ " Then flag = True
If slovo1 = " попугай" Then flag = True
If slovo1 = " Попугай" Then flag = True
If slovo1 = " ПОПУГАЙ" Then flag = True
If slovo1 = " попугай " Then flag = True
If slovo1 = " Попугай " Then flag = True
If slovo1 = " ПОПУГАЙ " Then flag = True
If flag = True Then
k5 = k5 + 1
ball5 = ball5 + 2
'MsgBox ("Правильно")
End If
'проверка для слова ДИКОБРАЗ
flag = False
slovo2 = Text2.Text
If slovo2 = "дикобраз" Then flag = True
If slovo2 = "Дикобраз" Then flag = True
If slovo2 = "ДИКОБРАЗ" Then flag = True
If slovo2 = " дикобраз" Then flag = True
If slovo2 = " Дикобраз" Then flag = True
If slovo2 = " ДИКОБРАЗ" Then flag = True
If slovo2 = " дикобраз " Then flag = True
If slovo2 = " Дикобраз " Then flag = True
If slovo2 = " ДИКОБРАЗ " Then flag = True
If slovo2 = " дикобраз" Then flag = True
If slovo2 = " Дикобраз" Then flag = True
If slovo2 = " ДИКОБРАЗ" Then flag = True
If slovo2 = " дикобраз " Then flag = True
If slovo2 = " Дикобраз " Then flag = True
If slovo2 = " ДИКОБРАЗ " Then flag = True
If flag = True Then
k5 = k5 + 1
ball5 = ball5 + 2
'MsgBox ("Правильно")
End If
If ball5 > 4 Then ball5 = 4
'Print k5
'Print ball5
result.Text5.Text = k5
result.Text10.Text = ball5
result.Text11.Text = Val(result.Text10.Text) + Val(result.Text9.Text) + Val(result.Text8.Text) + Val(result.Text7.Text) + Val(result.Text6.Text)
MsgBox ("Получения результата нажмите кнопку ДАЛЕЕ")
End Sub
Private Sub Command2_Click()
question5.Visible = False
result.Visible = True
End Sub
__________________________________
__________________________________
Option Explicit
Private Sub Command1_Click()
End
End Sub
Приложение 2. Скриншоты
|
