Visual basic программа тест
Автор Aziz Rzaev задал вопрос в разделе Другие языки и технологии
СОЗДАТЬ программу ТЕСТ через Visual Basic и получил лучший ответ
Ответ от
Ого ну начнём стого что тебе надо:
label с вопросом
4 Option - для ответов
Ну там сам додумывай как сробатывать будет.. .
Проверку можно осуществить вот так:
IF (question=1 and answear=3) THEN point=point+1
Если юзер на 1 вопрос (question=1) выбрал 3 вариант то бал прибовляется... .
С проверкой балов проще:
IF point>=8 THEN msgbox("Ваша оценка 5")
IF (point>=5 and point<=7) THEN msgbox("Ваша оценка 4")
IF (point>=3 and point<5) THEN msgbox("Ваша оценка 3")
IF point<=2 THEN msgbox("Ваша оценка 4")
Как то так;)
Ответ от Hlmad xz[гуру]
отпишись в почту
отпишись в почту
Ответ от Алексей Коряков[гуру]
легко сделаю пиши в агент или на почту.
варианты вопросов и ответов есть?
присылай.
$
легко сделаю пиши в агент или на почту.
варианты вопросов и ответов есть?
присылай.
$
Ответ от Евгений Пальмов[гуру]
Dim i, L, Bool, N, U, Q As Integer
Dim Ask(99), AskTrue(99), Answer(99) As String
Dim Answer_1(99), Answer_2(99), Answer_3(99), Answer_4(99) As String
Private Sub CmdButton_Click()
Select Case Bool
Case 0:
CmdButton.Caption = "Начать"
Dialog.ShowOpen
Open Dialog.FileName For Input As 1
Input #1, N
For i = 1 To N
Input #1, Ask(i), Answer_1(i), Answer_2(i), Answer_3(i), Answer_4(i), AskTrue(i)
Next i
L = 1
U = 0
Bool = 1
Case 1:
CmdButton.Caption = "Дальше"
RunStep
If AskTrue(L) = Answer(L) Then U = U + 1
If L = N + 2 Then
MsgBox ("Всего верно: " & U)
Bool = 0
CmdButton.Caption = "Загрузить"
End If
End Select
End Sub
Private Sub RunStep()
TxtAnswer.Text = Ask(L)
OptAnswer(0).Caption = Answer_1(L)
OptAnswer(1).Caption = Answer_2(L)
OptAnswer(2).Caption = Answer_3(L)
OptAnswer(3).Caption = Answer_4(L)
L = L + 1
End Sub
Private Sub Form_Load()
Dialog.DialogTitle = "Выберите файл... "
Dialog.DefaultExt = "*.txt"
Dialog.Filter = "Текстовые файлы (*.txt)"
Dialog.FilterIndex = 1
Dialog.MaxFileSize = 32767
End Sub
Private Sub OptAnswer_Click(Index As Integer)
Answer(L) = Index
End Sub
Это код. Но из него ничего не понять сейчас кину исходники!
Dim i, L, Bool, N, U, Q As Integer
Dim Ask(99), AskTrue(99), Answer(99) As String
Dim Answer_1(99), Answer_2(99), Answer_3(99), Answer_4(99) As String
Private Sub CmdButton_Click()
Select Case Bool
Case 0:
CmdButton.Caption = "Начать"
Dialog.ShowOpen
Open Dialog.FileName For Input As 1
Input #1, N
For i = 1 To N
Input #1, Ask(i), Answer_1(i), Answer_2(i), Answer_3(i), Answer_4(i), AskTrue(i)
Next i
L = 1
U = 0
Bool = 1
Case 1:
CmdButton.Caption = "Дальше"
RunStep
If AskTrue(L) = Answer(L) Then U = U + 1
If L = N + 2 Then
MsgBox ("Всего верно: " & U)
Bool = 0
CmdButton.Caption = "Загрузить"
End If
End Select
End Sub
Private Sub RunStep()
TxtAnswer.Text = Ask(L)
OptAnswer(0).Caption = Answer_1(L)
OptAnswer(1).Caption = Answer_2(L)
OptAnswer(2).Caption = Answer_3(L)
OptAnswer(3).Caption = Answer_4(L)
L = L + 1
End Sub
Private Sub Form_Load()
Dialog.DialogTitle = "Выберите файл... "
Dialog.DefaultExt = "*.txt"
Dialog.Filter = "Текстовые файлы (*.txt)"
Dialog.FilterIndex = 1
Dialog.MaxFileSize = 32767
End Sub
Private Sub OptAnswer_Click(Index As Integer)
Answer(L) = Index
End Sub
Это код. Но из него ничего не понять сейчас кину исходники!
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: СОЗДАТЬ программу ТЕСТ через Visual Basic