فكرة عمل برنامج اختبارات

اقتباس

لكن المشكله ان الجدول مايحتمل كتابة سؤال طويل جدا كقطعة الفهم .

اذا كنت تستخدم الاكسس فاجعل نوع الحقلMemo

اقتباس

هل اعمل جدول لكل نوع من الاسئله

اعمل جدول لانواع الاسئله وجدول للاسئله واجعل الرابط بينهما نوع الاسئله .

مرحبا كما قال الأخ العقدة اجعل حقل السؤال مذكرة أي memo

وكما قال أيضاً (اعمل جدول لانواع الاسئله وجدول للاسئله واجعل الرابط بينهما نوع الاسئله .)

-----> أو اعمل حقل خاص بنوع الأسئلة ضمن جدول الأسئلة .. تحياتي

فكرة رائعه

ولكن كيف يتم الاختيار عشوائيا من كل نوع من الاختبارات

بحيث تكون المحصله ورقه اسئله منسقه جاهزه

استخدم هذا الكود فهو يقوم باختيار عشوائي بين رقمين وهذ مثال :

Dim RanNo() As Long, RanNo2() As Long, bersl As Integer

Private Sub RandomizeNumbers(ByVal iFrom As Long, ByVal iTo As Long)
	ReDim RanNo(iFrom To iTo)
	For i = iFrom To iTo
		RanNo(i) = i
	Next i
	Randomize (Timer)
	For i = iFrom To iTo
		j = CLng((iTo - iFrom) * Rnd + iFrom)
		tmp = RanNo(i)
		RanNo(i) = RanNo(j)
		RanNo(j) = tmp
	Next i
End Sub
Private Sub Command1_Click()
RandomizeNumbers 1, 20
Cls

For x = 1 To 20
	Print RanNo(x)
Next x

End Sub