СОЗДАТЬ программу ТЕСТ через 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")

Как то так;)

отпишись в почту

легко сделаю пиши в агент или на почту.
варианты вопросов и ответов есть?
присылай.
$

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

Это код. Но из него ничего не понять сейчас кину исходники!