知識競賽軟件設計與開發

潘保文

（廣西民族大學，廣西 南寧 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）.