当前位置:跳过导航链接计算机毕业设计首页 : VB毕业设计 : 详细内容

VB试题库在线考试系统(程序下载)(8)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-08 点击数:19635

计算机毕业设计介绍:

(1)启发式组卷
此模块可以通过选择题型、输入试题数量和总分数,点击生成按钮,系统启发式生成A卷和B卷。
计算机毕业论文

以下是引用片段:

其关键代码实现过程如下:
Private Sub btnDel_Click()
'对于要组卷的题型 进行分数判断
If Me.Check1(0).Value = 1 Then
   If txtFs1.Text Mod txtsl1.Text <> 0 Then
      MsgBox "单选题的分数应该是题目的整数倍"
      Exit Sub
   End If
End If
On Error Resume Next
If Me.Check1(1).Value = 1 Then
   If Val(txtFs2.Text) Mod Val(txtSl2.Text) <> 0 Then
      MsgBox "判断题的分数应该是题目的整数倍"
      Exit Sub
   End If
End If
If Me.Check1(2).Value = 1 Then
   If txtFs3.Text Mod txtSl3.Text <> 0 Then
      MsgBox "多选题的分数应该是题目的整数倍"
      Exit Sub
   End If
End If
On Error GoTo 0
Dim tmpPaper As Paper
Dim intFs As Long
Dim intIdList As String
Dim tmprs As New ADODB.Recordset
Dim i As Long
i = 1 '单选题组卷程序逻辑
If Me.Check1(0).Value = 1 Then
   intFs = txtFs1 / txtsl1
   Set tmprs = ExecSql("select top " & txtsl1.Text & "  * from SingleProblem order by newid() ")
   With tmprs
       If .RecordCount > 0 Then
          '卷头
          tmpPaper.strPaperA = "------------------------------A卷------------------------------" & vbCrLf & vbCrLf
          tmpPaper.strPaperA = tmpPaper.strPaperA & "单选题(选择正确答案:)" & vbCrLf & vbCrLf
          tmpPaper.strPaperA_Da = "----------------------------答案----------------------------" & vbCrLf & vbCrLf
          tmpPaper.strPaperA_Da = tmpPaper.strPaperA_Da & "单选题(答案:)" & vbCrLf & vbCrLf
          '题目
          Do Until .EOF
              tmpPaper.strPaperA = tmpPaper.strPaperA & "第" & i & "题:" & .Fields("title").Value & ":(" & intFs & "分)" & vbCrLf & vbCrLf
              tmpPaper.strPaperA = tmpPaper.strPaperA & "(A) " & .Fields("AnswerA").Value & vbCrLf
              tmpPaper.strPaperA = tmpPaper.strPaperA & "(B) " & .Fields("AnswerB").Value & vbCrLf
              tmpPaper.strPaperA = tmpPaper.strPaperA & "(C) " & .Fields("AnswerC").Value & vbCrLf
              tmpPaper.strPaperA = tmpPaper.strPaperA & "(D) " & .Fields("AnswerD").Value & vbCrLf & vbCrLf
              tmpPaper.strPaperA_Da = tmpPaper.strPaperA_Da & "第" & i & "题:" & .Fields("Answer").Value & vbCrLf
              i = i + 1
              intIdList = intIdList & .Fields("id").Value & ","
             .MoveNext
          Loop

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第9页为计算机毕业论文部分......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线