双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

有没有人做过啊把代码给我写着我把分数给你一个人

2009-08-27 04:48:42 127 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

isSaDAmu 墨衍会员 · AI 创作全网分发关注 + 加入社区

埃及分数［算法］埃及同中国一样，也是世界文明古国之一。古埃及人只用分子为1的分数，在表示一个真分数时，将其分解为若干个埃及分数之和，例如：7/8表示为1/2+1/3+1/24。设计程序把一个真分数表示为最少的埃及分数之和的形式这涉及到了贪心的思想，即，每一项都是减去前一项后，留下分子是1的最大真分数就可以了，所以如何找到真分数包含的最大埃及分数，就是解决问题的关键了。设真分数为A/B，B除以A的整数部分为C，余数为D，则有下式成立： B=AC+D 即 B/A=C+D/A＜C+1(因为D/A是小于1的，因此呢，C+D/A 阅读详情

如题啊！

...全文

python定义一个分数类，分别完成分数的加减乘除 class Faction(object): def __init__(self,fz=0,fm=1): self.__fz = fz if fm == 0: raise ValueError('分母不能为0') else: self.__fm =fm @property... 阅读详情

isSaDAmu

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

isSaDAmu 2009-08-27

打赏
举报

谢谢

xunis 2009-08-27

打赏
举报

记得结贴 ==！我很在乎用劳动换来的分数的哈哈～

xunis 2009-08-27

打赏
举报

xun.is@msn.com 加我吧

isSaDAmu 2009-08-27

打赏
举报

     '由此结束  结束加载考试题目

                '****************************************************************************************************

            Else

                MsgBox("请筛选考试类型", 0, "提示：")

            End If

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

请筛选考试类型这个代码叫我参考下可以吗?

isSaDAmu 2009-08-27

打赏
举报

[Quote=引用 4 楼 xunis 的回复:]
VB.NET codePrivateSub btnAnswer_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)Handles btnAnswer.ClickTry'****************************************************************************************************'由此开始加载题目'三次循环分别加载三种题型For i=0To2Dim strSub()AsString= {"选择题","判断题","填空题"}Dim strSqlAsString=" select a.试题内容, b.选项内容, a.试卷类型,a.试题分类ID, a.试题分数"& _" from 题目表 as a INNER JOIN 题目选项表 as b ON a.试题ID = b.试题ID"& _" where 试卷类型='"& strSub(i)&"' and 试题分类ID='"& cmb时间段.Text.Trim&"'"Dim dsAs DataSet= GetDataSet(strSql)If i=0ThenGoTo1ElseIf i=1ThenGoTo2ElseGoTo3EndIf1:
lblXZ1.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)'如果数据数多的话可以把随机数倍数改到数据条数 lblXZ2.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)
lblXZ3.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)GoTo nextFor2:
lblPD1.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)
lblPD2.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)
lblPD3.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)GoTo nextFor3:
lblTK1.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)
lblTK2.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)
lblTK3.Text= (ds.Tables(0).Rows(CInt(Rnd()*3))(0).ToString)GoTo nextFor
nextFor:Next'由此结束结束加载考试题目'****************************************************************************************************ElseMsgBox("请筛选考试类型",0,"提示：")EndIfCatch exAs ExceptionMsgBox(ex.ToString)EndTryEnd Sub

这就是一个加载题目的过程题目是动态显示的还是全部在页面上呢？如果是一次性给出题目就用上面的代码吧因为题目从头到尾不可以改变吧？并且肯定在页面的一个lable或者textbox存放
然后你的答案肯定在一个表里面吧？如果和题目在一个表里面那就通过where查询用for循环一个一个查如果相同就表示对了然后输出分数（你先声明个保存分数的变量吧比如i） i=i+ （去数据库查分数）

这样就把分数统计了吧这是我的思路好像也查几次呢如果有好的代码你也发出来我们学习学习
[/Quote]

哦我修改下我的出题这样子是不是代码也很多啊

xunis 2009-08-27

打赏
举报

Private Sub btnAnswer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnswer.Click

        Try

                '****************************************************************************************************

                '由此开始  加载题目

                '三次循环分别加载三种题型

                For i = 0 To 2

                    Dim strSub() As String = {"选择题", "判断题", "填空题"}



                    Dim strSql As String = " select a.试题内容, b.选项内容, a.试卷类型,a.试题分类ID, a.试题分数" & _

                             " from 题目表 as a INNER JOIN 题目选项表 as b ON a.试题ID = b.试题ID" & _

                             " where 试卷类型='" & strSub(i) & "' and 试题分类ID='" & cmb时间段.Text.Trim & "'"

                    Dim ds As DataSet = GetDataSet(strSql)

                    If i = 0 Then

                        GoTo 1

                    ElseIf i = 1 Then

                        GoTo 2

                    Else

                        GoTo 3

                    End If

1:

                    lblXZ1.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)     '如果数据数多的话可以把随机数倍数改到数据条数

                    lblXZ2.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)

                    lblXZ3.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)



                    GoTo nextFor



2:

                    lblPD1.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)

                    lblPD2.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)

                    lblPD3.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)

                    GoTo nextFor

3:

                    lblTK1.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)

                    lblTK2.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)

                    lblTK3.Text = (ds.Tables(0).Rows(CInt(Rnd() * 3))(0).ToString)

                    GoTo nextFor

nextFor:        Next



                '由此结束  结束加载考试题目

                '****************************************************************************************************

            Else

                MsgBox("请筛选考试类型", 0, "提示：")

            End If

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

这就是一个加载题目的过程题目是动态显示的还是全部在页面上呢？如果是一次性给出题目就用上面的代码吧因为题目从头到尾不可以改变吧？并且肯定在页面的一个lable或者textbox存放
然后你的答案肯定在一个表里面吧？如果和题目在一个表里面那就通过where查询用for循环一个一个查如果相同就表示对了然后输出分数（你先声明个保存分数的变量吧比如i） i=i+ （去数据库查分数）

这样就把分数统计了吧这是我的思路好像也查几次呢如果有好的代码你也发出来我们学习学习

Forrest23 2009-08-27

打赏
举报





try

        {

           //选取得这种题型的分值

            mark = int.Parse(((Label)this.dlistxz.HeaderRow.FindControl("lblxztfz")).Text.Trim());

            //然后循环

            foreach (GridViewRow gy in this.dlistxz.Rows)

            {

                for (int i = 0; i < 4; i++)

                {

                    //获得学生填写的答案

                    if (((RadioButtonList)gy.FindControl("rblxzt")).Items[i].Selected == true)

                    {

                        st = ((RadioButtonList)gy.FindControl("rblxzt")).Items[i].Text;

                        break;

                    }



                }

                //和数据库中的答案比对，如果正确则加上相应的分值

                if (st == ((Label)gy.FindControl("lblanswer")).Text)

                {

                    score = score + mark;

                }



            }

        }

        catch

        {

            score = score;

        }

isSaDAmu 2009-08-27

打赏
举报

学生考试系统怎么获取答案并且与数据库答案比对自动阅卷呢？要个思路代码我会写想了一套比较繁琐要去数据库很多次很麻烦

saku866 2009-08-27

打赏
举报

题目没看明白

✦双11狂欢大促✦

有没有人做过啊 把代码给我写着 我把分数给你一个人

相关推荐

双11狂欢大促

有没有人做过啊把代码给我写着我把分数给你一个人