Контрольная работа: Создание теста на Visual Basic

MsgBox "Добрыйдень" & ". Вас приветствует тестовая программа"

Else

IfTime >= 0.7 Then

MsgBox "Добрый вечер" & ". Вас приветствует тестовая программа"

End If

End If

End If

End Sub

Выставлениеоценки

Public Sub resultat()

If prav_otv = 0 Then

Call MsgBox("Всего правильных ответов " + CStr(prav_otv) + " из 4" + vbCrLf + "Оценка 2", vbCritical + vbOKOnly, "Tester")

EndIf

Запись полученной оценки в базу данных

Call Database.QueryMySQL("INSERT INTO test.rezyltat (ocenca)" + _

"VALUES ('" + CStr(2) + "');")

ПРИЛОЖЕНИ Е В

Запись данных в базу данных MySQl:

Call Database.QueryMySQL("INSERT INTO test.svedenia (Familia_Imia, gruppa)" + _

"VALUES ('" + TextBox1.Text + "', '" + TextBox2.Text + "');")

Выборслучайноготеста:

a = Database.QueryMySQL("SELECT * FROM test.vopros ORDER BY RAND() LIMIT 4")