Задам вопрос по другому...

[Terarist]

Напишите пожжайлуста код, чтобы в тестовой программе вопрос с ответом читался из блокнотовско файла, вопрос появлялся в проекте в лэбеле, а ответ вводится пользователем в ТЕХТ и если ответ пользователя совподает с ответом в файле, то пусть допустим вылазиет сообшение "правельно"...???

[Damage]

Помоему так:

Код: Выделить всё

Option Explicit
Dim Qtext(100) 'Полные строки
Dim Vopros(100) 'вопросы
Dim Otvet(100) 'ответы :)
Dim TempArr(3)
Dim schet
Dim scet2
Private Sub Command1_Click()
If Text1.Text = Otvet(schet2) Then MsgBox "Правильно!"
schet2 = scet2 + 1
Call Print_vopros
End Sub
Private Sub Form_Load()
Open "test.txt" For Input Shared As #1
Do While Not EOF(1)
Line Input #1, Qtext(schet)
TempArr = Split(Qtext(schet), "|")
Vopros(schet) = TempArr(0)
Otvet(schet) = TempArr(1)
schet = schet + 1
Loop
Close #1
Call Print_vopros
End Sub
Private Sub Print_vopros()
Label1.Caption = Vopros(schet2)
Text1.Text = ""
End Sub


Формат файла

Вопрос1|Ответ1
Вопрос2|Ответ2
......

[Trojan Lord]

'Запростo:
'надо добавить 5 textbox, 1 command, 1 label
'создать файл c:\vopr.dat и вписать 5 строк:
' 1. Сам вопрос
' 2. 1ответ
' 3. 2ответ
' 4. 3ответ
' 5. правильный ответ

Dim Lines(1 to 5) as String

Private Sub Form1_Load()

open "C:\vopr.dat") for input as #1
line input #1, lines(1)
line input #1, lines(2)
line input #1, lines(3)
line input #1, lines(4)
line input #1, lines(5)
close #1

label1.caption=lines(1)
text1.text=lines(2)
text2.text=lines(3)
text3.text=lines(4)
text4.text=lines(4)
text4.visible=False
End Sub

Private Sub Command1_Click()
if text5.text=text4.text ' or text5.text = lines(4) then
msgbox "Правильно"
else
msgbox "Неправиильно"
end if
End Sub

[Terarist]

На счёт первого кода: надо попробовать, по моему он чаго-то напутан
На счёт второго: ты меня не понял прочитай что я хотел, только правельный вариант ответа, а пользователь должен ну угадать его чтоле...

[Terarist]

Да, ещё на счёт первого кода, еслиб ты мне прислал проект с файлом с примером вопроса и ответа, чтобы я понял как там всё должно распологаться...
П.С. Я быб бы очень благодарен...!!!

[Damage]

Выслал. Смотри, пробуй. С вопросами на аську.

[Terarist]

Всё идеально, но если ты ответил не правельно, то этот вопрос задаётся опять, но я это исправлю, огромное пасиба...!!!

[Terarist]

Всё идеально, но если ты ответил не правельно, то этот вопрос задаётся опять, но я это исправлю, огромное пасиба...!!!

[Damage]

Ды это я специально сделал, дабы проиллюстрировать.