知识竞赛软件设计与开发
2017-02-27潘保文
潘保文
（广西民族大学，广西 南宁 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）.
