تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود لإظهار نتيجة الاختبار
#1
السلام عليكم اخواني

مطلوب مني اصمم برنامج معلومات في اخره اختبار بسيط
عملت كل شي بس توقفت عن الكومن الي اذا ضغطه تظهر نتيجة الاختبار ..
اتمني مساعدتكم..

هذا الكود الي استخدمته

كود :
Dim qno, question(), ans(), correct(), response()
Const numq = 4    ' total number of questions

Private Sub cmdNext_Click()
qno = qno + 1

SetQuestion

End Sub

Private Sub Command1_Click()



End Sub
Private Sub Command2_Click()
Qiuz1.Hide
Chapter1.Show
End Sub

Private Sub Form_Load()
ReDim question(numq), ans(numq, 4), correct(numq), response(numq)
FillArrays
qno = 1
SetQuestion

End Sub

Private Sub SetQuestion()

cmdNext.Enabled = (qno <> numq)
lblQno.Caption = qno
lblQuestion.Caption = question(qno)
For n = 1 To 4
   optAns(n).Caption = ans(qno, n)
   optAns(n).Value = False
Next
If response(qno) <> "" Then
   optAns(response(qno)).Value = True
End If

End Sub

Private Sub FillArrays()
question(1) = "What is the most popular programming language in the world?"
ans(1, 1) = "C++"
ans(1, 2) = "Pascal"
ans(1, 3) = "Visual Basic"
ans(1, 4) = "Java"
correct(1) = 3  ' the correct answer, Visual Basic,
' has the index value 3 above


question(2) = "Which VB control has no caption property?"
ans(2, 1) = "Textbox"
ans(2, 2) = "Commandbutton"
ans(2, 3) = "Label"
ans(2, 4) = "PictureBox"
correct(2) = 1  ' the correct answer to the second
' question is answer 1, "textbox"

question(3) = "What would this code display? MsgBox(2 + 2 / 2 + 2)"
ans(3, 1) = "1"
ans(3, 2) = "4.5"
ans(3, 3) = "5"
ans(3, 4) = "An error message"
correct(3) = 3  ' VB will do the division first, then 2+1+2

question(4) = "When a VB program is run, which event happens first?"
ans(4, 1) = "Dim"   ' not an event
ans(4, 2) = "Form_Load"
ans(4, 3) = "cmd1_Click"
ans(4, 4) = "Form_Run"
correct(4) = 2



End Sub

Private Sub optAns_Click(Index As Integer)
response(qno) = Index
End Sub

الرد }}}}
تم الشكر بواسطة:
#2
أهلا , طريقة كتابتك لكود الأسئلة والإجوبة والجواب الصحيح بإستخدام المصفوفات جميلة وسلسه , تم إكمال كود زر النتيجة , في المرفقات .


الملفات المرفقة
.rar   Questions.rar (الحجم : 2.56 ك ب / التحميلات : 19)
الرد }}}}
تم الشكر بواسطة: said.89
#3
(28-12-14, 09:42 PM)Ahmed_Mansoor كتب : أهلا , طريقة كتابتك لكود الأسئلة والإجوبة والجواب الصحيح بإستخدام المصفوفات جميلة وسلسه , تم إكمال كود زر النتيجة , في المرفقات .


اشكرك اخي احمد جزاك الله الخير Smile ... ردك كان الاجمل ما قصرت
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم