知识竞赛软件设计与开发

潘保文

（广西民族大学，广西 南宁 530006）

摘要：近年来，在学校、单位和各系统内，模仿电视台效果的各种知识竞赛类活动也兴盛起来。但是传统组织形式上的缺点逐渐显现：人工操作方式落后、笨拙、单调，抢答器不普及、不方便、成本高。知识竞赛软件就是简单利用计算机及网络设备等资源，通过软件来实现专业效果的竞赛系统，知识竞赛软件实现竞赛的成本低，便于组织，通用性好。

关键词：知识竞赛；VB；管理信息

中图分类号：G642.0 文献标志码：A 文章编号：1674-9324（2016）49-0258-02

一、需求分析

在企事业单位和学校里我们经常能见到一些知识竞赛之类的比赛，对于这一类的程序，通常我们首先想到的就是用快速开发工具来做，使用本系统作为平台，能够把竞赛整个流程有机结合起来。用大屏幕和音响以多媒体的形式向观众展示大赛的各种信息、背景音乐、选手情况、题目内容等，配合主持人的解说，同时，大赛全程都可以由一名幕后人员用一台电脑进行后台监控，扮演“导播”的角色，可以进行选手、题目、竞赛模块的手动切换等辅助操作，保障大赛的顺利进行。

通过调查，要求软件需要有以下功能：（1）要求具有良好的人机界面，操作简单。包括编辑试题软件和答题界面软件。（2）该软件的使用对象负责和管理人员。

二、可行性分析

由于涉及的对象单一，为了便于多人协作出题，比较适合于采用excel管理试题库，运用VB制作界面。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其他程序的功能，因此完全可以实现。

三、软件实现

（1）添加试题功能主要代码

If Trim（Combo1.Text） = "" Then

MsgBox "" & vbCrLf & "试题不完整！"， vbExclamation， "警告"

Else

If Trim（Combo1.Text） = "看图题" Then

If （Trim（Text2.Text） = "" Or Trim（Text3.Text） = "" Or Trim（Text4.Text） = ""） Then

MsgBox "" & vbCrLf & "试题不完整！"， vbExclamation， "警告"

Exit Sub

Else

shu = shu + 1

Form1.EXLSHEET.Cells（k + 2， 1） = k + 1

Form1.EXLSHEET.Cells（k + 2， 2） = Trim（Combo1.Text）

Form1.EXLSHEET.Cells（k + 2， 3） = Trim（Text2.Text）

Form1.EXLSHEET.Cells（k + 2， 4） = Trim（Text3.Text）

Text2.Text = "" ： Text3.Text = ""

Label7.Caption = "添加成功！"

Form1.Ti_shu = Form1.Ti_shu + 1

Label6.Caption = Form1.Ti_shu

Exit Sub

End If

End If

（2）修改试题功能主要代码

先读取试题库里的题目，修改后再写入题库。

读取题目主要代码：

Text1.Text = KillSpace（Form1.EXLSHEET.Cells（k + 1， 2））

Text2.Text = Form1.EXLSHEET.Cells（k + 1， 3）

Text3.Text = Form1.EXLSHEET.Cells（k + 1， 4）

Text4.Text = KillSpace（Form1.EXLSHEET.Cells（k + 1， 5））

tj = k

k = k + 1

写入题目主要代码：

Form1.EXLSHEET.Cells（tj + 1， 2） = Trim（Text1.Text）

Form1.EXLSHEET.Cells（tj + 1， 3） = Trim（Text2.Text）

Form1.EXLSHEET.Cells（tj + 1， 4） = Trim（Text3.Text）

Form1.EXLSHEET.Cells（tj + 1， 5） = Trim（Text4.Text）

（3）導入背景图功能主要代码

Dim ofn As OPENFILENAME

Dim rtn As String

ofn.lStructSize = Len（ofn）

ofn.hwndOwner = Me.hWnd

ofn.hInstance = App.hInstance

ofn.lpstrFilter = "图片文件（jpg）" + Chr$（0） + "*.jpg" + Chr$（0） + "图片文件（bmp）" + Chr$（0） + "*.bmp" + Chr$（0） + "图片文件（ico）" + Chr$（0） + "*.ico"

ofn.lpstrFile = Space（254）： ofn.nMaxFile = 255：ofn.lpstrFileTitle = Space（254）

ofn.nMaxFileTitle = 255： ofn.lpstrInitialDir = App.Path

ofn.lpstrTitle = "导入背景图片" ： ofn.flags = 6148

rtn = GetOpenFileName（ofn）

Dim dr As String

If rtn >= 1 Then

Image3.Visible = True

quxiao.Enabled = True

Image3.Picture = LoadPicture（ofn.lpstrFile）

End If

（4）设置功能主要代码

If Form1.BackColor = &H404040 Then Option1.Value = True

If Form1.BackColor = vbBlack Then Option2.Value = True

If Form1.BackColor = vbWhite Then Option3.Value = True

If Form1.Label1.ForeColor = vbWhite Then Option4.Value = True

If Form1.Label1.ForeColor = vbBlack Then Option5.Value = True

If Form1.Label1.ForeColor = vbBlue Then Option6.Value = True

If Form1.Label1.FontSize = 36 Then Option7.Value = True

If Form1.Label1.FontSize = 26.25 Then Option8.Value = True

If Form1.Label1.FontSize = 21.75 Then Option9.Value = True

（5）答题时间功能主要代码

If Val（Text1.Text） < 0 Or Val（Text1.Text） > 60 Then

MsgBox "" & vbCrLf & "時间不能超过60秒！"， vbExclamation， "警告"

Exit Sub

End If

Form1.sumt = Text1.Text

If Val（Text2.Text） > Form1.sumt Then

MsgBox "" & vbCrLf & "提醒时间不能答题时间！"， vbExclamation， "警告"

Exit Sub

End If

Form1.daot = Text2.Text

Form1.Label5.Caption = Form1.sumt

Form1.s = 0

If Form1.Command1.Caption = "下一新题" Then

Form1.Timer1.Enabled = True

End If

四、结论

在本软件系统采用VB+excel编程，界面美观友好，操作简单，易于日后程序更新，效率高是本软件系统的特点。

参考文献：

[1]余洁.基于学生信息管理查询系统的设计和开发[J].上海电力学院学报，2003，（02）.

[2]王晓乔.学生信息管理系统设计与分析[J].湘潭师范学院学报（自然科学版），2003，（03）.