求助 在线考试系统判断单选题对错代码

[xjcandy]

如何将下列c#代码用vb.net怎么写啊？急急急急急急急！
//核对单选题答案
case 3:
SqlDataAdapter myadapter3 = new SqlDataAdapter("select id,que_answer"+ " from tb_Questions where que_type='单选题'and que_lessonid='"+ dd1 + "'and que_taotiid='" + dd2 + "'order by id desc", con);
DataSet myds3 = new DataSet();
myadapter3.Fill(myds3);
DataRow[] row1 = myds3.Tables[0].Select();
//计算单选题成绩
foreach (DataRow answer1 in row1)
{
int_row1 += 1;
RadioButtonList rbl = (RadioButtonList)(DataList1.Items[int_row1 - 1].FindControl("RadioButtonList1"));
if (rbl.SelectedValue == "")
{
this.lblSel.Text = "单选题：0分";
}
Else
{
if (answer1["que_answer"].ToString().Trim() == rbl.SelectedValue.ToString().Trim())
{
int_row1Point += 40 / DataList1.Items.Count;
this.lblSel.Text = "单选题：" + int_row1Point.ToString() + "分";
}
}
}
break;

[gxingmin]

 Case 3
        Dim myadapter3 As SqlDataAdapter = New SqlDataAdapter("select id,que_answer" + " from tb_Questions where que_type='单选题'and que_lessonid='" + dd1 + "'and que_taotiid='" + dd2 + "'order by id desc", con)


        Dim myds3 As DataSet = New DataSet()
        myadapter3.Fill(myds3)
        Dim row1() As DataRow = myds3.Tables(0).Select()
        '计算单选题成绩
        For Each answer1 As DataRow In row1
            int_row1 += 1
            Dim rbl As RadioButtonList = CType(DataList1.Items(int_row1 - 1).FindControl("RadioButtonList1"), RadioButtonList)
            If (rbl.SelectedValue = "") Then
                Me.lblSel.Text = "单选题：0分"
            Else
                If (answer1("que_answer").ToString().Trim() = rbl.SelectedValue.ToString().Trim()) Then
                    int_row1Point += 40 / DataList1.Items.Count
                    Me.lblSel.Text = "单选题：" + int_row1Point.ToString() + "分"
                End If
            End If
        Next
        Exit Select

[xjcandy]

你好 能帮我把这个页面的都翻译过来吗?谢谢

[骑着蜗牛去爬山]

http://www.developerfusion.com/tools/convert/csharp-to-vb/

[xjcandy]

public partial class QianUser_StartExamfra : System.Web.UI.Page { Datacon dataconn = new Datacon(); static int int_row1 = 0;//单选题题号索引 static int int_row2 = 0;//多选题题号索引 static int int_row1Point=0;//单选题分数 static int int_row2Point = 0;//多选题分数 //============页面加载事件，从数据库中提取题目================ protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { this.getCom(1); this.getCom(2); } } //=========================提交试卷=========================== protected void btnSubmit_Click(object sender, EventArgs e) { this.lblStuID.Text = "学生证号：" + Session["StuName"].ToString(); this.lblSubject.Text = "考试科目：" + Session["SelLession"].ToString(); this.lblQuestion.Text = "考试套题：" + Session["SelTitle"].ToString(); this.getCom(3); this.getCom(4); this.lblTotal.Text = "总分：" + (int_row1Point + int_row2Point); this.getCom(5); Response.Write("<script lanuage=javascript>alert('您确定要交卷吗？');localtion='StartExamfra.aspx';</script>"); this.btnSubmit.Enabled = false; } //==================执行与数据库的关联操作===================== protected void getCom(int i) { string dd1 = Application["d1"].ToString(); string dd2 = Application["d2"].ToString(); SqlConnection con = dataconn.getcon(); con.Open(); switch (i) { //从数据库中选择单选题 case 1: SqlDataAdapter myadapter1 = new SqlDataAdapter("select * " +"from tb_Questions where que_type='单选题'and que_lessonid='" + dd1 + "'and que_taotiid='" + dd2 + "'order by id desc", con); DataSet myds1 = new DataSet(); myadapter1.Fill(myds1); DataList1.DataSource = myds1; DataList1.DataBind(); //生成单选题题号 for (int tID1 = 1; tID1 <= DataList1.Items.Count; tID1++) { Label lblSelect = (Label)DataList1.Items[tID1 - 1].FindControl("Label2"); lblSelect.Text = tID1.ToString() + "、"; } break; //从数据库中选择多选题 case 2: SqlDataAdapter myadapter2 = new SqlDataAdapter("select * " +"from tb_Questions where que_type='多选题'and que_lessonid='" + dd1 + "'and que_taotiid='" + dd2 + "'order by id desc", con); DataSet myds2 = new DataSet(); myadapter2.Fill(myds2); DataList2.DataSource = myds2; DataList2.DataBind(); //生成多选题题号 for (int tID2 = 1; tID2 <= DataList2.Items.Count; tID2++) { Label lblDSelect = (Label)DataList2.Items[tID2 - 1].FindControl("Label24"); lblDSelect.Text = tID2.ToString() + "、"; } break; //核对单选题答案 case 3: SqlDataAdapter myadapter3 = new SqlDataAdapter("select id,que_answer" + " from tb_Questions where que_type='单选题'and que_lessonid='" + dd1 + "'and que_taotiid='" + dd2 + "'order by id desc", con); DataSet myds3 = new DataSet(); myadapter3.Fill(myds3); DataRow[] row1 = myds3.Tables[0].Select(); //计算单选题成绩 foreach (DataRow answer1 in row1) { int_row1 += 1; RadioButtonList rbl = (RadioButtonList)(DataList1.Items[int_row1 - 1].FindControl("RadioButtonList1")); if (rbl.SelectedValue == "") { this.lblSel.Text = "单选题：0分"; } else { if (answer1["que_answer"].ToString().Trim() == rbl.SelectedValue.ToString().Trim()) { int_row1Point += 40 / DataList1.Items.Count; this.lblSel.Text = "单选题：" + int_row1Point.ToString() + "分"; } } } break; //核对多选题答案 case 4: SqlDataAdapter myadapter4 = new SqlDataAdapter("select id,que_answer" + " from tb_Questions where que_type='多选题'and que_lessonid='" + dd1 + "'and que_taotiid='" + dd2 + "'order by id desc", con); DataSet myds4 = new DataSet(); myadapter4.Fill(myds4); DataRow[] row2 = myds4.Tables[0].Select(); //计算多选题成绩 foreach (DataRow answer2 in row2) { int_row2 += 1; CheckBoxList cbl = (CheckBoxList)(DataList2.Items[int_row2 - 1].FindControl("CheckBoxList1")); if (cbl.SelectedValue == "") { lblDSel.Text = "多选题：0分"; } else { for (int q = 0; q < cbl.Items.Count; q++) { if (cbl.Items[q].Selected == true) { this.TextBox1.Text = TextBox1.Text.Trim() + cbl.Items[q].Value + ", "; } } if (answer2["que_answer"].ToString().Trim() + "," == this.TextBox1.Text.Trim()) { int_row2Point += 60 / DataList2.Items.Count; this.lblDSel.Text = "多选题：" + int_row2Point.ToString() + "分"; } } } break; //把考试结果插入数据库 case 5: { dataconn.eccom("insert into tb_StuResult" +"(stu_id,which_lesson,taotiid,taotiname,res_single,res_more)" +"values('" + lblStuID.Text + "','" + lblSubject.Text + "','" + dd2 + "','" + lblQuestion.Text + "','"+int_row1Point+"','"+int_row2Point+"')"); } break; } con.Close(); } //========================退出当前系统======================== protected void btnExit_Click(object sender, EventArgs e) { Response.Write("<script lanuage=javascript>window.close();location='javascript:history.go(-1)'</script>"); } }

[xjcandy]

谢谢 大家 小弟做的在线考试系统 不知道提交试卷后 所做题的对错 c#还不懂