Здрасте уважаемые!
нашел я на форуме код генератора случ.чисел (делаю прогу - "тестирование" на ВБ)
Нашел я кодик , который написал глубокоуважаемый Akina
| Код |
random = (Rnd * (max - min + 1)) Mod (max - min + 1) + min
|
но почему то когда вставил этот кусок в свою прогу ничего не получилось  , точнее получилось не то что надо!
Идея в общем такая была: есть бд с тестами и вариантами правильных ответов, форма куда это дело выводится, соль в том что при загрузке проги каждый раз должны появлятся разные вопросы, а они появ-ся в одинаковом порядке, вот код мой:
| Код |
Private Sub Form_Load()
Command1.Top = Command1.Top - 10
Command1.Left = Command1.Left - 10
Command1.Visible = False
max = 10
min = 1
random = (Rnd * (max - min + 1)) Mod (max - min + 1) + min
Set cn = New ADODB.Connection
cn.Open "Provider=MSDASQL.1;server=localhost;port=3306;Data Source=nusphere mysql;database=TestsFromDiplom; "", "" "
Set rs = New ADODB.Recordset
rs.Open "select * from tests where id = '" & random & "'", cn, adOpenKeyset, adLockOptimistic
Label2.Caption = rs!Question
Text1.Text = rs!VariantA
Text2.Text = rs!VariantB
Text3.Text = rs!VariantC
Text4.Text = rs!VariantD
Text5.Text = rs!VariantE
rs.Close
End Sub
|
первым появляется один и тот же вопрос, да и последовательность такая же, может я че не так делаю, не могу понять , прошу помощи!
С уважением Graf |
