VB考试系统课程设计报告.doc

想预览更多内容,点击预览全文

申明敬告:

本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己完全接受本站规则且自行承担所有风险,本站不退款、不进行额外附加服务;如果您已付费下载过本站文档,您可以点击这里二次下载

文档介绍

VB考试系统课程设计报告

一、 设计任务????????????1 二、 系统总体的设计方案???????4 三、 框图??????????????6 四、 调试程序的过程?????????6 五、 收获体会????????????7 六、 意见建议????????????8 七、 示例截图????????????8 八、 源代码?????????????9 九、 主要参考资料?????????18

一、设计任务

a)程序运行时,首先显示主界面如图。单击“单选题”、“多选题”、“判断题”和“填空题”四个按钮之一,程序会打开不同题型的窗口。

b) 单选题窗口打开后显示如图窗体,窗口中显示了题目总数、当前题号、已做题目目数、题目内容和选择项。用户先做题目,再根据自己的判断选择“选择项”中的一个单选框然后使用“前一题”或“后一题”按钮切换到其它题目。同时可使用“查看成绩”,程序会显示本题型共做对多少题。

c)多选题,判断题和填空题使用方法与单选题类似。单击推出按钮可以返

回主界面继续做其它类型的题目.

- 1 -

- 2 -

- 3 -

二、系统总体的设计方案

设计一个“考试系统”软件,利用已有的题目数据库,用户根据个人的喜好,

自主选择题型进行自测,程序能够自动进行评分。

(单选题与多选题、判断题和填空题代码类似,这里以单选题为例。) Dim db, rs, r_sum, l

Dim ans() As String, ans1() As String Function yzts() As Integer

Dim i, s

s = 0

For i = 1 To UBound(ans)

If ans(i) <> "0" Then s = s + 1

Next i

yzts = s

End Function

Private Sub Command1_C

最近下载