محتاااااااج مساعدة الخبراء

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Structure Question

[color= #000000; font-weight: bold;]Public Question [color= #b1b100;]As String

[color= #000000; font-weight: bold;]Public Answers[color= #009900;]([color= #009900;]) [color= #b1b100;]As String

[color= #000000; font-weight: bold;]Public CorrectIndex [color= #b1b100;]As Short

[color= #000000; font-weight: bold;]Public MQuesion [color= #b1b100;]As Double

[color= #990000;]End Structure

 

[color= #000000; font-weight: bold;]Private Questions[color= #009900;]([color= #009900;]) [color= #b1b100;]As [color= #990000;]List[color= #009900;]( Of Question [color= #009900;])

[color= #000000; font-weight: bold;]Private CurrentIndex [color= #b1b100;]As Integer [color= #339933;]= [color= #cc66cc;]0

[color= #000000; font-weight: bold;]Private [color= #990000;]Rand [color= #b1b100;]As [color= #000000; font-weight: bold;]New Random 

[color= #000000; font-weight: bold;]Private StudentResult [color= #b1b100;]As Double [color= #339933;]= [color= #cc66cc;]0

 

[color= #000000; font-weight: bold;]Private Sub Form1_Load[color= #009900;]( Byval Sender [color= #b1b100;]As Object[color= #339933;], Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles MyBase[color= #339933;].Lo
ad

SetNextQuestion[color= #009900;]([color= #009900;])

[color= #990000;]End Sub

 

[color= #000000; font-weight: bold;]Private Sub SetNextQuestion[color= #009900;]([color= #009900;])

CurrentIndex [color= #339933;]= [color= #990000;]Rand[color= #339933;].[color= #990000;]Next[color= #009900;]( [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]99 [color= #009900;])

With Questions[color= #009900;]( CurrentIndex [color= #009900;])

Label1[color= #339933;].Text [color= #339933;]= [color= #339933;].Question

RadioButton1[color= #339933;].Text [color= #339933;]= [color= #339933;].Answers[color= #009900;]( [color= #cc66cc;]0 [color= #009900;])

RadioButton2[color= #339933;].Text [color= #339933;]= [color= #339933;].Answers[color= #009900;]( [color= #cc66cc;]1 [color= #009900;])

RadioButton3[color= #339933;].Text [color= #339933;]= Answers[color= #009900;]( [color= #cc66cc;]2 [color= #009900;])

RadioButton2[color= #339933;].Text [color= #339933;]= [color= #339933;].Answers[color= #009900;]( [color= #cc66cc;]3 [color= #009900;])

[color= #990000;]End With

[color= #990000;]End Sub

 

[color= #000000; font-weight: bold;]Private Sub BtnAnswerAndGetAnother_Click[color= #009900;]( Byval Sender [color= #b1b100;]As Object[color= #339933;], Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;])
 Handles BtnAnswerAndGetAnother[color= #339933;].Click

Dim SelectedIndex [color= #b1b100;]As Short [color= #339933;]= [color= #cc66cc;]0

[color= #b1b100;]If GetWhatStudentChose [color= #339933;]= Questions[color= #009900;]( CurrentIndex [color= #009900;])[color= #339933;].CorrectAnswer Then StudentResult [color= #339933;]+= Question
s[color= #009900;]( CurrentIndex [color= #009900;])[color= #339933;].MQuestion

[color= #990000;]End Sub

 

[color= #000000; font-weight: bold;]Private [color= #000000; font-weight: bold;]Function GetWhatStudentChose[color= #009900;]([color= #009900;]) [color= #b1b100;]As Short

Selected [color= #b1b100;]Case [color= #000000; font-weight: bold;]True

[color= #b1b100;]Case [color= #009900;](RadioButton1[color= #339933;].Checked [color= #009900;])

[color= #b1b100;]Return [color= #cc66cc;]1

[color= #b1b100;]Case [color= #009900;](RadioButton2[color= #339933;].Checked [color= #009900;])

[color= #b1b100;]Return [color= #cc66cc;]2

[color= #b1b100;]Case [color= #009900;](RadioButton3[color= #339933;].Checked [color= #009900;])

[color= #b1b100;]Return [color= #cc66cc;]3

[color= #b1b100;]Case [color= #009900;](RadioButton4[color= #339933;].Checked [color= #009900;])

[color= #b1b100;]Return [color= #cc66cc;]4

[color= #b1b100;]Case [color= #b1b100;]Else

[color= #b1b100;]Return [color= #cc66cc;]0

[color= #990000;]End Selected

[color= #990000;]End [color= #000000; font-weight: bold;]Function

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class