basic to Conduct an online competitive exam.

Draw flowchart, write an algorithm and program in visual basic to Conduct an online competitive exam. The exam should contain any five questions. User will be given four choices as an answer. Give 10 marks for every correct answer and 0 for every wrong answer. Display summery of result at the end.

Q1 form
Public marks As Integer
Public f1, f2, f3, f4, f5 As Boolean
Private Sub cmdNext_Click()
If opt Float.Value = True Then
marks = merks + 10
f1 = True
Else
marks = marks + 0
f1 = False
End If
frmQ2 .Show
End Sub

Q2 Form
Private Sub Command1_Click()
If optDev.Value = True Then
frmQl.marks = frmQl.marks + 10
frmQl.f2 = True
Else
frmQl.marks = frmQl.marks + 0
frmQl.f2 = False
End If
frmQ3.Show
End Sub

Q3 Form
Private Sub cmdNext_Click()
If optFoxPro. Value = True Then
frmQ1. marks = frmQl.marks + 10
frmQl.f3 = True
Else
frmQ1. marks = frmQl.marks + 0
frmQ1.f3 = False
End If
frmQ4.Show
End Sub

Q4 Form
Private Sub cmdNext_Click()
If optVbgreen. Value = True Then
frmQ1.marks = frmQ1.marks + 10
frmQ1.f4 = True
Else
frmQ1. marks = frmQl. marks + 0
frmQ1.f4 = False
End If
frmQ5.Show
End Sub

Q5 Form
Private Sub cmdNext_Click()
If opt False. Value = True Then
frmQ1.marks = frmQ1.marks + 10
frmQ1.f5 = True
Else
frmQ1. marks = frmQ1.marks + 0
frmQ1.f5 = False
End If
frmResult.Show
End Sub

Result Form
Private Sub cmdTotal_Click().
If frmQ1. f1 = True Then
txtQ1.Text = "Correct"
Else
txtQ1.Text = "Wrong"
End If
If frmQl.f2 = True Then
txtQ2.Text = "Correct"
Else
txtQ2.Text = "Wrong"
End If
If frmQl.f3 = True Then
txtQ3.Text = "Correct"
Else
txtQ3.Text = "Wrong"
End If
If frmQl.f4 = True Then
txtQ4.Text = "Correct"
Else
txtQ4.Text = "Wrong"
End If
If frmQl.f5 = True Then
txtQ5.Text = "Correct"
Else
txtQ5.text = "Wrong"
txtMarkS.Text = frmQl.marks
End Sub
Private Sub cmdExit_Click()
End
End Sub