新手【基于vb】简单考试系统，请问这个情况要怎样计算选择题分数

超级新手，好不容易弄出界面却又不会计算分数了T_T 是真的不知道怎么写了
显示的是前4题单选题，最简单的access
Do While i<5
dr.Read()
message.Innerhtml &= dr.Item("题号") &"." &dr.Item("题目"）& dr.Item("类型") &":"&dr.Item("分数"）&"分)<br>"
message.Innerhtml &="<input type=radio value=1 id="&Cstr(i)&"1 name=radio"&Cstr(i)&" />"&dr.Item("选项1")&"<br>"
message.Innerhtml &="<input type=radio value=2 id="&Cstr(i)&"2 name=radio"&Cstr(i)&" />"&dr.Item("选项2")&"<br>"
message.Innerhtml &="<input type=radio value=3 id="&Cstr(i)&"3 name=radio"&Cstr(i)&" />"&dr.Item("选项3")&"<br>"
message.Innerhtml &="<input type=radio value=4 id="&Cstr(i)&"4 name=radio"&Cstr(i)&" />"&dr.Item("选项4")&"<p>"
i=i+1
Loop